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ABSTRACT 


This manual provides a condensed users description and theory for TRW’s 
Vortex-Lattice Method Subsonic Aerodynamic Analysis for Multiple-Lifting- 
Surfaces (N, Surface) Program HAOIOB. The program is designed to provide 
solutions of engineering accuracy for determining the aerodynamic loads on 
single- or multiple-lifting-surface configurations that represent vehicles 
in subsonic flight, e.g,, wings, wing-tail, wing-canard, lifting bodies, 
etc. The manual describes the preparation of the input data, associated 
input arrangement, and the output format for the program data, including 
specification of the various operational details of the program such as 
array sizes, tape numbers utilized, and program dumps. As supplementary 
information, the manual includes a full description of the underlying theory 
used in the program development and a review of the program qualification 
tests. 
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1 . 0 PROGRAM ABSTRACT 


PROGRAM NUMBER: 

PROGRAM TITLE: 

TAPE NUMBER: 

STATUS: 

LANGUAGE: 

SYSTEM: 

CORE STORAGE REQUIREMENTS: 
TYPICAL EXECUTION TIME: 
DESCRIPTION: 


HAOlOB (N. SURFACE) 

TRW Vortex-Lattice Method Subsonic Aerodynamic 
Analysis for Multiple-Lifting-Surfaces 

T00078 or A10202 

Production 

Fortran V 

UNIVAC 1108/CDC 6500 Computer 
Approximately 50K words 
2 to 5 minutes per case (UNIVAC 1108) 


The aerodynamic airload distribution and spatially-integrated force and moment 
coefficients are calculated for single- or multiple-lifting-surface configuration; 
by an improved vortex-lattice method developed by TRW. In this method, the In- 
fluence of each surface is represented by a network of concentrated line vortices 
distributed on the surfaces and behind the surf ace-trailing-edges . The strength 
or circulation of these vortices is determined by the requirement that the flow 
be parallel to each surface at a discrete number of boundary control points or co- 
location points that is equal to the number of unknown vortex strengths. The 
treatment of the control point boundary conditions incorporated in the analysis 
(TRW’s) is based on the exact surface geometry, i.e., no linearization or other 
usual simplifying assumptions are made. This feature makes it possible to perforn 
more accurate calculations for general non-planar lifting surface configurations. 
The effect of the leading-edge flow separation on the airload coefficients for 
theoretically sharp leading-edges is evaluated by an approximate technique based 
on the vortex-lift leading-edge suction analogy. Numerical solutions can be per- 
formed including as many as 200 separate vortex filaments or elemental surfaces 
for symmetric and 100 for unsymmetric aerodynamic loadings respectively. The ex- 
tension of the imcompressible solutions to compressible flows (0<M<1) is accom- 
plished via the Prandtl-Glauert transformation. Flight over a ground plane is 
calculated by the method of images as a special option of the program. 

The output consists of data presented for ready engineering use such as pressure 
distributions, section coefficients, and spatially-integrated coefficients. Exact 
numerical solutions or arrays of solutions extrapolated using the lifting line 
theory from two or more exact vortex-lattice solutions may be output for multiple^ 
and single -lifting-surfaces respectively. Other program features include: 
double precision matrix inversion, 4060-microfilm or Calcomp output, short or long 
print-format output , etc. An outline of the program analysis and execution op- 
tions is presented in Pages 1-2 through 1-3. 
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PROGRAM ABSTRACT (Contd.) 


ANALYTICAL MODEL FEATURES AND EXECUTION OPTIONS OUTLINE 

ANALYSIS 

• The aerodynamic airload distributions on single- or multiple-lifting surface 
configurations are calculated by an improved (TRW*s) vortex-lattice method. 

• The treatment of the control points is based on the exact geometry of the 
lifting surfaces, i.e., none of the usual linearization or other simplifying 
assumptions in the literature are incorporated in the analysis. 

• The effect of leading-edge flow separation for theoretical -sharp leading 
edges (i.e., vortex-lift) is calculated by an approximate technique based on 
leading-edge suction analogy. 

• Compressibility effects are accounted for via the Prandtl-Glauert trans- 
formation, 

• Ground effects are calculated by the method of images that provides for 
exact analytical solutions for a flat ground plane of infinite extent, 
i.e., the boundary conditions of parallel flow at the ground plane are 
exactly satisfied. 

• Arrays of solutions may be extrapolated from two exact vortex-lattice 
solutions by a method procedure based on the lifting- line theory. 

VEHICLE CONFIGURATIONS 

(See Table 1.01, Page 1-4) 

• Single Surface: (XQT ISURF Option) 

A single surface of any configuration, shape, or form with or without 
severe surface discontinuities may be considered. This includes lifting 
surface configurations with flaps, ailerons, slots, with or without 
camber. 

• Multiple Surfaces: (XQT NSURF Option) 

Up to five separate lifting surfaces of any configuration, shape, or form 
can be considered simultaneously. In each surface the effect of severe 
surface discontinuities can be considered in the same manner as outlined 
above for the single surface analysis. Multiple-lifting-surface configura- 
tions that may be analyzed include: wing-tail-f ins , canard-wing-fins, 

thick-wing, lifting-body, and many other configurations. The complexity 
of the configurations that may be successfully analyzed depends on the 
maximum number of elemental panels or control points that can be con- 
sidered simultaneously, i.e,, 200 for symmetric and 100 for uns 3 ?inmetric 
loadings respectively. 
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PROGRAM ABSTRACT (Contd.) 


OUTPUT OPTIONS 

• Printed Output 

1) Short-Print: the surface geometry, the airload force and pitching 

moment section coefficients, and all the force and moment spatially- 
integration airload coefficients are output for each of the lifting 
surfaces considered. 

2) Long-print: the short-print output, and the details of the lift 

(pressure coefficient) and vorticity distribution on each of the 
lifting surfaces considered are output. 

3) Uebug-Print : the long-print output plus the details of the induced 

velocities and influence coefficients are output. 

• Tape Output 

1) The lifting surface vortex-lattice geometry, section aerodynamic co- 
efficients, etc. that are calculated in obtaining solutions are output 
on magnetic tape in the format required for executing the TRW plotting 
option, or 

2) By executing the plotting option (TRWPLT) included in the program, 
4060-microfilm or Calcomp plots output of solutions (//I above) can be 
obtained directly. 

SPECIAL OPTIONS 

• Ground effects: flight in the presence of a very near ground plane may 

be calculated. 

• Lifting-Line: arrays of solutions may be obtained by extrapolation from 

two exact vortex-lattice solutions using a method based on the lifting- 
line theory. This option at present (HAOlOB) is available only for single- 
lifting-surface configurations. 

EXECUTION TIME 

• Symmetric loadings: about one minute per vortex-lattice solution for 100 

elements. 

• Unsymmetric loadings: about four minutes per vortex- lattice solution for 

100 elements. 

• With ground effects: about twice the time required for out-of -ground. 

• Lifting-line arrays: about 1/2 minute extra running time. 

• Maximum time: about four minutes and eight minutes per vortex-lattice 

solutions of out-of-ground and In-ground problems. The running times 
are based on 200 and 100 vortex-lattice elements for symmetric and un- 
symmetric loadings respectively. 


1-3 



TABLE 1 .01 - REPRESENTATIVE LIFTING-SURFACE PROBLEMS OF VARIOUS CONFIGURATIONS THAT CAN BE 
SUCCESSFULLY SOLVED USING THE TRW VORTEX- LATTICE ANALYSIS PROGRAM NO. HAOlOB 


VORTEX-LATTICE CONFIGURATION 


NUMBER OF 
ELEMENTAL 
PANELS 


EXECUTION 
TIME PER 
CASE 



vert, fin' 
omitted 


EVALUATION OF RESULTS 


THIN-SURFACE 
WINGS OF AR = 6 
VERY SUCCESSFUL 


DIFFICULTY : NONE 


THIN-SURFACE 
WINGS OF LOW AR 


VERY SUCCESSFUL 


DIFFICULTY; NONE 


THIN-SURFACE 

WING WITH END PLATES 


RE SULT S : SAT I SF ACTORY 

DIFFICULTY; SEVERE DISCONTINUITY 


THICK-SURFACE 
WING THICKNESS 


VERY SUCCESSFUL 


DIFFICULTY: NONE 


THIN-SURFACE 
DOUGLAS F5D-1 AIRPLANE 
VERY SUCCESSFUL 


DIFFICULTY: NONE 


THIN-SURFACE 
NORTH AMERICAN XB-70 
VERY SUCCESSFUL 


DIFFICULTY: NONE 


TYPE; LIFTING-BODY 

PROBLEM: NASA-MSC //040A ORBITER 

RESULTS : NOT SUCCESSFUL 

DIFFICULTY: THE NUMBER OF ELEMENTAL 

PANELS THAT CAN BE CONSIDERED SIMULTA- 
NEOUSLY IS INSUFFICIENT TO PROVIDE 
VALID SOLUTIONS. BY NEGLECTING THE 
FUSELAGE THICKNESS THE THIN-SURFACE 
REPRESENTATION WAS APPLIED TO THIS 
PROBLEM VERY SUCCESSFULLY. 



























2.0 ANALYSIS 


2 . 1 Analytical Procedures Review 

It is a well know fact in aerodynamic theory that any surface, whether 
part of a body of finite thickness or merely an infinitesimally thin sheet, may 

be represented by a sheet of vorticity bound on the surface and a trailing 

vortex sheet shed behind the trailing edge. The velocity at any point in the 

flow field is the sum of the velocity vector induced by the vortex sheets and 

the free stream velocity vector. The strength of the vorticity representing 
the surface is determined by the requirement that the velocity vector computed 
as the sum of velocity induced by the vortex sheets and the free stream, be 
parallel to the surface. The strength of the trailing edge vortex sheet is 
determined from the surface bound vortex sheet strength using the conservation 
of vorticity laws for steady flow (i.e. , Helmholtz vorticity laws) together 
with the requirement that there be no force exerted on the sheet, which means 

that the trailing edge vortex sheet must be everywhere parallel to the stream- 

, , ,, (l,2,3)t 

lines of the flow'' 

In the vortex lattice method, the influence of the surface is represented 
by a network of concentrated line vortices, distributed on the surface and 

C4 5) 

behind the trailing edge * . The strength of these vortices is determined by 

the requirement that the flow be parallel to the surface at a number of boundary 
point or co-location points which are equal to the number of unknown vortex 
strengths. The location of the trailing vortices must be assumed, and thus 
may not happen to be exactly parallel to the streamlines. However, the path 
of the vortex sheet behind the wing may be guessed beforehand with fairly 
good accuracy, and since, in most instances, the results are not strongly in- 
fluenced by the assumed path of the trailing vortices, excellent results of 
high accuracy are usually obtained . 

2 . 2 Vortex-Lattice Equations 

The vortex lattice network arrangement used in the present analysis is 
illustrated in Figure 2,01^. As shown in the figure, the wing surface is 
divided uniformly into a number of elemental panels of approximately equal size. 
The vorticity on the upper and lower surfaces of each panel is represented by a 

tSuperscript in parathesis denote references listed in Section 8, 
tFigures and Tables of this section are found at the end of the section. 
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single bound vortex line which is located in accordance with 2-D theory at the 
1/4 chord of the panel^^\ The location of the control point or co-location 
point is arbitrary and is usually selected at the mid point between adjacent 
vortex lines which corresponds to the 3/4 chord of the panel. Since the vor- 
tex filaments cannot be discontinuous, the bound vortices for each panel are 
bent at both ends forming a pair of trailing vortices which must extend to 
infinity. In this manner these vortices represent the vorticity in the trail- 
ing edge vortex sheet. The bound vortex at the 1/4 chord of the panels and 
the pair of trailing vortex filaments define a generalized skew-shaped (oblique) 
horseshoe vortex filament of strength F. The number of horseshoe vortex fila- 
ments is equal to the number of panels or control points. The velocity at 
the control points is by definition parallel to the surface, and hence, the 
corresponding normal velocity components to the surface are exactly equal to 
zero. This boundary condition when applied to the jth panel is given by 



( 2 . 2 . 01 ) 


where ; 


IN. = the unit vector normal to the surface at the -ith control 
1 . 

point , 

= the free stream velocity vector. 


= the scalar magnitude of the free stream velocity vector, 


= the strength of circulation of the kth panel horseshoe 
vortex filament. 




the induced velocity vector influence function of the kth 
panel horseshoe vortex evaluated at the jth control point, 


K = the total number of panels for all the lifting surfaces 
considered. 


The induced velocity vector and influence vector functions are calculated 
in accordance with the induced velocity law of Biot and Savart^^*^\ Using the 
geometry convention for a representative horseshoe vortex shown in Figure 2,02, 
it follows 


2-2 



hm ; 


^ ■■ * ► ^ — ► 
? / dH X (r - r’ 

J k;-?*)|^ 


( 2 . 2 . 02 ) 


(2.2.03) 


The calculation of the vector influence functions i/)(j) are somewhat tedious 
but straightforward. In the present analysis the trailing vortices are assumed 
to be straight lines which extend to infinity and which are oriented at an 
angle a/2 in the manner shown in Figure 2.02. In this instance the bound vor- 
tex and trailing vortices for each panel form a generalized skew-shaped horseshoe 
vortex of the same configuration analysed in References 8 and 9. Analytical 
solutions for the vector influence functions are presented in Section 2.3. The 
number of unknown horseshoe filament circulation strengths F are equal to the 

IX 

number of boundary condition equations for the control points. Using matrix 
notation, these boundary conditions which were given in Equation 2.2.01, become 


lA.l 





= 0 


(2.2,04) 


By inverting the matrix 



] 


the unknown circulation strengths 


r, are obtained 
k 


[^] = - lAj] X (2.2.05) 

In the presence of a ground plane, exact analytical solutions are obtainable 
by the method of images by assuming the ground plane to be perfectly flat and 
of infinite extent. Under these conditions, the boundary requirement for the 
flow at the ground plane is exactly satisfied by defining a mirror image of 
the vortex lattice directly below at a distance equal to twice the altitude 
from the ground plane. The calculation of the induced velocity (Equation 
2.2.02) is modified to include the effect of the image vortex lattice influence 
coefficients as follows 
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1(1) _ 
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r. /V 
k ° 

4tt 


*Mj) - *k(j) 


«] 


(2.2.06) 


^1 = the influence function of the image vortex lattice. 

h(j) 

Note that in the present formulation, none of the usual linearization or other 
simplifying assumptions were made on the boundary conditions at the control 
points (e.g., References 10 and 11). Therefore, severe variations in lifting 
surfaces planform such as twist, camber, dihedral, etc. are treated exactly and 
more accurate solutions may be obtained. 


2. 3 Influence Coefficients 

Consider the straight vortex-filament element of length AS that is il- 
lustrated in Figure 2.03. In computing the induced velocity vector for the 
vortex filament at a field point P(0,Y,Z), the influence coefficient is ob- 
tained by integrating Equation 2.2.03 within the appropriate boundary condi- 
tions described in the figure. It follows 



(the induced velocity) (2.3.01) 


^ = IV A >1^ 


(the influence coefficient) (2.3.02) 


where IV and Aijj are a unit vector and a scalar quantity, respectively. These 
are given by 


IV = - lAQ X IQP 


lY + 


IZ 


(2.3.03) 


1 h + AS h 

^ V(h + AS)^ + r2 


(2.3.04) 


R 



+ z 


(2.3.05) 


The above equations can be used to determine the influence coefficient 
vector for any field point P(X,Y,Z) of any complex-shaped filament if it is 
assumed that it is composed of a discrete number of rectilinear increments AL 
(illustrated in Figure 2.03) and by performing the appropriate coordinate 
transformations. For the generalized skew-shaped vortex filament in Figure 2.02, 
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the calculation of the influence coefficient vector for any flow field P(X,Y,Z) 


is performed in this manner. Making use of the localized 
Figure 2,04, the shape of the skew-shaped vortex filament 
coordinates of points B-D given by 

coordinate system in 
is prescribed by the 

B = B(-c, ~a, -d) 


(2.3.06) 

D = D(c, a, d) 


(2.3.07) 

c = a tan (A) 


(2.3.08) 

d = a tan(4>) 


(2.3.09) 


If the vortex filament is broken into three elements, i.e., , D-E-“, 

and B-C-D, the influence coefficient vector for the filament is equal to the sum 


1=1 


(2.3.10) 


Segment //I (°°-A-B) 

The contribution of segment #1 for an arbitrary field point P(X,Y,Z) is 
caicuiated as follows. The coordinates of point A are given by 


A = A(X, -a, -d") 


(2.3.11) 


d" = d + (X + c) tan(a/2) 


(2.3.12) 


and making use of the geometry according to the sketch below. 



= \/(X + c)^ + (d" - d)^ 
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(2.3.13a) 



(2.3.13b) 


= \/(Y + a)^ + (Z + 6 )^ 


= \/(X + c)^ + (Y + a)^ + (Z + d)' 


(2.3.13c) 


cos (y) = “ 


2 2 2 

V^2 

2h^ h2 


(2.3.13d) 


R = \/l “ (cos y) 


cos (y) 


(2.3.13e) 

(2.3.13f) 


Using Equation 2.3.04, the scalar part of the influence coefficient can now be 
computed 




1 + 


\ + \ 




(2.3.14) 


The calculation of the vector part of the influence coefficient will be 
considered next. The coordinates of point Q shown on the sketch are 




= - c + (h^ + h^) cos (ci/2) 


Y = - a 

q 


(2.3.15a) 

(2.3.15b) 

(2.3.15c) 


= - d - (h^ + h^) sin (a/2) 


(2.3.15d) 


and the unit vectors for the line segments B-Q and Q-P can now be calculated 


IBQ = IX cos (a/2) - IZ sin (a/2) 


(2,3.16) 


«- - » (^) * .7 [ 1 ^) , a {^) 


(2.3.17) 
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then, the vector part of the influence coefficient, i.e., a unit vector, is 
given by the vector cross-product 

IV^ = X IQP (2.3.18) 

Segment #2 (D-E-‘») 

The contribution of segment //2 for the same arbitrary field point P(X,Y,Z) 
is calculated in the same manner as outlined for segment #1; specifically, 
Equations 2.3.19 through 2.3.23 are used in place of 2.3.11, 2.3.12, 2.3,13, 
and 2.3,15 respectively, where 

E = E (X, a, +d*) (2.3.19) 

= d - (X - c) tan (a/2) (2.3.20) 


b ■ \/(x - c)^ + (d - d’)^ 

(2.3.21a) 

^2 " \/(Y - a)^ + (Z - d)^ 

(2.3.21b) 

^3 ' \J(X - cf + (Y - a)^ + (Z - d)^ 

(2.3.21c) 

= c + (hi + h^) cos (a/2) 

(2.3.22a) 

II 

cr . 

(2.3.22b) 

Z^ = d - (hi + h^) sin (a/ 2) 

(2,3.22c) 

IV 2 = - IDQ X IQP 

(2,3.23a) 

IDQ = IBQ 

(2.3.23b) 
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Segment #3 (B-C-D) 


The contribution of segment #3 for the same arbitrary field point P(X,Y,Z) 
considered for segments #1 and #2 is calculated in a like manner as outlined in 
detail for segment #1. For segment #3, the coordinates of points B(-c,-a,-d) and 
D(c,a,d) are used to determine the solutions for 


= 2^/77 


a + d 


(2.3.24a) 


= y<X - c)^ + (Y - a)^ + (Z - d)^ 


(2.3.24b) 


= /(X + c)^ + (Y + a)^ + (Z + d)^ 


(2.3.24c) 


cos (y) = 


2 2 2 
2h^ 


(2.3.24d) 


cos (y) (2.3.24e) 

R = h2 'J\~- (cos y)^ (2.3.24f) 

and using Equation 2.3.04, the scalar part of the influence coefficient for 
segment #3 (B-D) can now be computed 


A if) ^ 

h + *’4 ‘*4 

R 

y(h^ + h^)2+R2 \jh^^ + K'^ 


(2.3.25) 


Next, to calculate the vector part of the influence coefficient the 
coordinates of point Q(X ,Y ,Z ) must be calculated first. Accordingly 

q q q 

X^ = c + (2c/h^) (2.3.26a) 


= a + (2a/h^) 


(2.3.26b) 
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(2.3.26c) 


Z = d + h, (2d/h.) 
q 4 1 


The unit vectors IBQ and IQP are given by 




IQP = IX 




(2.3.27) 


(2.3.28) 


from which the vector part of the influence coefficient, i.e., the unit vector 
iv^, can be calculated by simply taking the vector cross-product 


IV^ = - IBQ X IQP 


(2.3.29) 


2. A Exact-Theory Aerodynamic Forces and Moments 

The net aerodynamic force vector exerted on the jth panel (i.e., jth 
elemental surface) is calculated using 



(2.4.01) 



V 

V~ 

CO 




Air 



(2. A. 02) 


where 



V. 

3 




= the length vector of the bound vortex filament of the panel, 

= the velocity vector computed as the sum of free stream and 
induced velocity vectors evaluated at the midpoint of the 
bound vortex of the jth panel, 

= the Prandtl-Glauert compressibility factor, = 



r 
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Ip, / .N = the vector influence function of the kth panel evaluated at 
midpoint of the j th bound vortex. 

The force vector is assumed to act at the midpoint of the bound vortex fila- 
ment of the kth panel. The corresponding section aerodynamic load coefficients 
and integrated wing force and moment coefficients are obtained by the appro- 
priate summation of the forces acting on each panel. In determining these 
quantities the following relations derived from the exact analysis are used 

Force Coefficients for jth Panel 



2 


( 


F./(P^ V ) 

AS. 

J 


) 


• (IX) 


c 


^Y,j 




• (lY) 


(2.4,03) 


(2.4.04) 


Cp 


Z,j 


2 


V 



• (H) 


(2.4.05) 


Differential Pressure Coefficients 



(2.4.06) 


Lifting Surface Section Airload Coefficients 

For each lifting surface, by summing up the appropriate force contributions, 


''n(Y) 




Y 


‘'t(Y) *■ 




AS. 

J 

AY. 

J 


Y 


(2.4.07) 


, (2.4.08) 


‘^m(Y) 



XC/4), 


+ 


AS. 

J 


X.j ay 


( 


z. 

J 


^(C/4) 
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(2.4.09) 



""iKY) 


^n(Y) ^t(Y) 


iCY) 


- cos(o) + Sln(ci) 


Lift ing Surface Spatially-Integrated Airload Coefficients 


s 




fiS. 

J 



AS. 

J 




(C/4) 



C 


^r(C/4) 



~ Si ^ sin(a) 


Cp = - C^ cos(ct) + sin(a) 


V ~ ^(C/4) 



Z 



^(C/4) 


(2.4.10) 

(2.4.11) 

(2.4.12) 

(2.4.13) 

(2.4.14) 

(2.4.15) 

(2.4.16) 

(2.4.17) 

(2.4.18) 

(2.4.19) 

(2.4.20) 

(2.4.21) 
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In equations 2.4.07 through 2,4.16 the summations are performed over the 
vortex-lattice elemental surfaces that correspond to each lifting surface. To 
obtain the total force for the sum of N lifting surfaces, the summation is 
carried out over all the panels Cj=ljJ) and the reference dimensions for the 
first lifting surface (n=l) are used. 

2-5 Approximate-Theory Aerodynamic Forces an d Moments 

In the preceding sections the procedure for obtaining exact solutions 
for the aerodynamic forces and moments by the vortex lattice method were 
developed. To generate an array of such solutions (for instance by varying 
the wing angle of attack) would be considered unwise because of the excessive 
computing time expenditure required. Instead, an array of approximate 
solutions of sufficient engineering accuracy may be obtained by extrapolation 
from two exact vortex lattice solutions by using the lifting line theory. 
Accordingly, for a single lifting surface, given two exact solutions obtained at 
two different angles of attack a^, and the extrapolated solutions for any 
other angle of attack a may be obtained in the following manner. 


Wing Lift Coefficient 



C2.5.01) 


C2.5.02) 


- m (a - ctR ) 
u o 


(2.5.03) 


Wing Moment Coefficients (Pitching, Rolling, and Yawing) about C/4 





(2.5.04) 


Si 




(2.5.05) 


Si - 



(2.5.06) 
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Wing Section Lift Coefficients 




^^1(Y) ~ ^^2(Y) 
1(Y) " C- - C 

^1 4 


Ci,b(Y) - 


"^Y) = "'^KY) •" ^"Ny) 


Wing Section Induced Drag Coefficients 




rcd. - cd^ 

\ ^ 

lCJIi - Cl^ ^ 




o 


(2,5.07) 


(2.5.08) 

(2.5.09) 


(2.5.10) 


(2.5.11) 


(2.5.12) 


or using the lifting line theory exact results, 


cd 


i(Y) 


1 


2^ 

2it 


cjl 


(Y) 


2 


(2.5.13) 


Equation 2.5.13 is recommended in the analysis of wing planforms of moderate 
aspect ratio and negligible sweep and dihedral angles. 

Wing Induced Drag Coefficient 




'"‘^l(Y) ^(Y) 


(2.5.14) 


which when expressed as a function of C becomes 

Lj 




/ ^ 2 
2 


(2.5.15) 
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where CF is the aerodynamic cleanness factor which is defined as 


EQUIVALENT FLAT PLATE AREA 
CF = WETTED AREA 


The total drag coefficients are obtained as the sum of induced drag and skin 
friction drag for the wing section coefficients and the integrated wing co- 
efficients respectively. 

2 . 6 Vortex Lift 

Experimental studies of sharp leading edge delta wings have shown that 

at even relatively low angles of attack the flow separates from the leading 

edge and rolls up into two vortex sheets or cone shaped cores of rotating 

fluid particles with the axes of rotation located approximately parallel to 
C12 13) 

the leading edges ’ . In general, this vortex flow results in an increase 

in lift that is called vortex lift or non— linear lift, and an increase in drag 
resulting from the loss of leading edge suction. Although it is desirable to 
avoid the formation of the separated flow vortex sheets because of the high 
» it is a phenomenon which is always encountered by low aspect ratio 
highly swept wings operating near the stalling attitude. Furthermore, the 
separated vortex flow phenomenon is not restricted to this type of wing 
planform but is a general characteristic of all sharp leading-edge wings 
regardless of their leading— edge sweep angle. 

The attached flow and separated vortex flow over blunt and sharp lead- 
ing edge wings respectively are schematically illustrated in Figure 2.05. 

For the attached flow (blunt leading edges) there exists a net thrust force 
which is called the leading edge suction. This force may be interpreted to be 
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exerted by the bound vortex filaments at the leading edge. For sharp leading 
edges, attached flow cannot exist because of the infinitely large velocity 
and low pressure required, and therefore, the flow separates locally dis- 
placing the leading edge bound vortex filaments into the cavity formed by the 
separated flow. The vortex filaments in the cavity are not free vortices and 
therefore they will exert a net force in the normal direction to the wing 
surface because of the reorientation of the velocity vector. 

Exact analytical solutions for sharp leading edge wings with leading 
edge separated flow are available in the published literature for a very re- 
strictive range of wing geometries Usually these solutions are based 

on the assumption of conical flow, and as a consequence, only perfect delta wing 
planforms which feature no twist, no camber, and straight trailing edges 
can be considered. Therefore, in the prediction of the vortex lift for 
arbitrary sharp leading edge wing planforms, only empirical methods or 
approximate theory is available. The most successful analytical techniques 
are based on the vortex-lift leading-edge suction analogy. The method is 
based on the assumption that the vortex lift vector can be estimated trom the 
leading edge thrust or suction force associated with the flow over the wing 
planform without separated flow at the leading edge. It follows (see 
Figure 2.05) 



c 


cos 



) 



( 2 . 6 . 01 ) 


Ac 


tv 


( 2 . 6 . 02 ) 


^^TQv(c/ 4) 





^(C/4) 

C 


) 


(2.6.03) 


Act = ACt, cos (a) + Act„ sin (a) 

V ‘•‘V V 

Acd = - Act cos (a) + Ac„ sin (a) 

V v V 

These increments represent the force and 
lift which must be added to each lifting 


(2.6.04) 

(2.6.05) 

moment coefficients due to the vortex 
surface section coefficients in order t 
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obtain the net forces on the wing corresponding to the case of no leading edge 
suction. In the derivation of these relations, the vortex lift distribution 
has been assumed to act at the leading edge and normal to the wing chord plane. 

Because of the approximate manner in which the leading edge suction thrust 
coefficient is calculated the evaluation for the vortex lift effects are only 
applicable to lifting surface planforms having a flat chord plane. Note that 
the thrust coefficient is calculated by integration of the forces in chordwise 
strips acting in all the bound vortices of the vortex- lattice matrix. Such an 
integration will provide accurate evaluations of the leading edge thrust if 
the chord plane is flat or if a very large number of chordwise rows are con- 
sidered. If an infinite number of chordwise rows are considered, the vortex- 
lattice method will provide solutions equivalent to the potential flow solutions 
and an exact evaluation of the leading edge suction force will result. In the 
latter case, the leading edge suction thrust coefficient could be evaluated from 
the force exerted by a few of the leading edge bound vortices. 

The spatially integrated wing coefficient increments due to the leading 
edge vortex lift are calculated from the wing section coefficient span dis- 
tributions given in Equations 2.6,01 through 2.6.05, as follows 




1 

S 


= 



Acl 
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Acd 

V 


C dY 


C dY 


(2.6.06) 


(2.6.07) 


^%,v(C/4) 



(\e - ’'(C/^) 

^ "'tv - 2 (c/4)) 


C dY 


(2.6.08) 


For obtaining approximate solutions of the vortex lift at selected wing angles 
of attack from two or more exact vortex lattice solutions, the following 
assumption is made which yields accurate results 
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(2.6.09) 


n^(Y,a) ^l(Y) ^2(Y) . 


t^(Y,a) ^3(Y) ^A(Y) “ 


( 2 . 6 . 10 ) 


The quantities C 2 > C^, and are constants which are evaluated from the 

two vortex lattice solutions obtained at different angles of attack 
and in the manner described in Section 2.5. 

2.7 Surface Discontinuities 


Surface discontinuities occurring in the wing surface such as those 
encountered at the aileron-flap juncture cannot be treated exactly by the 
vortex lattice solution technique. Although by increasing the number of 
elements or control points the accuracy of the solutions should in principle 
be improved, sharp discontinuities in the surface may cause local oscillations 
on the solutions that become more severe as the number of elements are in- 
creased. To circumvent this problem, a cosine smoothing option whose effect 
is illustrated in Figure 2.06 has been adopted. The affected span length <5 
is prescribed by the program user as an execution input. A value of 1/5 of 
the semispan is recommended. In addition, various other options for spacing 
the elements in the spanwise and chordwise directions have been made avail- 
able. These include constant spacing, cosine spacing, and spacing prescribed 
as an execution input. For deflected control surfaces, a minimum of four 
elements of approximate equal size per chordwise row is recommended, the last 
element corresponding to the deflected surface. 


The airload section coefficients for the flapped surfaces are calculated 
in a similar manner to the wing section coefficients (Section 2.4). By con- 
sidering only the forces on the bound vortices on the flapped surfaces 
(X^-X, ,) it follows 




AS 


Y. 




(2.7.01) 


"^t^(Y) 



Y. 


(2.7.02) 


2-17 



(2.7.03) 


C 




p AS. 


1 J 

) 


AS 


+ 


Z.J AY 




'^Jlf(Y) “ ^n^(Y)Cos(a) + c^^^Y)sln(a) 


(2.7.04) 


*^di^f(Y) + ^n^(Y) sin (a) 

(2,7.05) 

For obtaining approximate solutions (see Section 2.5) 
assumptions are made 

the following 

^f(Y»a) = ^2(Y) “ 

(2,7.06) 

j(Y.a) . " 

(2.7.07) 

hj(Y,a) = F^^y) ^6(Y) “ 

(2,7.08) 


The quantities , F^, .. F^ are constants which are evaluated from two exact 
vortex lattice solutions obtained at different angles of attack, and a^* 

2,8 Lift in the Presence of a Fuselage 

Two options for calculating the lift in the presence of a generalized 
cylindrical— shaped fuselage are possible: 

1) Analytical Method - Circular Shaped Fuselage 

In this method the effect of a circular shaped fuselage of radius R and of 
infinite length is analyzed by the method of images. According to the hydro- 
dynamic theory, the boundary conditions of zero normal flow to the fuselage 
surface due to wing trailing vortices are satisfied by defining a pair of 
vortex filament images inside the fuselage. Since the free stream velocity 
vector is neglected in satisfying the boundary conditions on the fuselage, 
only approximate solutions which are valid at small angles of attack are 
obtainable (i.e,, the fuselage attitude is oriented parallel to the wing 
trailing vortices). Using cylindrical coordinates with the axis of symmetry 
located at the center of the fuselage, the location of the pair of images 
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for a wing trailing vortex filament is determined from 


Image # 1 


Image // 2 ^ 



(63) 

(64) 

(65) 


where X 
r 

r 


} the coordinates and circulation strength at a point in a 
wing trailing vortex filament. 


The calculation of the induced velocity of the pair of images is performed 
by integration in the manner outlined in Section 2.3 from which the calcula- 
tion of the induced velocity vector influence functions follows. 

The effect of the presence of a circular shaped fuselage on the wing 
bound vortices cannot be determined by exact analysis except under very re- 
strictive assumptions for the wing geometry. Therefore, a relatively simple 
and approximate approach has to be adopted. The effect of the presence of 
the fuselage on the velocity induced by the bound vortices is assumed to be 
the same as its effect on a two-dimensional uniform rectilinear flow. Thus, 
the velocity component induced by the bound vortices at some point P in the 
flow field is increased by a factor 



(2.8.04) 


which is an exact correction for a straight and infinite bound vortex line 
intersecting the cylinder axis of symmetry at 90®. The approximation will 
be valid for wings having small sweepback angles and slender fuselages 
centered at the wing axis of symmetry. 


tThe sum of the contribution of images #2 will be zero for symmetric wing 
loadings . 
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2) Vortex-Lattice Method - Arbitrary Shaped Fuselage 

The effect of the presence of an arbitrary shaped fuselage on the wing 
lift can be calculated using the vortex lattice method. h The accuracy of the 
solutions that are obtained depends on the selection of the number of control 
points and their location on the fuselage surface. For accurate calculation 
of the fuselage it would probably require an equal or larger number of con- 
trol points on the fuselage surface than the number used for the wing. The 
main advantages of using the vortex-lattice method in preference to other 
analytical methods (e.g., the method of images) are: (1) non-planar wings of 
arbitrary planform may be analyzed, (2) no restriction is placed on the cross 
section, length or shape of the fuselage, and (3) the accuracy desired for 
obtaining solutions can be obtained by increasing the number of panels or by 
varying the location of the control points at the surface of the fuselage. 

In the present vortex-lattice program (HAOlOB) , the treatment of exact fuselage- 
wing vehicle configurations is severely limited by the total number of elemental 
vortex-filament surfaces (about 100) that can be considered simultaneously. 

At present, only by an approximate representation of the fuselage (e.g., by 
defining an equivalent flat surface) can the fuselage-wing configurations be 
analyzed by the program. 

2 . 9 Program Qualification Tests 

The vortex lattice method is suitable for determining accurate solutions 
for the aerodynamic loads on lifting surfaces of arbitrary planforms. Never- 
theless, for conventional wing planforms featuring negligible dihedral and 
small camber, generally more exact analytical solution methods based on the 
integral lifting surface^^^ and lifting line theories^^^^ are available. 

These solutions and equivalent experimental test results have been used to 

( 8 ) 

demonstrate the accuracy of the present vortex-lattice analytical method. '' ^ 

For wing planforms with severe surface discontinuities, only comparisons 

tit is a well known fact in hydrodynamic theory that the presence of arbitrary 
bodies immersed in a steady subsonic or supersonic flow field can be repre- 
sented by distributions of sources and sinks inside the volume occupied by 
the bodies. Mathematically, the distributions of sources and sinks may be re- 
placed by distributions of doublets or vortex filaments located on the surface 
of the bodies. If the vortex filament representation is adopted (i.e., the 
vortex lattice method) , a rectangular vortex ring for each panel in the sur- 
face of the bodies is defined with the corresponding control points located 
at the center of each panel. 
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against available experimental test results can be performed. In general 
it should be noted that: (1) the vortex lattice solutions are affected by the 

number of surface elements, the location of the control points, and the geo- 
metric arrangement of the vortex lattice network which are input quantities 
prescribed by the program users, (2) for conventional wing planforms with 
moderate aspect ratio and moderate dihedral and sweepback angles, the lift- 
ing line methods will provide more accurate solutions, and (3) when the wing 
surface is placed very near a ground plane, large differences in the span and 
chord lift distributions in comparison with out-of-ground conditions occur; 
therefore, ground effects can only be properly analyzed by the integral lift- 
ing surface or the vortex lattice method. In the lifting line method the 
local section aerodynamic characteristics are assumed to depend only on the 
airfoil section properties for two dimensional flow (i.e. , infinite aspect 
ratio) which are generally determined from wind tunnel tests. In 
the presence of a very near ground plane this assumption is not valid. 

2,9.1 Vortex-Lattice Geometry and Control Point Locations 

The effect of varying the vortex lattice geometric arrangement for a 
fixed wing planform on the solution of the spatially integrated wing airload 
coefficients is demonstrated in Table 2.01. Predictions are presented for 
a delta wing planform of aspect ratio of two. Both constant spacing and 
cosine spacing of the elements in the spanwise and chordwise directions are 
considered. Nevertheless, the differences between solutions on the integrated 
wing coefficients is found to be negligible, i.e., within one percent. On 
the other hand, the variation of the vortex lattice arrangement due to constant 
and variable (cosine) spacing of the elements shows a significant effect o^ 
the predictions for the spanwise section lift distribution in the region near 
the wing tip (see Figure 2.07). Based on the results presented, it is con- 
cluded that constant span spacing of the elements provides more reasonable 
solutions than variable spacing for wings of low aspect ratio ('^ 2) . For 
moderate to high aspect ratio wings, the opposite is found to be true. As a 
general rule, accurate solutions are obtained by selecting not less than 
ten spanwise elements and not less than four chordwise elements. The spacing 
of the elements should be such that adjacent elements have approximately equal 
size and equal configuration. Furthermore, the accuracy of the predicted 
spatially integrated wing coefficients depends primarily on the total number 
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of elements considered , i. e . , errors in the calculated local airload co- 
efficients will cancel out in the integration process. 

The effect of varying the control point locations on the wing integrated 
airload coefficients for a delta wing of aspect ratio of two is presented in 
Table 2.02. As shown in the table, by moving the control points aft of the 
3/4 chord of the panels, an increase in the wing airloads and a forward shift 
of the center of pressure results. Similar conclusions are drawn for wings 
of moderate aspect ratio and negligible sweepback angles (see Table 2.03). 
Although for the low aspect ratio delta wing planforms better agreement be- 
tween analytical and experimental solutions are obtained with the control 
point locations aft of the 3/4 chord of the panels, the best control point 
location which provides accurate results for any wing planform is considered to 
be at the 77 percent of the elemental chords. 

2.9.2 Wings of Moderate Aspect Ratio and Negligible Sweepback 

Three different basic wing planforms of aspect ratio of six having 

no twist and zero sweepback at the 1/4 chord are considered. Solutions for 

the integrated wing airload coefficients using the present vortex lattice 

program and the lifting line theory ^ are compared in Table 2.03. The 

lattice network arrangements and corresponding section lift distributions for 

the vortex lattice solutions are shown in Figure 2,08. The comparison of the 

calculated span loadings for the rectangular and the straight tapered wings 

(20 21 ) 

against lifting line semi-empirical predictions ’ is presented in 

Figure 2.09. A qualitative evaluation of results shows that the program pre- 
dictions are in good agreement with the lifting line exact theory and the 
lifting line semi-empirical predictions. 

2.9.3 Wings of Low Aspect Ratio and Large Sweepback 

Wing planforms of low aspect ratio having no twist and large leading 
edge sweepback angles for which comprehensive wind tunnel test data are 
available are considered. * The range of wing planforms includes delta, 

clipped delta, and straight tapered configurations of aspect ratios ranging 
from two to four and leading edge sweepback angles as large as 60° (see 
Table 2.04). The airfoil sections are relatively thin ('^ 3 percent) with 
sharp or rounded nose sections. Under these conditions locally separated 
flow at the wing leading edge with the accompanying vortex lift and loss of 
leading edge suction force occurs. Analytical solutions for the wing plan- 
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forms were generated by the program assuming no separated flow and fully sepa- 
rated flow at the leading edges. Analytical predictions for the integrated 
airload coefficients are compared with the experimental test results in 
Table 2.04. Comparisons for a range in angle of attack from 0° to 25“ are 
shown for four representative wing planforms in Figures 2.10 through 2.12. 
Comparisons of the lift distribution on the lifting surface for a delta wing 
planform are presented in Figure 2.13. The analytical solutions in the table 
and tVie figures were calculated assuming a control point location of 77 percent 
of chord for the elemental panels. An evaluation of the overall results leads 
to the following conclusions. 

1) The analytical solutions for the integrated wing lift coefficients 
are found in excellent agreement with the wind tunnel test results 
(Figure 2.10). In general, the analytical solutions with and without 
leading edge suction bound the experimental results. 

2) Analytical solutions for the wing drag coefficients when compared 
with the experimental results, although in less agreement, showed the 
same trends as for the lift (Figure 2 , 11) . 

3) The analytical solutions for the Integrated wing pitching moment 
coefficients about the 1/4 of the mean geometric chord are not 
found to be in good agreement with the wind tunnel test results 
(Figure 2.12). Differences of the order of 25 percent are encountered 
for the delta wing planform of aspect ratio of two and somewhat 
smaller for the other wings. The reasons for the discrepancies 
encountered for the pitching moment probably arise from two sources. 
First, the test data for the wings were deduced from tests conducted 
for wings with a slender fuselage. To obtain the characteristics of 
wing alone, data for the fuselage alone was subtracted from the wing- 
fuselage data and, as a result, the wing-fuselage interference effect 
was neglected. Second, for the delta wing configurations the calcu- 
lated lift in the tip regions is extremely large while in the real 
test environment stalling in these regions would surely occur. This 
would result in a redistribution of the vorticity on the wing upper 
and lower surfaces which cannot be represented accurately by the vor- 
tex lattice theory (see Figure 2.13). In addition, it should be 
noted that the pitching moment error for the C/4 location is somewhat 



misleading in assessing the accuracy of the vortex lattice method 
since at this location the magnitude of the pitching moment is of 
zero order, i.e., more than an order of magnitude smaller than the 
wing lift coefficient. The error in the pitching moment predictions 
for the C/4 location (figure 2.12) represents a difference of about 
2,5 % of C on the location of the center of pressure at moderate 
angles of attack (a < 5*^) that is equivalent to about 1% of the 
maximum chord length of the wing. Another point worth noting is that 
the vortex lift was found to be many times smaller than the wing lift 
calculated by the vortex lattice method. Therefore, the approximate 
treatment of the vortex lift by the suction analogy is considered 
satisfactory in detemining the net airload sum for the wing. 

2,9.4 Ground Effects 

Analytical solutions that include the ground effects are obtainable 
by the method of images by assuming the ground plane to be perfectly flat and 
of infinite extent. Under these conditions, the boundary requirements for the 
flow at the ground plane are exactly satisfied by defining a wing image 
located directly below the wing at a distance equal to twice the altitude from 
the ground plane. For altitudes equal or greater than one chord length, the 
lifting line and the lifting surface analytical techniques provide comparable 
and accurate solutions to the problem. When the altitude from the ground 
plane is diminished below the one— chord length, the chordwise distribution of 
circulation is very strongly affected by the presence of the ground plane. 

In this range of altitudes, only the lifting surface methods such as the 
vortex lattice analysis technique can be expected to provide accurate solutions. 

The accuracy of the present program for predicting ground effects may 
be demonstrated by comparing analytical solutions against lifting line pre- 
dictions^^^* and experimental test results. In accomplishing these 
objectives, ground effects were calculated for three different wing planforms 
for which comprehensive wind tunnel test and/or flight data are available. 

A comparison of results is shown in Figure 2.14. In examining the figure, the 
following observations are made: 

1) For the rectangular wing planfonn of aspect ratio of six shown in 
the figure (Figure 2,14[A]), the program predictions of the ground 
effects are found to be in perfect agreement with the flight test 
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data 

line 


( 26 ) 

for the range of altitudes tested. As expected, the lifting 

(25 26) 

theory' * is inaccurate very near the ground plane (H/C 1) 


2) For the straight tapered wing of aspect ratio of ten (Figure 2.14[B]), 

the program predictions are found in very good agreement with the ex- 

(27) 

perimental data obtained in the wind tunnel. Again, at distances 

very near the ground plane, the lifting line theory proves to be 
inaccurate. An illustration of the corresponding variation of the 
span lift distribution due to the ground effects is also shown in the 
figure. 


3) For a delta wing of aspect ratio of 2.309 (Figure 2,14[C]), the 

present program predictions are compared with semi-empirical results 
(28) 

reported by Fox. The analytical predictions of the ground effects 

by the program are found not to be in very good agreement with these 
results. However, the accuracy of this data is suspected since the 
wing lift coefficient out-of -ground is found to be about 20 percent 
larger than reported by other investigators for comparable delta 
wing planforms operating at the same angle of attack^^^’ (see 

Figure 2.10, Configuration Cl). 


2.9.5 Wings of Unusual Planforms 


Analytical predictions of the aerodynamic characteristics for wings 

having large sweepback angles and unusual planforms obtained by the present 

(29 30) 

program and the lifting line theory * are compared in Figures 2.15 and 

2,16. In the first figure, the span loading distribution predictions for 
three different wing planforms of aspect ratio of six having continuous and 
broken sweepback of 45*^ at the 1/4 chord are presented. In all three cases 
good agreement is found between the vortex lattice and the lifting line pre- 
dictions. Although the larger discrepancies are. found at the root region, the 
small differences encountered in the span loading predictions are probably 
due to the greater accuracy of the vortex lattice method for representing the 
real problem- Predictions for the lift slope and the location of the center 
of pressure on the wing surface also shown in the figure are found to be in 
good agreement. In the second figure (Figure 2,16), predictions of the effect 
of varying the sweepback angle on the wing lift slope for straight tapered 
wings of aspect ratio of six are compared. Again, a comparison between the 
vortex lattice and lifting line solutions are found to be in good agreement. 
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2, 9.6 Wings With Severe Surface Discontinuities 


The accuracy of the present vortex lattice program for analyzing wing 
planforms having severe surface discontinuities is considered in this section. 
Such discontinuities arise from two sources: (1) sharp discontinuities in 

the wing surface such as: abrupt changes in the wing dihedral, the presence 

of wing-tip end plates, boundary layer flow fences, etc. , and (2) trailing 
edge surface discontinuities arising from large deflections of control devices 
such as flaps or ailerons. The solutions for one example of each of these 
types of discontinuities is considered and compared against experimental 
results or other theoretical solutions. 

1) Wing of Aspect Ratio of Four with End Plates 

The exact analytical treatment of arbitrary wing planforms with end 

plates at the tip can only be performed using the exact geometry (no 

linearization) in prescribing the boundary conditions. The problem 

presents the most severe test for the analytical method because of 

the very large velocities induced in the spanwise directions by the 

end plate bound vortex filaments. Analytical predictions performed 

(31) 

by the present program are compared with experimental results 
for a rectangular wing of aspect ratio of four with large end plates 
in Figure 2.17. The analytical results showed a stronger effect of 
the end plates on the wing lift (about 30 percent larger) than ob- 
tained in the wind tunnel experiments. This discrepancy is probably 
due to the presence of separated flow in the corners of the wing-end 
plate junctures which would account for the loss of lift. 

2) Straight Tapered Wing of Aspect Ratio of Six with Flapped Surfaces 

A straight tapered wing of aspect ratio of six having simple trail- 
ing edge flapped surface of 25 percent of chord is considered. The 
flapped surfaces are assumed to be constituted by the wing flaps and 
the ailerons which extend from the root to the 62.5 percent and from 
the 62.5 percent wing station to the tip respectively (see Figure 2.18). 
Analytical solutions were obtained by the program for symmetric and 
unsymmetric span loadings. Symmetric span loadings were calculated 
for the wing operating with the flaps extended 30® and the ailerons 
neutral, and unsymmetric span loadings, by assuming unequal aileron 
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deflections of 10° down and 15° up for the left and right ailerons 
respectively. The handling of the flap-aileron junction surface 
discontinuity was treated using the smoothing procedure described 
in Section 2,7 using 6/'(b/2) value of 0,20, A summary of the princi- 
pal results obtained were plotted using the program standard plotting 
option and are presented in Figure 2,18. A comparison between the 
results obtained and the lifting line and thin airfoil theory analyt- 
ical predictions are presented in Table 2.05. As shown in the 
table, the vortex lattice method predictions for the airload incre- 
ments due to the flapped surface deflections are found to be smaller 
than by the other method. The discrepancies in the results probably 
are due to the fact that in the present vortex lattice method the 
exact geometry of the wing section camber distributions are con- 
sidered while for the other method (thin airfoil theory) approximate 
geometric boundary conditions (which are valid only at very small 
flapped surface deflections) are used. The fact that the vortex 
lattice predictions for the wing airloads increments are smaller is 
a most revealing result. Note that solutions obtained based on 
thin airfoil theory usually overestimate the effect of the flapped 
surfaces by about 20 percent. 

2.9.7 Multiple-Surface Configurations 

The accuracy of the present vortex-lattice analysis program in ob- 
taining solutions for vehicle configurations that are represented by two or 
more lifting surfaces is to be evaluated in this section. Typical example 
configurations under this category are: wing + horizontal tail (2 surfaces), 

wing + canard control surface (2 surfaces), thick wing (2 surfaces), wing + 
horizontal tail + vertical tail + fuselage (A surfaces), lifting body (2 or 
more surfaces), etc. The significant characteristic of the multiple-surface 
problem is the mutual influence or interference effect that each surface 
exerts on all the other surfaces. Such problems can only be properly 
analyzed by the vortex-lattice and surface-integral^^^ methods. In de- 
termining the accuracy of the present analysis, analytical predictions were 
performed for three representative vehicle configurations for which wind- 
tunnel or flight data of sufficient quantity and accuracy is available. The 
results obtained, a comparison between analytical predictions versus experi- 
mental data, are presented in Figures 2.19 through 2.21. The vehicle con- 
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figurations and type of experimental data sources studied were as follows: 

1) out-of-ground wind tunnel tests conducted for a wing + canard surface + 

slender fuselage model in Reference 32, 2) flight test data in and out of 

ground conducted for the Douglas F5D— 1 prototype airplane with a modified 
(33) 

ogee wing, and 3) flight test data in- and out-of-ground for the North 

(33) 

American XB-70 Airplane, In examining the comparisons presented in 

the figures, it must be concluded that the present vortex-lattice analysis 
method is capable of predicting the aerodynamic loads within a few percent 
(1 percent to 5 percent) of the experimental results. The details of the 
technical evaluation that led to this conclusion are discussed below. 

1) Out-of -Ground Predictions 

Analytical predictions for lift, induced drag, and pitching moment 
for the wing-canard-fuselage model are compared against wind tunnel 
test results in Figure 2.19. The predictions for the lift co- 
efficient are found to be in remarkable agreement with the test 
data, i.e. , within one percent. This result was obtained not- 
withstanding of the very strong mutual interference effect that 
the canard surface exerts on the wing that is predicted by the 
analysis (see Table 2.06). The induced drag predictions are 
also found to be in very good agreement with the test data, 
especially if it is taken into account the fact that the 
magnitude of the induced drag force is much smaller (by a 
Factor of "x. lO) in comparison with the lift force. Similarly, 
comparisons for the pitching moment are given about the C.G. 
and the trailing-edge of th-e wing root chord. Although a very 
large discrepancy is found between the predicted and the test 
data for the pitching moment when expressed about the C.G., the 
scale of the pitching moment here is very small and misleading. 

By expressing the pitching moment about the aftermost location of 
the wing surface, the trailing-edge of the wing root chord, a 
more meaningful evaluation of results is possible. This fact can 
be corroborated by calculating the discrepancy of the location of 
the center of pressure that reveals the cause for the discrepancy 
in the pitching moment. Accordingly, the predicted location of 
the center of pressure when compared against the test data is off 
by about ten percent of the wing C, or, about three percent of the 
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model length. Since varying the vortex-lattice arrangement or the 
number of control points showed no significant change on the pre- 
dictions, it is concluded that the analytical predictions repre- 
sent an exact solution. Then, the small discrepancy encountered 
in the pitching moment (Figure 2.19d) or center of pressure lo- 
cation can only be attributed to wind tunnel test measurement 
errors or to the fact that the exact geometry of the wind tunnel 
model was only approximately represented by the vortex— lattice 
arrangement used in carrying out the calculations of analytical 
predictions . 

2) In-Gr ound-Pr edi ct ions 

Analytical predictions for the lift of full-size vehicles in 
flight in the presence or absence of a very near ground plane 
are compared against flight test data in Figures 2.20 and 2.21. 
In general, relative good agreement is found between the analytical 
predictions and the flight test data. Although better agreement 
is found for the out-of-ground comparisons, this finding is not 
surprising when considering the great difficulties encountered in 
obtaining accurate data very near the ground plane. Corrections 
on the lift due to varying control surface deflections, jet thrust, 
etc. , that include the ground effect are difficult to assess and 
are generally ignored. 
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TABLE 2.01 - VORTEX^LATTICE GE0J1ETRY EFFECT ON THE CALCULATED WING AIRLOADS (PROGRAM HA010B) 
FOR A DELTA HING OF ASPECT RATIO = 2, OPERATING AT a = 10° AND M = 0.25 




VOE 

TEX 

MATRIX 

GEOMETRY 


WITH L. E. SUCTION 
(BLUNT L. E.) 

NO L. E. SUCTION 
(SHARP L. E.) 

EXECUTION 

TIME 


NO. SPAN 
ELEMENTS 

SPAN 

SPACINGt 

NO. CHORD 
ELEMENTS 

CHORD 

SPACINGt 

TOTAL NO. 
ELEMENTS 


s, 

1 

^M(C/4) 


S. 

1 

S(C/4) 

SECONDS t 

1 

14 

0 


5 

0 

70 

0.3708 

0.0476 

-0.0825 

0.4071 

0.0722 

-0.0882 

39 

2 

14 

1 


5 

0 

70 

0.3765 

0.0472 

-0.0845 

0.4149 

0.0735 

-0.0905 

38 

3 

14 

. 0 


5 

1 

70 

0.3717 

0.0488 

-0.0801 

0.4074 

0.0729 

-0.0860 

39 

4 

14 

1 


5 

1 

70 

0.3770 

0.0478 

-0.0830 

0.4152 

0.0739 

-0.0890 

39 

5 

20 

0 


5 

0 

100 

0.3739 

0.0486 

-0.0827 

0.4098 

0,0729 

-0.0885 

73 

6 

20 

1 


5 

0 

100 

0.3765 

0.0483 

-0.0843 

0.4141 

0.0734 

-0.0904 

73 

7 

20 

1 


5 

1 

100 

0.3772 

0.0495 

-0.0818 

0.4137 

0.0738 

-0.0881 

74 

8 

14 

1 


9 

0 

136 

0.3752 

0.0477 

-0.0837 

0.4127 

0.0733 

-0.0895 

106 


t LEGEND 

1 = COSINE SPACING 
0 = CONSTANT SPACING 

t EXECUTION TIME INCLUDES 
LINEAR ARRAY SOLUTIONS 





TABLE 2.02 - VORTEX-LATTICE CONTROL POINT LOCATION EFFECT ON THE CALCULATED HING AIRLOADS (PROGRAM HA010B) 
FOR A DELTA WING OF ASPECT RATIO = 2, OPERATING AT a = 10° AND M = 0.25 


LOCATION OF CONTROL POINT 
% OF ELEMENT CHORD 

75% 

80% 

B3% 

77% 


NO. SPAN ELEMENTS 

14 

14 

14 

14 

VORTEX MATRIX 

SPAN SPACINGt 

1 

1 

1 

0 

GEOMETRY 

NO. CHORD ELEMENTS 

5 

5 

5 

5 


CHORD SPACINGt 

0 

0 

0 

0 


"l 

0.3673 

0.3908 

0.4044 

0.3708 

WITH L. E. 
SUCTION 

S. 

1 

0.0462 

0.0527 

0.0568 

0.0476 

(BLUNT L. E.) 

■ 

Sl(C/4) 

-0.0846 

-0.0838 

-0.0823 

-0.0825 



0.4051 

0.4359 

0.4602 

0.4071 

NO L. E. 
SUCTION 

1 

0.0714 

0.0769 

0,0812 

0.0722 

(SHARP L. E.) 

^M(C/4) 

-0 . 0903 

-0.0892 

-0.0385 

-0.0882 


tLEGEND 

1 = COSINE SPACING 
0 * CONSTANT SPACING 





TABLE 2.03 - WING AIRLOAD PREDICTION COnPARISONS FOR WING PLANFORHS OF MODERATE ASPECT RATIO 



GEOMETRY 


AERO COEFFICIENTS AT a = 10% M 

= 0 

ANALYSIS 

PLANFORM 

ASPECT 

RATIO 

TAPER 

RATIO 

SWEEP 

A(C/4) 

''l 

^M(C/4) 

S. 

1 

WING LIFT 
SLOPE 
C^ /DEG 

WING A. C. 
^ C 


RECTANGULAR 

6 

1 

0 

0.7567 

0.0004 

0.0355 

0.07567 

24.99 

TRW VORTEX -LATTICE METHOD 










(PROGRAM HAOlOB) 

TAPERED 

6 

1/3 

0 

0.7795 

0.0031 

0.0367 

O.D7795 

24.59 

CONTROL POINT AT 757 

ELLIPTICAL 

6 .04 

0 

0 

0.7865 

-0.0211 

0.0377 

0.07865 

27.71 

(18) 

NACA REPORT NO. 631 

RECTANGULAR 

6 

1 

0 

0.7870 

0 

0.0345 

0.07870 

25.00 

SECTION LIFT SLOPE 
a = 2 tt X 57.3 

TAPERED 

6 

1/3 

0 

0.8195 

0 

0.0363 

0.08195 

25.00 

o 

ELLIPTICAL 

6 

0 

0 

0.8220 

0 

0.0358 

0.08220 

25.00 


RECTANGUTAR 

6 

1 

0 

0.7779 

0.0068 

0.0373 

0.07779 

24.12 

TRW VORTEX-LATTICE METHOD 
(PROGRAM HAOlOB) 

TAPERED 

6 

1/3 

0 

0.8011 

0.0097 

0.0387 

0.08011 

23.78 

CONTROL POINT AT 77% 

ELLIPTICAL 

6.04 

0 

0 

0.8081 

-0.0149 

0.0398 

0.08081 

26.84 

(18) 

NACA REPORT NO. 631 

RECTANGULAR 

6 

1 

0 

0.7286 

0.0044 

0.0295 

0.07286 

24.40 

SECTION LIFT SLOPE 
a = 0.099 

TAPERED 

6 

1/3 

0 

0.7564 

0.0045 

0.0307 

0.07564 

24.40 

(NACA0012 AIRFOIL) 

ELLIPTICAL 

6 

0 

0 

0.7610 

0.0046 

0.0307 

0.07610 

24.40 





TABLE 2.04 - WING AIRLOAD PREDICTION COMPARISONS FOR WING PLANFORMS OF MODERATE ASPECT RATIO AT g= 5° 


CONFIGURATION 

TEST CONDITIONS 

analysis’^ (PROGRAM HADIOB) 

EXPERIMENT 

WING AIRLOAD COEFFICIENTS 

C. P. LOCATION 

PLANFORK 

ASPECT 

RATIO 

TAPER 

RATIO 

SWEEP ANGLE 
A{C/^() 

AIRFOIL 

SECTION 

MACH 

NUMBER 

REYNOLDS 

NUMBER 

WITH L. E. 

SUCTION 
(BLUNT L. E.) 

NO L. E. 
SUCTION 
(SHARP L. E.) 

NACA RM 
A53A30 

^L 

S. 

1 

Sl(C/4) 

% C 

DELTA 

2 

0 

56.0° 

NACA 

0003-63 

0.25 

16.6 X 10^ 

X 



0.1349 

0.0193 

-0.0423 

47.87 


X 


0.1941 

0.0248 

-0.0435 

47.41 



X 

0.1830 

0.0165 

-0.0333 

43.19 

DELTA 

3 

0 

45.0“ 

NACA 

0003-63 

0.25 

10.6 X 10^ 

X 



0.2433 

0.0210 

-0.0412 

41 .93 


X 


0,2547 

0.0304 

-0.0422 

41.56 



X 

0.2390 

0.0200 

-0,0332 

38.89 

DELTA 

k 

0 

37.0“ 

3% THICK 
ROUNDED 
NOSE 
SECTION 

0.25 

4.1 X 10^ 

X 



0.2893 

0,0215 

-0.0384 

38.27 


X 


0.3029 

0.034B 

-0.0391 

37.90 



X 

0.2830 

0.0255 

-0.0299 

35.56 

TAPERED 

3.08 

0.3S 

11.5“ 

3% THICK 
BICONVra 
SECTION 

0.25 

8.3 X 10^ 

X 



0.3104 

0.0216 

-0.0007 

25.22 


X 


0.3214 

0.0362 

+0.0023 

24.28 



X 

0.2860 

0.0278 

+0.0121 

20.76 

TAPERED 

3 

0.^0 

40.6“ 

3% THICK 
BICONVEX 
SECTION 

0.25 

8.4 X 10^ 

X 



0.2615 

0.0213 

-0.0203 

32.76 


X 


0,2722 

0.0319 

-0.0186 

31.83 



X 

0.2710 

0,0275 

-0.0175 

31.45 

RECTANGULAR 

2 

I.O 

0“ 

3% THICK 
BICONVEX 
SECTION 

0.61 

4.4 X 10^ 

X 



0.3000 

0.0254 

0.0000 

25.00 


X 

... 

0.3109 

0.0352 

+0.0031 

24.00 



X 

0.2650 

0.0271 

+0.0150 

19.339 

CLIPPED 

DF.LTA 

2 

0.33 

37.0“ 

3/8 THICK 

BICONVEX 

SECTION 

0.61 

4.8 X 10^ 

X 



0.2800 

0.0295 

-0.0226 

33.07 


X 


0.2918 

0,0336 

-0.0204 

31,99 



X 

0.2600 

0.0310 

-0.0161 

31.92 


tCOLOCATION POINT LOCATION AT 77% OF ELEMENT CHORD 
AND c =0.007 WERE USED IN THE ANALYSIS, 
d 

o 
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TABLE 2.05 - COMPARISON OF CALCULATED AIRLOAD COEFFICIENT INCREMENTS DUE TO FLAP DEFLECTION 
FOR A 25% OF CHORD FLAPPED SURFACE 



SECTION COEFFICIENT INCREMENTS PER DEGREE OF FLAP 
DEFLECTION AT Y/(b/2) = O.AO 

Ac£/5^“ 

Acjn(C/A)/5f 

Ac^/fif 

Ach/5f 

VORTEX LATTICE METHOD 
(PROGRAM HAOlOB) 

O.OAO 

-0,01166 

0.0566 

-O.OIAO 

lifting line THEORY 
(WAKE II PROGRAM^^^) 

0.0672 

-0.01138 

O.OA87 

-0.016A 


Note: The results presented were calculated for a 25% chord flap deflected 30° with 

the wing operating at zero angle of attack (See Figure 2,18). 


TABLE 2.06 - MULTIPLE-LIFTING-SURFACES INTERFERENCE EFFECT PREDICTIONS (HA0010B) 
FOR A SELECTED WING-CANARD-FUSELAGE CONFIGURATION (SEE FIGURE 2.19) 



WING LIFT COEFFICIENT C, BASED ON S AND a = 12.5® 

L ir 

7T 


WING 

S = 694.18 

TT 

CANARD 
S = 113.04 

TT 

CENTER FUS 
S =17.53 

TT 

FUS NOSE 
S = 26.44 

71 

SUM AT C.G. 

S = 694.18 

11 

WKIG ALONE 

0.7091 




0.7091 

CAf^ARD ALONE 


0.5214 



0.0849 

WING + CANARD 

0.6694 

0.4129 



0.7366 

WING + CANARD + FUS 

0.6539 

0.3982 

0.1420 

0.1420 

0.7318 























FIGURE 2.01 


SKETCH OF A CHORDWISE ROW OF VORTICES 
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FIGURE 2.02 - GEOMETRY CONVENTION FOR A SKEW-SHAPED HORSESHOE VORTEX FILAMENT 
IN THE GENERAL COORDINATE SYSTEM 
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FIGURE 2,04 - GEOMETRY CONVENTION FOR A SKEW-SHAPED HORSESHOE VORTEX FILAMENT 


DEFINED IN THE LOCAL COORDINATE SYSTEM 
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FIGURE 2.08 - LIFT DISTRIBUTION PREDICTIONS (PROGRAM HA010B) FOR FOUR BASIC WING PLANFQRMS 
AT AN ANGLE OF ATTACK a = 10°, CONTINUED 
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FIGURE 2.10 - WING LIFT PREDICTION COMPARISONS FOR SELECTED LOW ASPECT RATIO WING PLANFQRMS 
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FIGURE 2.12 - PITCHING MOMENT ABOUT C/4 PREDICTION COMPARISONS FOR SELECTED LOW ASPECT RATIO WING PLANFORMS 









to 

t 

OS 



FIGURE 2. 14 - WING LIFT PREDICTION COMPARISONS IN THE PRESENCE OF A VERY NEAR GROUND PLANE 
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FIGURE 2.16 - SWEEPBACK ANGLE EFFECT ON 
THE MAGNITUDE OF THE WING-LIFT-SLOPE 
FOR TAPERED WING PLANFORMS OF ASPECT 
RATIO = 6 



FIGURE 2.17 - MING LIFT PREDICTION COMPARISONS FOR A RECTANGULAR WING 
OF ASPECT RATIO = 6 WITH END PLATES 
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FIGURE 2,18 - AIRLOAD PREDICTIONS (PROGRAM HAOlOB) FOR A SELECTED STRAIGHT-TAPERED WING PLANFORM 


WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS 








FIGURE 2.18 - AIRLOAD PREDICTIONS (PROGRAM HA01QB) FOR A SELECTED STRAIGHT^ TAPERED WING PLANFORM 
WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS, CONTINUED. 
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FIGURE 2,18 - AIRLOAD PREDICTIONS (PROGRAM HAOlOB) FOR A SELECTED STRAIGHT-TAPERED WING PLANFORM 


WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS. CONTINUED 
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HGURE 2.18 - AIRLOAD PREDICTIONS (PROGRAM HA010B) FOR A SELECTED STRAIGHT-TAPERED WING PLANFORM 


WITH GEOMETRIC TWIST DUE TO CONTROL SURFACE DEFLECTIONS, CONTINUED 



A) LIFT COEFFICIENT 



-4 -2 0 


C) PITCHING MOMENT COEFFICIENT ABOl.T CF.XTER OF OHAVITY 
(C.G. - 1/4 C" OF WING) 

1 1 1 1 —I 

0 2 4 6 8 10 . 12 i 
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D) PITCHING MOMENT COEFFICIENT ABOUT TRAILING EDGE OF WING 


B) INDUCED DRAG COEFFICIENT 


jD l-H 

/— 1 *v 


0 2 4 6 8 10 12 


O EXPERIMENT, NASA TM X-120^ 


WITH L.E. SUCTION' 


NO L.E, SUCTION 


TRW VORTEX-LATTICE METHOD 
(PROGRAM HAOlOB) 


10 12 14 


FIGURE 2.19 - MULTIPLE-SURFACE CONFIGURATION ANALYTICAL PREDICTIONS (PROGRAM HAD10G) 


COMPARED AGAINST WIND-TUNNEL TEST DATA 
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= FLIGHT DATA, NASA TN D-6053' 


A) FLIGHT IN THE PRESENCE OF A VERY NEAR GROUND PLANE 


r I FLIGHT DATA 
,0 1 NASA TN D-6053'' 


- - = WIND TUNNEL TEST' ' 

= DATCOM^^'^^ 

= TRW VORTEX- LATTICE METHOD 

(PROGRAM HAOlOB) 


R) Oirr-OF-GROUNL FLIGHT 



WITH L.E. SUCTION 
NO L.E. SUCTION 


TRW VORTEX- LATTICE METHOD 
(PROGRAM HAOlOB) 
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FIGURE 2.20 - MULTIPLE-SURFACE ANALYTICAL PREDICTIONS (PROGRAM HAOlOB) FOR THE DOUGLAS F5D-1 MODIFIED 


AIRPLANE WITH AN OGEE WING AND COMPARISONS AGAINST FLIGHT TEST DATA 



A) FLIGHT IN THE PRESENCE OF A VEKV NEAR GROUND PTANE 


B) OUT-OF-GROUND FLIGHT 


“ ■ \ FLIGHT DATA 

a = 9,3° NASA TN D-6053^^^^ 


WIND TUNNEL TEST 

,sA,rnAM(34) 


DATOOM 


TRW VORTEX- LATTICE METHOD 
(PROGRAM HAOlOB) 



- FLIGHT DATA, NASA TN D-6053 

WITH L.E. SUCTION | VORTEX- LATTICE METHOD 
NO L.E. SUCTION ( (PROGRAM IlAOlOB) 
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FIGURE 2,21 - MULTIPLE-SURFACE ANALYTICAL PREDICTIONS (PROGRAM HAOIQB) FOR THE NORTH AMERICAN XB-70 


airplane and comparisons against flight test data 




3 . 0 INPUT 


3. 1 General Directions for Program Input 

Five separate modes of execution are permitted for the TRW 
Vortex-Lattice Analysis Program //HAOlOB (N. SURFACE). These include: 

(1) two main execution modes for solving lifting-surface problems 
by the vortex-lattice method, i.e., SQT ISURF and NSURF execution, 

(2) two test execution modes for determing the accuracy of the 
matrix inversion procedure, i.e., XQT ISURFT and NSURFT execution, 
and (3) one auxiliary execution mode used for obtaining Calcomp 
or 4060-microfilm output, i.e., XQT TRWPLT execution. 

1) Main Execution Modes 

Two main execution modes are permitted: XQT ISURF and SQT NSURF. 

These modes are used to analyze single- or multiple- lifting surface 
configurations respectively. Punched cards are used as the input media. 
NAMELIST statements and formatted statements are used exclusively. The 
input data is classified into groups, i.e., Group /j^l, Group #2, Group #3, 
and Group #4. A brief description of the information contained in 
each group and the arrangement order for input is given below: 


Group No. 

Function 

Contents 

.Typg.. 

of Input 

n 

(START) 

Execution Mode Card 
Mode = ISURF or NSURF 

7/8 punch, space, 
XQT, space, mode 

”A" 

format 

n 

Job Identification 
(title) and Comments 

1. Job Title 
(1 card) 

2 . Comment s 
(3 cards) 

"A" 

”A” 

format 
f ormat 

in 

Job execution controls 
and solution specifi- 
cations 

Namelist 
• $ INPUT 

NAMELIST 

iih 

Job/Jobs Termination 

$ENDJj2teS 

"A" 

format 


(END) 

2) Test Execution Modes 

Two test execution modes are permitted: XQT ISURFT and SQT NSURFT. 

These two modes are used to determine the accuracy of the matrix in- 
version procedure for the ISURF and NSURF execution modes respectively. 

Only the execution mode card is required for input for the test 
execution modes, as follows: 
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3.1 General Directions for Program Input (Continued) 

Group No. Function Contents Type of Input 

//I Execution Mode Card 7/8 punch, space "A" format 

(OKLY) Mode = ISURFT or XQT , space, mode 

NSURFT 

3) Auxiliary Execution Mode 

One auxiliary execution mode is permitted; XQT TRWPLT. This exe- 
cution mode is contained in the second file of the program PCF tape 
and is used to generate Calcomp or 4060-microfilm output. The required 
input consists of the TRWPLT input instructions and a data tape. The 
description of the preparation of the input instructions is presented 
in Reference 35. The format and contents of the data tape which is 
generated in the execution of the main execution modes of the program 
is described under **Tape Output” in Section 5.3. 

In preparing the program input (the main execution inodes) the 
following conventions must be observed: 

1. The first input card per case should be placed immediately 
following the XQT MODE card for the first case or behind 
the last card of the previous case for multiple case input. 
Blank cards between cases or input data groups should not be 
included in the input data deck. 

2. For each case the arrangement of the input data must be 
ordered by groups, i.e., Group #1, Group #2, Group //3 and 
Group #4 . 

3. The last card of the input data deck is the end of jobs 
card (Group #4) . This card must have $ENDJ0BS on it only 
(Columns 2-9) . 

4. For namelist input, the first card must have the namelist 
on it only (i.e., $INPUT in columns 2-7). 

5. For namelist input, data cards must be punched between 
columns 2-80. Continuation cards may be freely used by 
starting on the. next line where the previous line left off. 
Every card must terminate with a comma (,). Variables that 
are input via NAMELIST must be dimensioned, for example: 

NSS(l) = 8, 

X(l) = 10, 15, 15, 20, 20, 20, 30, 
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3.1 General Directions for Program Input (Continued) 

There is no fixed order in which the variables are to be 
entered. They may be grouped at the user's discretion. 

The following abbreviations may be used for repeating fields 
in a table: 

X(l) = 10, 2*15, 3*20, 30, is equivalent to 

X(l) = 10, 15, 15, 20, 20, 20, 30 or 

X(l) = 10, XC4) = 3*20, X(2) = 2*15, ... etc. 

6. For namelist input, the last card must have $END on it only 
(Columns 2-5). 

7. Differentiation between similar looking characters: To avoid 

confusion due to the similarity in appearance of certain 
characters, the following rules should be followed: 

a. The alphabetic I is used as opposed to the numeric 1 
(one) . 

b. The alphabetic Z is written Z as opposed to the 
numeric 2 (two). 

c. The alphabetic 0 is written 0 as opposed to the 
numeric 0 (zero). 

The detailed input instructions and definitions of all input 
quantities for the program are presented in this section in the 
following sequence: 1) program input setup guide (Pages 3-8, 3-9), 

2) program input instructions (Pages 3-10 through 3-17), AND 3) 
an alphabetical list of all input quantities (Pages 3-18 through 
3-20) . In addition, the following information that is related to 
the preparation of the program input is found in the following 
sections or figures of this report: 

1) Vehicle Geometry Sign Convention: 
see Figure 3.01, Page 3-4. 

2) Vortex-Lattice Arrangement Restrictions: 
see Section 3.2. 


3) 

Input Card-Deck-Setup 

Examples : 


see example problems , 

Section 6 

4) 

Control Deck Setup: 



see Figure 7.02, 


5) 

Execution Time: 



see Section 7.2 
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3.1 General Directions for ProRram Input (Continued) 



FIGURE 3.01 - LIFTING-SURFACES INPUT GEOMETRY SIGN COHVENTinN 
(RIGHT HANDED COORDINATE SYSTEM) 


3- 





3.2 Vortex-Lattice Arrangement Restrictions 


The configuration of the vortex-lattice or arrangement of elemental 
panels that is specified in the input determines the validity of the 
solutions. In general, bad solutions are obtained when the number of 
elemental panels that determines the vortex- lattice arrangement is in- 
sufficient to properly represent the problem geometry. Other sources 
that lead to bad solutions are: the presence of sharp discontinuities 

in the lifting-surfaces geometry, unequal panel dimensions for adjacent 
elemental panels , and improper spacing of trailing vortices shed from 
forward surfaces that impinge on rear surfaces. The indicators that 
warn of the presence of bad solutions are: 

1. The drag calculated for the sum of the total number of surfaces 
considered in a solution is negative. Although, negative drag 
is not always a good indicator for bad solutions because its 
magnitude is generally much smaller than the lift and therefore 
subject to more severe numerical roundoff errors, positive drag 
is unquestionably always an indicator of a good solution, 

2. The calculated lift versus angle of attack curve is not smooth. 

The source of the errors that led to a bad solution can be de- 
termined by examining the magnitude of the calculated circulation 
for the vortex filaments or the spanwise lift distribution (see 
Figures 5.3 and 5.8), 

3. The calculated values for lift and drag are out of range, i.e., 
the solution blew. 

In the opposite side, a solution or a set of solutions may be considered 
to be good if by increasing the number of elemental panels or rearranging the 
configuration of the vortex-lattice by a small amount leads to a negligible 
variation of the magntude of the calculated airload coefficients. It should 
be noted that: "there is no shortcut or formula presently available that, if 

followed, will always guarantee the generation of good solutions." The 
program user should be aware of this fact and should follow good judgement 
based on experience in aerodynamics in assessing the validity of the vortex- 
lattice solutions that he generates. 
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3.2 Vortex-Lattice Arrangement Restrictions (Continued) 


As a guide to engineers using the vortex-lattice analysis method for the 
first time, the user should adhere to the following general directions: 

1. The larger the number of elemental panels used for representing 
a given lifting-surface configuration, the more accurate will be 
the solutions that will be obtained. 

2. Adjacent panels should be of approximately equal size and should 
have approximately the same configuration, i.e., the variation 
in size and configuration between adjacent panels should be as 
small as possible (Figure 3. 02 [A]). 

3. The width of panels in a column of one or more lifting surfaces 
should be exactly the same and must line up perfectly (Figure 
3.02[B]). This requirement arises because of the approximate 
representation of the vorticity distribution on the lifting 
surfaces by discrete-size vortex filaments that are used in the 
vortex-lattice method. Note that the trailing vortices must 
lie equidistant to the co-location points in a row of elemental 
panels downstream. As a special feature of the program (TRW 
Vortex-Lattice Analysis Program #HA010B) , the trailing vortices 
can be located exactly in line with a column of co-location points 
(Figure 3.02[C]). In this instance, the velocity induced by 
these vortices at the co-location points (which may be indefinite) 
is simply ignored. 
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A) SIZE OF ADJACENT PANELS 



ERROR: THE SIZE OP THE FIN PANELS DOES NOT 
MATCH THE SIZE OF THE ADJACENT WING 
PANELS . 
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B) WIDTH OF DQHHSTREAf-l PANELS 



ERROR: THE SIZE OF THE FUSELAGE PANELS 
DOES NOT MATCH THE WIDTH OF THE 
WING PANELS 



DOUGLAS F5D-I PROTOTYPE AIRPLANE 
WITH A MODIFIED OGEE WING 

( I I I I t I I t 


C) 



ERROR: THE SPACING OF THE CANARD SURFACE 
TRAILING-EDGE VORTICES DOES NOT 
MATCH THE SPACING OF THE WING 
CO-LOCATION POINTS, 


ERROR: THE WIDTH OF THE FUSELAGE PANELS 
DOES NOT MATCH THE WIDTH OF THE 
CANARD SURFACE PANELS. 



WING-CANARD-FUSELACE TEST MODEL 
FOR WIND TUNNEL TEST 
(NASA TM X-120) 


FIGURE 3.02 - ILLUSTRATION OF POOR VORTEX-LATTICE ARRANGEMENT 
OVERSIZED INSERTS ARE SHOWN IN ERROR 
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3 . 3 PROGRAM INPUT SETUP GUIDE 


VZ RUN 545A9, TRW. 0001. 3303A»000X#Pf3rl 

VN MSG FILE REQ. TAPE 1 FH432 3 FSTRN 1 

V ASG XeA10202 

V ASG F 

V PUT 

•V XQT CUR 
TRW X 
ERS 
IN X 
PEF X 
TRI X 
TPfC 

V XQT M0OE tM0DE= NSURF OR ISURF) 

J0B title f0R job 1 (1 caRd> 

COMMENTS, REQUIRED F0R J0B 1 (3 CARDS) 

S INPUT 
NFLG, IFLG, 

K0UT,KT1.KT2,KT3.LINX, 

NWINC.NFUS.NVTaIL. 

NSS,X,Y,Z,E.CiXPcR.YSPaN, 

NCS,X0C.Z0C. 

WFLAP1.WFLAP2,WFLAP3,FLAPC,TaBC.FLaPUJ.TaB0J.AILDJ. 

XcG.YcC.ZcG.REFS.ReFC.REFB.GSCaLE. 

NJ0B. aLFa.MaCMN. HEIGHT, FLaPDJi A ^UDJ.NSjOLV. 

NJ0BL.WCL, . - ^ 

C0L0CP . WSM0TH, LFLaP • LdRaG* CLEaNF . PMECF . CUT0F1 . CUT0F2 
*END 

viOB TITLE F0R J0B 2 (1 CARD) 

SlNPUT 

NAMELIST data 
SEND 

*ENDJ0b5 

V XQT TRWPLT 
KUNIT » 8 
ICC0MP* 0 
NTRAN = 0 

I PRINT* 0 
NTYPE 5 C 
N0FSCU* 1 

ISCALY = ill. 111. Ill, 1,1. 1,1 

NXL 5 24 

NXR = 24 

NYL = 24 

NYH s 24 

NP0SN1 = 600. 950 
NP0SN2 = 600. 925 
NP0SN3 = 6D0. 900 
NP0SN4 = 600. 90 
CHaRSZ = ItOiltOiliO.i.O 


JOB CARO 

message card 
PROGRAM PCf tape NO, 
ftEQUtRED IF THw 
OPTION IS USED 
READ- IN PROGRAM CAROS 

( load the progra m ) 

I 


(IF PLOT OPTION USED) 


♦ 

EXECUTION MODE CARD 

jOb title-start J5i 1 

COMMENTS 


start namelist sinput 
JOB'EXECUTION flags 
OUTPUT specifications 
lifting surface type 
LIFTING surfaces plan 
airfoil section 
flap-tab-ailerons 
reference dimensions 
FLIGHT attitude SPECS 
linearized THEORY 
optional input const, 


end namelist SiNPUT 
jqS title-start job "2' 
start namelist iinput 
data for job 2 

ENO NAMELIST *INPUT 
CNp OF aU JObI 


execute plot option 
0lOT exec; eONSTiKTTs 


V = 7/8 PUNCH. 


NOTE: THE FOLLOWING CONTROL CARDS ARE OPTIONAL FOR INPUT 
vN MSG = MESSAGE CARD (REQUIRED FOR NASA-MSC) 

9 PLT = REQUIRED FOR PLOT OUTPUT 

INPUT INSTRUCTIONS FOR THE CALCOMP/ 4060-MICROFILM PLOT-OUTPUT OPTION. 
XQT TRWPLT, ARE FOUND IN REFERENCE 35. THESE INSTRUCTIONS HAVE BEEN 
OMITTED IN THE PRESENT REPORT. 
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3.3 PROGRAM INPUT SETUP GUIDE CCONTINUED) 


AMN 0 T 1 = to = EXAMPLE PR 0 B , 1 - MULT I PLE-SU«F ACE 

AriNcyr? = ID = capability dee-i0nstration run 

AIMN0T3 = ID = A»C0MEZ/ 5 JULY 72 

AnN0T4 = iD = 

TITLE = ID = IS0METRIC PRj2EJECTION ^F LlFTlE^IG SURFACES 
XLaBEL = 10 = HORIZONTAL A><IS, SEMISPaNS 

ylabeu = 10 = vertical axis semispans 

XHI= 1.5 
XL0^=-1 .C 
YHI= 1»5 
YL0=-1.- 


PL0T = 2,1, 
ENDPLT 

3,1, 

ENDLST 

AN0TSV = 0 
M0ADV' = 1 
PL0T =5,1, 

6,1, 

ENDLST 

ENDPLT 



MOAOV = 1 
PL0T = 2,2, 

3,2, 

ENDLST 

fndplt 



r>0ADV = 1 
PL0T = 2,3, 

3,3, 

ENDLST 


emdplt 
EmDFIL 
N0ADV = 1 

PL0T = 2,1. 3,lr EMDLST 
f.mdplt 
NCTADV = I 

PL0T = 5,1, 6,1, ENDLST 
ehdplt 

•J 0 ADV = 1 

PLGTT = 2.2, 3,2, ENDLST 

enoplt 

N0AOV = 1 

PL0T = 2.3, 3,3, ENDLST 
F-NDPLT 
ENDFIL 
F norun 

VEpF 


annotations lEXAMPLEJ 
PLOT LABELS (EXAMPLE) 

t 

PLOT SCALE (EXAMPLE) 

i 

PLOT INSTRUCTIONS 

FOR 1ST. file 


! 

PLOT INSTRUCTIONS 
FOR 2ND. FJLEi , .ETC. 


END OF PLOTS card 
END CARD (LAST CARD) 


OWginal page is 

POOR QUALITY 
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3.4 INPUT INSTRUCTIONS 


CiROUP 1 - execution W0DE CARD. 

* FIVE SEP4HATE EXECUTION M0DES ARE PERMITTED • 


(1) 

V 

XQT 

NSURF 

(COLUMNS 

1-11) 

1 TO 5 LIFTING SURFACES MAY BE CONSIDERED 
SIMULTANEOUSLY. 

(2) 

V 

xor 

ISURF 

(COLUMNS 

1-11) 

ONLY 1 LIFTING SURFACE MAY 
WITH OR without LINEARIZED 

BE CONSIDERED 
LIFT OPTION, 

<3) 

V 

XQI 

NSURFT 

(COLUMNS 

1-12) 

MATRIX INVERSION. test FQR 

XQT NSURF MOOE- 

(4) 

V 

XQT 

iSURpT 

(COLUMNS 

1-12) 

Matrix inversion test for 

XQT ISURF MODE. 

(B) 

V 

XQT 

TRWPUT 

(COLUMNS 

l-i2> 

PLOT OPT I ON (reference 35) 



group 2 “ JOB IDENTIFICATION (TITLE) AND COMMENTS^ 

* REQUIHED INPUT FOR NSURF aND ISURF EXECUTION MODES • 


CARD 1 FORMATC 13A6»a2) ( T I TLE( I M =1 » 14 ) 

CARDS 2.3.4 FORMAT! (13A6.A2) ) < C0MTS! I J # I *1 # 42 ) IJOBIONLYJ 


GROUP 3 - VORTEX-LaTTICE ANALYTICAL SOLUTION SPECIFICATIONS, 
* required input FOR NSURF aND ISURF EXECUTION MODES * 


*• nAniElIst Input format ** 

NaMELIST/INPUT/ NFLG .IFUG .K0UT ,KTl ,<T2 ,KT3 .LINX 

* ,NwiNG »NFUS .NVTaIL.NSS .X ,Y .2 »E .C 

* fXfl^cR iYSPaN .NCS ,X^C ,Z0C ,WFUAPi.WFLAP2iVIFLAP3»FLAPC 

* »TabC iFUaPOJ.TaBDJ .aIUDJ .XCC ,YCfi iZCO iREFS .«EFC 

* ,REFB »CSCAlE,NJ0IB , ALFA ^MACrN CHT.FLAPDJ , AILDJ »NS0LV 
« ,Nj;fBL .WCL ,C0U?^CP.WSM0 TH,LFLaP .LDRAC ,CU£ANF,PMECF iCUiaF^ 

* ,CUTOF2 


•* JOB-EXECUTION FLAGS ** 

(1) NFLAG required for NSURF EXECUTION MODE. 


(NFLC(N) 


number of SPaNWISe VORTeX-LATTICE elements assigned 
TO THE N SURFACE. WHERE M.LE.5. 





3.4 INPUT INSTRUCTIONS (CONTINUED) 


(NFLC(N+5).N»i»M) 

(NFLG<N+10)iN*1.M> 

NFLG<16) = 0 
= 1 

NFLGU?) = 0 
s 1 

NFuCflflJ = 0 
= 1 

NFLCU9) = 0 
= 1 

NFuC(20) = ND 


(2) JFLAG KEQUIRED 

IFLG(l) * 0 

» 1 

iFtGfZ) = NSD 
IFLC{3) = NSE 

IFLGM) = 0 
a 1 

* 2 


number oF CHORDWISE VORTEX^LATTICE ELEMENTS ASSICNEO 
TO THE N SURFACE. 

number of CHORdWISe discontinuities assigned to the 
N surface# where* 

NFLGCN+IO) 0 NO flaps and/or ailerons# 

NFLG<N+10) ,GE,1 WITH FLAPS AND/OR AILERONS, 
NFLG(N’*'lO) .EQ.2 WITH TAB SURFACE, 


ZOC(K»J) INPUT IS dimensionless (NORMALIZED BY 
ZOC(K,J) INPUT IS dimensioned USING THE SAME UNITS AS 
THE WING PLANFORM SPECIFICATIONS (E,G,, y< * X< J) i ETC , ) 


NO effect (OUT-OF-GROUNDJ ♦ 

GROUND effects, I .E, #FLICHT IN THE PRESENCE OF A GROUND 

plane are calculated* 

NO EFFECT. 

ARRAYS OF SOLUTIONS USING LIFTING LINE THEORY ARE 

calculated from a pair of exact vortex-lattice 

SOLUTIONS, THIS OPTION NOT OPERATIONAL AT PRESENT, 


NO EFFECT, 

CALCOMP OR MICROFILM PLOT qATA TAPE IS GENERATED, 

PRINT-OUTPUT control EFFICIENCY FLAG ASSIGNMENT, 

USED AS FOLLOWS, 

ND.CE.O = short-print OUTPUT, I.E,, namelist lINPUT, 

surfaces geometry, airfoil MeAN-CAMBeR* and* 
SECTION AND SPAT I ALLY" JNTEGRATED AIRLPAD 

coefficients are output, 

ND.GE.I = VORTEX-LATTICE GEOMETRY DETAIL IS OUTPUT. 

N0.GE.2 a VORTEX-LATTICE ELEMENTAL LIFT AND INDUCED 
VELOCITY ARE OUTPUT 

nd.ce.5 s vortex-lattice geometry detail* and induced 
velocity increments are output. 

ND.GE.8 s debug output FOR PROGRAM CHECK/DEVELOPMENT, 
I.E.* namelists SdSUGIi SDSUC2# and SdBUG3 
ARE OUTPUT, 

ND,GT.15#AND#NFLG(17J ,CE,1 = DEBUG OUTPUT FOR PROGRAM 
check/development, i,E,, namelist ireflex 
IS output, 


for isurf execution mode, 


symmetric lift loading, not required for input, values 
UNSYMMeTRIc lift loading, are assigned in execution 

number of span Discontinuities, nsd= o,i,2#3*or a, 

REQUIRED input IF 1FUG(4 ) ,N£,o, 

number of span VORTEX-LaTTICE elements, NSE.LE.NSEMAX, 
where NSEMAX=41 and 21 FOR SYMMETRIC AND UNSYMMETRIC 
LIFT loading RESPECTIVELY. 

equal span-spacing for vortex-lattice elements, 
cosine (Variable) span spacing of vortex-lattice 
elements, 

span-spacing of vortex-lattice elements is to be 
assigned in the input, (YSPANtNJ,Nil,N8E), 
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1FLC(5) ■ NCO number OF CHORD DISCONTINUITIES, WHERE NCD»0 AND NCD»l 

MUST be assigned to UNFLAPPEO ANo flapped wing SURFACES 
RESPECTIVELY, 

IFLG(6) = NCE number OF CHORD VORTEX-UaTT ICE ELEMENTS, NCE,LE,NCEMaX, 

where NCEMAX»9, and Nce,GE»2 for flapped SURFACES, 

iFi_c(7) ■ 0 Equal chord-spacing for vortex-lattice elements, 

s 1 cosine (Variable) chord spacing of voRTEx-LAiticE 

ELEMENTS. 

IFLC(8) =0 NO effect, 

= 1 arrays Of solutions using lifting line Theory aRe 

calculated from a pair of Exact vORTEx-lattice 
solutions. 

IFLC<9) so no effect. 

s 1 ground effects, i .e. .flight in The presence of a ground 

PLANE ARE CALCULATED, 

IFLC(IO) = ND print-output CONTROL EFFICIENCY FLAG ASSIGNMENT, 

USED AS FOLLOWS, 

ND.GE,0 « SHOrT-PRINT output, 1,E., namelist fINPUT, 
Surfaces geometry, airfoil mean^camser. and, 

SECTION AND SPATIALLY-INTEGRATED AIRLOAD 

coefficients are output, 

ND.GE.l « VORTEX-LATTICE GEOMETRY DETAIL 15 OUTPUT. 
ND.GE.2 = VORTEX-LATTICE ELEMENTAL LIFT ANO INDUCED 

Velocity ar^ output 

ND.GE.S = VORTEX-lAJTICE geometry DETAIL* and induced 
VELOCITY INCREMENTS ARE OUTPUT. 

ND,GE,8 s debug output for program CHECK/OEVEUOPMENT, 
I.E.. namelists SDBUCl, SDBUC2* AND SDBUG3 
are output, 

nD,GT,15,AnD. IFlG(9),CE,1 « debug output For program 
check/development, i,e,, namelist ireflex 
IS output. 


lFLC(il)« 

0 

NO effect. 

a 

X 

output solutions for chordwiSe and spanwise Section 

AIRLOAD COEFFICIENTS, 

1FLG(12)b 

0 

NO EFFECT, 

a 

X 

OUTPUT SURFACE PLANFORM GEOMETRY ON CALCOMP/MI CROP I LM 
PLOT Tape, 

IFLCa3) = 

0 

NO effect. 

8 

X 

output chord ANo span Section airload coefficients on 
CALCOMP/MICROFILM plot tape, 

IFLG(14 )• 

0 

no effect, 

output linearized solution of airload coefficients on 

CALCOMP/MICROFILM PLOT TAPE, 

IFLC( 15) 


not a required INPUT, VALUE ASSIGNED IN EXECUTION, 


** output specifications ** 

K0UT (=6 IF OMITTED) PRINT BCD OUTPUT PHYSICAL UNIT ASSIGNMENT, 

KTl (8l IF OMITTED) ScRaTcH/WQRK PHYSICAL UNIT ASSIGNMENT, 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 


KT2 a3C logical UNIT Fi \f OMITTED) CALCOMP/MICHOPl LM QRUM OR 

• tape physical unit assignment, 

KT3 (33 IF OMITTED) SC«ATCH/W0RK PHYSICAL UNIT ASSIGNMENT, 

UNX if OMITTED) MAXIMUM NUMBER OF LINES PER PAGE FO« PRINTED 

OUTPUT. 


** SURFACE TYPE CLASSIFICATIONS ** 

* OMIT FOR XQT ISURF EXECUTION MODE • 

NWINS (=l IF OMITTED) NUMBER OF SYMMETRIC LIFTING SURFACES^ E,G,i W(NG 

surfaces, that must be Ordered as follows* 

N = 1.2.3* I . . *NWING. (N.LE.5) 

NFUS (=0 IF OMITTED) NUMBER OF ANTISYMMETRIC LIFTING SURFACES. E,G,, 

Vertical surface/s assigned t’O Represent a fuselage or a vertical 

Fl.N, that MUST BE ORDERED AS FOLLOWS, 

N = 1,2.3, .NWING+NFUSi (N,LE*5) 

NVTAIL (*0 if OMITTED) NUMBER OF ANTISYMMETRIC LIFTING SURFACES, E,G,, 

Vertical surface/s assigned to represent a vertical fin. twin 

FINS, end plates, ETC,, THAT MUST BE ORDERED AS FOLLOWS, 

N = 1,2,3, .NWlNG+NFUS-^IABStNVTAILJ • (N.LE.5) 

NVTaIL may be entered as a positive or a negative INTEGER IN 

ORDER TO SPECIFY SYMMETRY ABOUT THE PLANE Y»0* I,E,» 

+ integer = ANTISYMMETRIC SURFACE, E,C, A SINGLE FIN, 

" integer = symmetric surface* E*Gi twin fins, 

MS (not An Input quantity) total number of surfaces to be considered 

that is calculated internally using the following formula 

NS= NWING + NFUS + IABS(NVTail) (NS,LE*5) 

N (NOT an input quantity) order number assigned to nth. surface. 


surface planfohm specifications ** 

* NS* 1 for XQT ISURF EXECUTION MODE * 


(NSS{M),Nal*NS) STORAGE ORDER NUMBER ALLOCATED TO THE LAST SPAN 

station entry for The n lifting surface* where* 

NSS(1> * NUMBER OF SPAN STATION ENTRIES 

allocated to the first surface, 

NSS(N)-NSS(M) = number of SPAN STATION ENTRIES 
allocated TO THE N SURFACE* JN 

order, N*l*2 , , *,MiN, * , ,NS. 


(X( J).J«1*NSSCNS) ) longitudinal coordinate of UTH. POINT OF the 

Reference loft line, e.c,, fuselage stations, 

(Y( j).J*1.NSS(nS)) SPANWiSE coordinate of uth. point of The reference 

loft line, e,c.. wing stations, 


( Z( J). J=1.NSS(NS) ) vertical COORDINATE OF UTH, POINT OF THE REFERENCE 

loft line* £,C* waterline STATIONS, 

(E( J) ,J=1*NSS(NS) ) angle OF TWIST OF CHORD. PLANE RELATIVE TO THE 

LONGITUDINAL COORDINATE FOR THE AIRFOIL SECTION 
AT THE JTH, POINT OF THE REFERENCE LOFT LINE, 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 

(C( J) • J=1iNSS(NS) ) CHORD UENCTh OIHENSJON of The airfoil section at 

the jth, point Of the reference UOFT line. 

CX0CR< J).J“1*NSS(NS)) (OHIT for XQT ISURF) The relative location of the 

Reference loft line in chorqs measured from the 

LEADING edge FOR THE JTH, POINT* 

(X0CR(N),N=1) (OMIT FOR XQT NSURF) THE RELATIVE LOCATION OF THE 

Reference loft line in chords measured from the 
leading edge, assumed CONSTANT FOR THE NTH, SURFACE, 

(YSPaN(N)»N*1,NSE+1) (REQUIRED IF ( IFLG . CE , 2 ) ) SPAN STATIONS THAT BOUND 

The vqrtex matrix elements. 


*• airfoil section (CAMBER) SPECIFICATIONS *♦ 

(NC5CN),N*1iNS) number OF CHORD STATIONS ALLOCATED FqR 

DESCRIBING THE AIRFOIL SECTION MEAN CAMBER 
LINE FOR THE NJH, LIFTING SURFACE, WHERE, 

NCS(N).GEi2> and/or NCS(N) tUEtlG* 

( (X0C(K»N),Ksl,NCS(N)),N=l,NS) CHORD STATION OF AIRFOIL SECTION, l.E.i 

DISTANCE from THE LEADING EDGE M£ASURed IN 
CHORDS along THE AIRFOIL SECTION CHORD PLANE, 

< (Z0C(K.U)»K=1iNCS(n) ), AlRFoIu SECTION MEAN CAmBER SPECIFICATION* 

Js1,NSS(NS),aND, I.E,, normal distance to the mean camber 

N=1,NS) LINE measured IN CHORDS FROM THE AlRFOIL 

section chord plane* corresponding to the 
jth. point of the reference loft line. 


** control surface geometry specifications ** 

( WFlaPKN) ,N = 1,NS) span DISTANCE FROM PLANE OF SYMMETRY TO THE INN£R 

boundary of The flap surface/s, where* 

IF(WFlAPKN) .EQ.Q.Q) flap SURFACE IS CONTINUOUS 

AT the Center span section, 

IF(WFLAP1(N).LE,1,0) DISTANCE MEASURED IN SPANS, 

<WFLAP2(N).N=1,NSJ span distance from plane OF symmetry to The outer 

boundary of The flap or the inner boundary of the 

AILERON SURFACES, WHERE, 

iF(wF|_ap2(n) . uE.ifO) Distance measured in spans, 

(WFLAP3(N),Nai,Ns) SPAN DISTANCE FROM PLANE OF SYMMETRY TO THE OUTER 

BOUNDARY OF THE AILERON SURFACES, WHERE, 

IF(WFLAP3(N).L£,1.0) DISTANCE MEASURED IN SPANS, 

(FlaPC(U) , J= l,NSS( NS) ) (OMIT FOR XQT ISURF) FLAP/S AND/QR AILBRQNS CHORD 

Length for the jth, point of the Refe^ece i-oft 
line* where, 

IF(FLAPC<J).LT.l.O) FLAPC(J) IS NORMALIZED BY C(J), 
(FLAPCtN),N=l,NS) (OMIT FOR MT nSURF) FlAP/S AND/OR AILERONS CHORD 

length for the nth, surface, where* 

IF(FlAPC(N) .LT.1,0) FlAPC(N) is normalized by CU), 

(TaBCCJ),J»1,NSS(NS)) (OMIT FOR XQT ISURF) TAB OR AUXILIARY ELEVONS CHORD 

length FOR the JTH, POINT OF THE REFERENCE LOFT LINE, 
WHERE* 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 


( TABC(N) ,N«X,NS) 


(FLAPDJtN) iNsliNS) 


(TABDJ(N),N=1,Ns) 


( ( AlLDJ(t,N).U = l»2), 
N=X,NS) 


IF(TABC( J).LT,1J TABCU) JS NORMALIZED BY CUJ. 

(OMIT FOR xQT NSuRF) TAB OR AUXUURY ELEvONS CHORD 
LENGTH FOR THE NTH, SURFACE, WHERE, 

IF(TABC(N) .LT.D TABC(N) \S NORMALIZED BY C<U)* 

(OMIT FOR XQT ISURF) FLAP DEFLECTION (DEGREES), WHERE, 

IF(FLaPDJ< N) .GT.O) FLAP DEFLECTION IS DOWN, 
IF(FUAPdJ^N).LT.O) flap deflection is UPt 

(OMIT for XQT ISURF) TAB DEFLECTION (DEGREES), WHERE, 

IF(TABDJ(N) ,GT,0) TAB DEFLECTION IS DOWN, 
IF(TABDJ(N) ,LT,0) TAB DEFLECTION IS UP. 

(OMIT FOR XQT ISURF) AILERON DEFLECTIONS (DEGREES), 

whePe» l*i denotes Left aileron ano l=z demotes 
RIGHT aileron, and, 

IF(aILOJ(L,N),GT.O) aileron deflection IS DOWN, 
IF<AIL0J<L,N) .LT,0) aileron deflection is up, 
IF(AILOJ(i,N).NE.AILOU(2iN)) antisymmetric LIFT, 


«« REFERENCE DIMENSIONS •• 

* OMIT FOR XQT ISURF EXECUTION MODE • 

XCG (=0.0 IF OMITTED) LONGITUDINAL LOCATION OF THE CENTER OF GRAVITY 

Measured from the loft coordinate system origin, 

YCG (=0.0 if OMITTED) SpANWiSE LOCATION OF THE CENTER OF GRAVITY 

measured FROM THE LOFT COORDINATE SYSTEM ORIGIN, 

ZCG (=0.0 IF omitted) vertical location of the CENTER OF GRAVITY 

MEASURED FROM THE LOFT COORDINATE SYSTEM ORIGIN. 

REFS (=1000,0 IF OMITTED) REFERENCE AREA FOR NORMALIZING THE CENTER 

aerodynamic FORCE ANd MOMENT COEFFICIENTS, 

REFC (=100.0 IF OMITTED) REFERENCE CHORD FqR NORMALIZING THE CENTER 

aerodynamic FORCE AND MOMENT COEFFICIENTS, 

REFB (=100.0 IF OMITTED) REFERENCE SPAN FOR NORMALIZING THE CENTER 

Aerodynamic force and moment coefficients, 

GSCALB (=1.0 if OMITTED) GEOMETRY SCALING FACTqR THAT IS USED AS FqlloWS, 
ALL DIMENSIONAL PhYSjCAL QUaNTiTjeS A«E MULTIPLIED BY gSCALE 
before execution, with the EXCEPTION OF HEIGHT(N), THUS CHANCING 
THE SCALE OF THE INPUT GEOMETRY TO ANY DESIRED UNITS, AND, GSCALE 
IS S£T equal to unity before the NEXT JOa-RUN, 


** FLIGHT attitude AND MULTIPLE-SURFACE SOLUTION SPECIFICATIONS ** 

NJ00 NUMBER OF SEPARATE FLIGHT CONDITIONS OR JOB RJNS TO 

BE CALCULATED, 

calfa(N),n=i,njOb) flight attitude angle of attack (DEG,), i,E,, angle 

between free stream velocity vector and THE loft 
coordinate system longitudinal axis (X»AXIS). 


(MACHN(N),N=1,NJ08) flight MACH NUMBER BASED QN FREE STREAM SPEED OF 

SOUND 1 

(HEICHT{N).Ns1.NJ0B) altitude measured from the ground plane to the 

Vehicle loft coordinate system origin (x=y=z=0), 
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3.4 INPUT INSTRUCTIONS (CONTINUED) 


{Fl*PDJ(n)»N«VNJ0B) (omit for hot nSURF) F^ap deflection (DBCREtS)i «HEREi 

IF(FUPDJ(N),(;t,0) flap deflection 18 down, 
IF{FUAPDJ(N).Ut,Q) flap deflection is up, 

< (AIL0U^L*N) ,L“1^2), (OMIT FOR XQT NSURF) AILERON DEFLECTIONS (DE(JREES)r 
N=1,NJ0B> where, L=1 denotes LEFT AILERON AND L=2 DENOTES 

RIGHT AILERON, AND, 

if(ailou(l,n).gt,o} aileron deflection is down, 

IF(ArLDU(L#N>,LT.O) AILERON DEFLECTION 18 UPi 
IF(AlLDja,N).NE,AlLDJ(2,N)) ANTISYMMETRIC LIFT, 

( (NS0lV(m.N)iM"1,2) (OMiT FOR XQT jSURF) MUlTjPlE SURFACE SOlUTtQN 
N»1,...5) SPECIFICATION FlaC, TO BE USED AS ILLUSTRATED IN 

the following example. 

NS0LV= 1,1, 2,2, 1,2, 1,3, 2»Q, 

multiple-surface independent solutions are obtained 
FOR THE following COMBINATIONS, 

surface 1 to SURFACE 1 » SURFACE 1 ONLY, 

surface 2 TO surface 2 = SURFACE 2 ONLY, 

surface 1 TO surface 2 = SURFACES 1 aND 2 ONLY 

SURFACE 1 TO SURFACE 3 « SURFACES 1 THROUGH 3, 


** linearized theory lifting-line solutions option ** 

» OMIT FOR XQT NSURF EXECUTION OPTION * 

NJ0BL (=0 IF OMITTED) NUMBER OF LINEARIZED LIFTING LIN£ 

SOLUTIONS TO BE EXECUTED, 

WCL(l) = 0 OR 1 (REQUIRED INPUT IF IFLG(8),GE,1) LINEARIZED SOLUTION 

specification that is used as follows, 

IF(WCL(U.EQ.O) ALFA( J),J*X,NJOBL ARRAY CALCULATED, 
lF(WCLd > ,EQ.l ) WCL(J**‘1),J*1,NJ0BU ARRAY CALCULATED 

(WcL(J+1),J*1,NJ0bL) (REQUIRED INPUT IF( IFLG( 8 ) , CE. 1 , AND, WCL( 1 ) , C£, 1 ) 

WING lift coefficient 


** OPTlONAL^INPUT EXECUTION CONSTANTS ** 

C0L^^CP (=0*75 IF OMITTED) COLOCATION POINT OR CONTROL POINj LOCATION 
specification for the VORTEX lattice ELEMENTS, A RANGE OF 
0|75-0,83 IS GENERALLY USED. 

WSM0TH (sQ.lO IF OMITTED) FLaP AND/OR AILERON DISCONTINUITY COSINE- 
SMOOTHINg OPTION, WHeRe* 

IF( WSM0Th.lt, 1, 0) WSMOTH INPUT IN SPAN UNITS, 

if(wsm0Th.gt,i,o) wsmoth input in Physical units, 

LFlAP (sO if OMITTED) FLAPPED SURFACE BOUNDARY CONDITIONS FLAG, USED 
AS FOLLOWS, 

IFILFLaP.EQ.O) exact geometry of flap OR AILERON IS USED IN 

evaluating boundary conditions, 

IF(LFLAP,E9.1) LINeARI2ED-F IRSJ ORDER THEORY 1$ USED IN 

evaluating boundary Conditions for the flap 

OR AILERON SURFACES, 
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3«4 INPUT INSTRUCTIONS (CONTINUED) 


LDRaC IF OMITTED) CALCULATION OF INDUCED DRAG FLAG, USED AS FOLLOWS, 

IF(LDRAC.EQ.O> VgRTEX LATTICE SOLUTION IS OUTPUT, 

if(ldrag»eq.i> lifting-line theory is used in calculating 

THE INDUCED DRAG UQT ISURF ONLY), 

CLFANF (sO.0035 IF OMITTED) SURFACE SKIN FRICTION AERODYNAMIC CLEANNESS 
FACTOR (= SF/AW) USED FOR XQT ISURF EXECUTION MODE ONLY, 

PHECF (=i.O IF OMITTED) PITCHING MOMENT EMPIRICAL CORRECTION FACTOR 

USED FOR XQT ISURF EXECUTION MODE, IF< PM£CFtEQ- U i THEORETICAL 
SOLUTION IS OUTPUT. 

CUT0F1 (#0,0001 IF OMITTED) CUTOFF LIMIT FOR RADIUS TO A VORTEX FILAMENT 
ELeMeNT pROM A FUCW-fIeLD POINT NORMALIZED BY THE VORTEX FILAMENT 
SPAN, 

CUT0F2 (=0.0029 IF OMITTED) CUTOFF LIMIT FOR ANGLE (RADIANS) MEASURED 

between a vortex filament and A FLOW-FIELD POINT RELATIVE TO THE 
ORIGIN OF THE VORTEX LOCAL COORDINATE SYSTEM, 


DELaLF («1,Q if OMITTED) ANCLE OF ATTACK INCREMENT BETWEEN THE TWO EXACT 

vortex-lattice solutions That are generated foR determining the 

linearized (LIFTING LINE) THEORY ARRAYS OF SOLUTIONS, 


ttWQUP 4 - >J06/J0BS termination CaRo 
* REQUIRED INPUT FDR NSURF aND ISURF EXECUTION MODES * 


card 1 FORMAT! 9H JENDJ0BS) MUST HAVE SENDJOBS IN COLUMNS 2-9 

(column 1 field must be left BLANK) 


NOTE: INPUT INSTRUCTIONS FOR THE CALC0MP/4060-MICR0FILM PLOT-OUTPUT OPTION, 

XQT TRWPLT, ARE FOUND IN REFERENCE 35. THESE INSTRUCTIONS HAVE BEEN 
OMITTED IN THE PRESENT REPORT. 
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fuapdj 


fuapc 


GSCAlE 


HEIGHT 


IFLG 


K0UT 


KTl 


KT2 


KT3 


LDRaG 


lflap 


LINK 


machn 


NCs 


NFLG 


NFUS 


NJ0B 


REAU(5} 
REAL( 10) 


R£AL(30} 

Real 


real 


REALUO) 


!NTG<15) 


integer 


INTEGER 


INTEGER 


INTEGER 


REAL 


REAL 


real 


integer 


REaLUO) 


1NtG<5) 


1NTG(20) 


integer 


integer 



restriction 

CLASS 

NSURF ONLY 
ISURF ONLY 

FLAP/AIL, 

FLAP/AIL. 

NSURF ONLY 
ISURF ONLY 

attitude 

attitude 

ISURF only 

OPT, CONS, 

nsurf only 

ISURF ONLY 

SURF, PLAN 
SURF. PLAN 

ISURF ONLY 

OPT, CONS, 

NONE 

opt, CONS, 

none 

OPT, CONS, 

NONE 

OPT. CONS, 

ISURF ONLY 

OPT, CONS, 

nsurf only 
ISURF ONLY 

SURF, PLAN 
SURF. PLAN 

NSURF ONLY 
ISURF ONLY 

flap/ail, 

FLAP/aIL, 

NSURF ONLY 
ISURF ONLY 

flap/ail, 

flap/ail, 

NSURF only 

REF. DIM, 

NONE 

attitude 

ISURF only 

flag 

NONE 

OUTPUT 

none 

output 

NONE 

OUTPUT 

NONE 

OUTPUT 

NONE 

none 

ISURF only 

OPT, CONS, 

NONE 

OPT, CONS, 

NONE 

output 

NONE 

attitude 

NONE 

a IrFOIL 

NSURF ONLY 

FLAG 

NSURF only 

SURF, TYPE 

NONE 

attitude 


description and/or function 


AILERON'SURFACES deflection, 
aileron-surfaces deflection. 


ANGLE OF ATTACK, 

ancle of attack, 


WETTED AREA, 


CHORD length, 

chord length, 


aerodynamic cleanness factor, 


COLOCATION OR CONTROL POINT, 


CUTOFF limit for RADjUS VECTOR, 


CUTOFF limit FOR SMALL ANGLES, 


ANCLE OF attack INCREMENT FOR 

linearized theory. 


CHORD PLANE GEpMETRlQ TWJST. 
CHORD plane geometric TWlSf. 


FLAP-SURFACE OEFLECTJON, 
FLAP-SURFACE DEFLECTION, 


flap/aileron chord length, 

FLAP/A ILERON chord LENgTh. 


geometric scaling factor, 


altitude from ground plane. 


JOB execution flag for isurf, 


BCD print-output UNIT aSSIG, 


SCRaTCH/WORK BCD UNIT ASSIG, 


CALCQMP/FILM BCD UNIT ASSIG, 


scratch/work BCD unit aSSIG, 


LINEAR dimension, E,G., FEET, 
INCHES, METERS, ETC, 


INDUCED drag FACTOR, 


linear theory factor FOR flap. 


Max, NO. lines per printed page, 


FLIGHT FREE-STREaM MaCH NUMBER, 


NO, OF CHORD stations, 


JOB execution FLAG FQR NSURF, 


NO, symmetric fus, surfaces 


NO, of flight attitudes, 
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''aRuble dimension units restriction 


CUASS 


description and/or function 








NJ2)BL 

integer 

NONE 

ISURF ONLY 

linear opt 

NO, OF separate flight ATTITUDES 
for LIFTINC-LINE solutions, 


INTG(12) 

NONE 

NSURF ONLY 

attitude 

multiple-surface solution flag, 


INTgCS) 

NONE 

none 

surf, PLAN 

storage allocation-order index, 


NVTAIL 

integer 

NONE 

NSURF ONLY 

SURF, TYPE 

NO, VERT.ANTISYMM, surfaces, 

nwing 

INTEGER 

NONE 

NSURF ONLY 

SURF, TYPE 

NOtSYMMETRIC WING SURFACES, 

PMECF 

REAL 

NONE 

ISURF ONLY 

OPT, CONS, 

pitching moment FACTOR, 

REFB 

REAL 

L 

NSURF ONLY 

REF. DIM. 

REFERENCE SPAN LENGTH. 

REFC 

Real 

n 

NSURF ONLY 

REF. DIM. 

REFERENCE CHORD LENGTH, 

REFS 

REAL 


NSURF only 

REF. DIM. 

REFERENCE AREA. 

SF 

Real 


ISURF only 

OPT, CONS 

equivalent flat plate area, 

TABC 

REAL<30) 


NSURF only 

flap/ail. 

Tab CHORD length, 

> 

TABOJ 

REAlIS) 

DEG, 

NSURF only 

FuAP/AIL» 

tab-surface deflection, 

WCL 

rEAL(21) 

NONE 

Isurf only 

linear opt 

WING LIFT coefficient FOr 

LIFTtWG LIME SOLUTIONS, 

WFLAPl 

REALI5) 

a 

NONE 

FLAP/AIL. 

FLAP span INNER"EDGE DJM, 

WFLAP2 

REALI5) 

■ 

none 

FLAP/AIL, 

aileron span inner-edge dim, 

uPl aP^ 

REALIS) 



snm 


WSMjlTH 

real 

L 

NONE 

opt. CONS, 

COSINE SMOOTHING SCALE, 

XCG 

REAL 

L 

NSURF ONLY 

REF, DIM, 

longitudinal location of c,c. 

y 

REALI30) 

L 

NSURF ONLY 

SURF. PLAN 

REF, LOFT line X-COOROINATE, 


REAL(IO) 

L 

ISURF ONLY 

suRf.plan 

Ref-loft line x-c°o^dinate, 

X0C 

REALI 10,5) 

L/C 

NSURF ONLY 

airfoil 

CHORD station for AIRFOIL SECT, 

'r£AL(10) 

L/C 

ISURF ONLY 

AIRFOIL 

chord STATION FQR AIRFOIL SecT. 


REAL(30) 

L/C 

NSURF ONLY 

SURF.PLAN 

relative location of ref, loft 
LINE. „ , 

■ 

REAL 

L/C 

NSURF ONLY 

SURF.PLAN 

relative LOCATION OF REF, LOFT 

line, 


REALI30) 

— 

NSURF ONLY 

SURF.PLAN 

ref.loft line Y-COOHDINATE, 


real(io) 

H 

ISURF ONLY 

suRf.plan 

REF,LOfT line Y-cOO^^OINATe, 

ycg 

real 

B 

nsurf only 

ref.dimi 

SPANWISE location OF C,G, 

YSPaN 

REALI42) 

o 

ISURF ONLY 

SURF.PLAN 

span stations that bound vortex 
LATTICE EUeMeNTS, 

2 

REALI30) 

B 

nsurf Only 

SURF.PLAN 

ref.loft line Z-COOHOINATE, 


REAL! 10) 

B 

ISURF ONLY 

SURF.PLAN 

REF.LOFT LINE Z^COORDI NATE, 

ZCG 

REAL 

B 

NSURF ONLY 

REF. DIM, 

VERTICAL LOCATION OF C,G, 

Z0C 

REAL! 10i3D 

) L/C 

NSURF only 

airfoil 

mean camber for airfoil sect. 

ReALIIOiIO 

1 L/C 

ISURF ONLY 

AIRfOJL 

Mean cambeR for airfoil sect, 
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3.6 LIST OF ABBREVIATIONS FOR INPUT 


AIL AILERON 

Assict assignment 

c^Jns, constant 

C.G, CENTER QF GRAVITY 

DEG. DEGREES, ANGULAR MEASURE 

DIM. DIMENSION 

.EQ. equal 

E,C. FOR EXAMPLE 

.GE. greater or equal 

.CT. greater THAN 

lABS absolute value of an INTEGER CONSTANT 

INTG INTEGER 

IiE. equivalent TO 

.LE. LESS OR equal 

.lt. less than 

0PT, optional 

REF REFERENCE 

SURF. SURFACE 

* MULTIPLICATION 

** exponentiation 
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1.0 PROGRAM DATA TABLES 


TABLE 4,01 - INITIAL VALUES 


^ARUaLe dimension restriction 


initial, Value/S 


REAL(2,5) 

REAU(2,13) 


tlapdj 


NSURF ONLY 
I SURF ONLY 


NSURF ONLY 
I SURF ONLY 


NSURF only 
ISURF ONLY 



RtAL<-50> 

Rt^Lt 10) 


HfcAu(S) 

RtAL(lD) 


ISURF ONLY 


NSURF only 

I surf only 


NSURF only 
ISURF ONLY 


ia*o»o, 

20 * 0 . 0 , 


10*0. 0» 

20*0.0. 


2*100,0.28*0,0. 

10 * 100 , 0 . 


0,0035. 


0 , 0001 . 


0,0029, 


30*0,0. 

10 * 0 . 0 . 


10 * 0 . 0 . 


30*0.25, 

0.3. 















































































TABLE 4.01 - INITIAL VALUES (CONTINUED) 


Variable dimension I restriction 


INITIAL VaLUK/8 



NJ0BL 


NS0LV 


NVTAIL 


WFLAPl 


WFLAP2 


V/FLAP3 


WSH0TH 


INTCIZO) I NSURF ONLY 


integer NSURF ONLY 


INTEGER 


INTEGER I ISURF ONLY 


INTC(12) 1 NSURF ONLY 


1.0iOiOfOfQ»4<OiOfQfO>OtOfOtOtOfOfOfA>Ot4f 




INTG(5> 

integer 


NSURF only 
ISURF ONLY 



Integer [ nsurf only 


integer nsurf only 


ISURF ONLY 


NSURF ONLY 


NSURF ONLY 


NSURF ONLY 


NSURF ONLY 


REALI5) NSURF ONLY 


REAH21) ISURF ONLY 


REALtS) 

Real 


REAL<5) 

real 


REAl<5) 

real 



NSURF ONLY 
ISURF ONLY 


NSURF ONLY 
ISURF ONLY 


nsurf only 
ISURF ONLY 


nsurf ONLY 
ISURF ONLY 


nsurf only 


REAL! 30) NSuRF ONLY 
REALUO) ISURF ONLY 


REALUOrS) NSURF ONLY 

Real! 10) isurf only 






100,04 


1000, Of 


30*0,125, 


+ l,0»-0*4,-0,3,-0,2#-a.l,*0.0*-^Q|l» 

+Q.2,*0,3,+0|4,*0,5i-^0,6,*Q.7,4«o,8, 
+ 0 , 9 , *1 . 0 1 +1 , 1 , ♦! , 2 1 +1 , 3 , <*1 , 4 1 ■►1 , 5 , 



30*0,0, 

10*0, 0, 


0,0fl,0,4B#0,0, 





















































































vCG 


VSPAf^ 


Z 


TABLE 4.01 - INITIAL VALUES (CONTINUED) 


initial VALUE/S 


30*0,25, 

0,25, 


30*0.0, 

0 , 0 , 100 , 0 , 8 * 1000 , 0 , 


0 , 0 , 


42*0,0, 


30*0,0, 

10 * 0 , 0 , 



DIMENSION 

[ 

RESTRICTION 

flEAL(30) 

Real 

nsurf only 

I SURF ONLY 

RtAL(iO) 

RtAL(lO) 

nsurf only 
I SURF ONLY 

REAL 

nsurf ONLY 

RfcALt 42} 

ISURF ONLY 

RbAU< 30) 
REAL(IO) 

NSURF only 
ISURF ONLY 

REAL 

\ 

NSURF ONLY 

REAL<Vo. 3D) 
rEAe(10,10) 

NSURF only 
ISURF only 


300*0,0, 

100 * 0 , 0 , 


-3 

























5 . 0 OUTPUT 


i 

0 


5.1 General Description of Output 

The printed-output and tape-output for the main execution modes 
of the program are organized in the following manner. 

1) Raw Data 

The input data for all the case studies that are to be executed 
by the computer which includes punched card data up to and including 
the $ENDJ0BS card is printed in the first page or pages in the exact 
form it was read into the computer, i.e., raw data including punched- 
card errors, etc, 

2) Initial Values 

For each individual case study to be executed the job-execution 
flags, geometry data, flight data, etc. are output via NAMELIST state- 
ment, i.e., the values of all the input variables are output via 
$ INPUT. 

2) Short-Print Output (NFLG(20) or IFLG(IO) = 0) 

The following tables are output under the short -print output 
option: 

Table Title & Description Table J? in Section ^.2 

Lifting-Surface Geometry Table 5,01 

(one for each surface) 

Camber for Airfoil Section Table 5,02 

(one for each surface) 

Section Airload Coefficients Table 5.03 

(one for each surface) 

Spatially-Integrated Airload Table 5.04 

Coefficients 

Linearized (Lifting-Line) Solutions Table 5.05 

(ISUEF execution mode only) 

Job/ Jobs Termination Output Table 5,06 

4) Long-Print Output (NFLG(20) or IFLG(IO) > 2) 

The short-print tables and the following tables are output under the 
long-print option: 

Table Title & Description Table # in Section 5.2 

Vortex-Lattice Geometry Detail Table 5.07 

(one for each surface) 

Lift Distribution Detail Table 5,08 

(one for each surface) 
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5.1 General Description of Output (Continued) 

5) D ebug-Print Output (NFLG(20) or IFLG(IO) > 5) 

In addition to the short-print and long-print tables, the follow- 
ing tables are output under the debug-print option 

Table Title & Description Table # in Section 5.2 

Vortex-Lattice Induced Velocity Table 5.09 

Matrices Detail 
(one for each surface) 

6) Program Checkout-Print Output (NFLG(20) or 1FLG(10 > 16) 

Under the program checkout-print option, detail data on the 

vortex-lattice velocity induced for each individual vortex filament 
is output via NAMELIST statement, accordingly 

Table Title & Description Table // in Section 5.2 

Program Checkout & Debug Print Table 5.10 

7) Tape Output (NFLG(19) or IFLG (11) through IFLG(IA) > 1) 

A summary of the analytical solutions generated by the program 
is output on magnetic tape. This output is used by the auxiliary 
execution mode (TRWPLT) for generating 4060-microfilm or Calcomp 
output. A detailed description of the format and variables output 
on tape is presented in Section 5.3. 

8) Execution Diagnostics and Job Abort Output 
See Section 5.4. 

9) Alphabetical List of Output Quantities 
See Section 5.5, 

10) List of Abbreviations for Output 
See Section 5.6. 

11) Sign Conventions for Output 

The sign conventions adopted for output purposes are described 
in Figure 5,01 (Page 5-3). 
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A) AIRLOAD AND MOMENT COEFFICIENTS 



B) LIFTING-SURFACE GEOMETRY 



FIGURE 5.01 - LIFTING-SURFACE SOLUTIONS SIGN CONVENTIONS FOR OUTPUT 
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5 . 2 Printed-Output format Summary 


1) Short-Print Output 


TABLE 5.01 “ LIFTING-SURFACE GEOMETRY (One for Each Surface) 


LIFTING SURFACE NC» 

********************* 


U1 

I 


2 o 

^ S 

ig 

izi > 
F-f Q 


CO 



PHOT 

chord 

TIP 

CHORD 

ROOT 

TwI ST 

TIP 
TMl ST 

AREA 

b 

S 

s 



S 

FI AP 
SV*AN 1 

fl ap 

SPAN 2 

FLAP 
SPAN 3 

F LAP 
DtFlFC 

TAB 

oeflfc 

L. AIL 
offlec 


^2 


FUS STA 
X(CG) 

u 

tab 

WING STA 
YICGJ 

^LA 

WL STA 
ZICGI 




X c 
ref 

\ef 

^ref 

MS 

Y 

1 

X(LF I 

XIC/4) 

XITE) 

H 

Y 

z 

\e 

T 

^(C/4) 



ASPECT 

RATIO 

MEAN 

CHORD 

MGC 

(MAC) 

VRAK 
I MGC 1 

XRAR 
I MGC I 

ZBAR 
<MGC 1 

AR 

C 

mean 

F 

Y 

X 

* z 

R. AI L 
OEFLEC 

CIHED, 

MGC/4 

SHEPP 
MGC /4 

NO, span 
ELEMENTS 

NO.CHO^ D 
ELEMENTS 

NO. CMORO 
DI 5C0NT. 

®RA 
ARFA 
SI CGI 

'•’(C/4) 
CHORD 
C< CG) 

^CC/4) 
SPAN 
B I C G I 

NSE 

NCE 

NCD 

S f 
ref 

^ref 

^ref 




TWIST 

01 HFI C/41 

SWFPI C/41 

C(W INGI 

C I FLAPI 

C (TAB) 

e: 

^(C/4) 

\c/4) 

C 

r 

V 

^tab 



5.2 Printed-Output Format Summary (Continued) 

TABLE 5.02 - AIRFOIL- SECT ION CAMBER COne for Each Surface) 


KM U/C XA( 21 /C KA(3I /C 


X Y ZA(l>/C 7A(2)/C 



tn 

I 

tn 


[A] Single-Surface Representation 



XA(A) /C X AI5I/C XA{ 61 /C XA| 7|/C XAl Sl/C XA( 9WC XA( 10) /C 


ZA|A)/C ZA(5)/C ZAI6I/C ZA(T)/C ZA(S)/C ZAl^l/C ZAUOI/C 



[B] Two-Surface Representation 



i 


z 

a 



5.2 Printed-Output Format Summary (Continued) 


TABLE 5.03 - SECTION AIRLOAD COEFFICIENTS (One for Each Surface) 


Ln 

I 

O 


[A] NSURF Execution Mode 


V* 

Y/b 


[B] ISURF Execution Mode 


SECTION AIPLOAO COFFF IC I ENTS-SU PP ACE NO. * ^j/l \ I 


SCN 

c 

n 


sex 


set 

"a 


SCO SHP C/4 SCLC/B 


SECTION LIFT COEFFCIfNTS 

************************ 


IXL irt IZL 

section airloads unit vector 


ZY/R 

Y/Cb/2) 


set 

c. 


scLC/e 

C/b 


OLIFT 

AL/q 


SCHIC/4) 

*^m(C/4) 


IXL lYL UL 

airload unit vector 



5.2 Printed-Output Format Summary (Continued) 


TABLE 5.03 [B] - SECTION AIRLOAD COEFFICIENTS (Continued) 

I 


Ul 

i 

'>4 


CH0»»0WI5E PBESSURE DlSTBIBUTinN DETAIL 

«*««*********««•»**•****«****«*«*•**«* 

*** 0 *************** CHHPD STATION (X-XLE»/C **•***•***•***••*•♦ 
(X - .00000 .ICOOO ,20000 ,50000 ,40000 ,50000 .60000 ,70000 .flOOOO .90000 1,00000 

2Y/P SCL •**•*♦*•••**•••*♦* CHORD PRESSURE I CPL -CPU)*17L •***•♦*♦***•**♦♦* 

Y/(b/2) T I 1 I I I I I II 


t t t 


SPANt<I SE SFCTION LIFT DISTRIBUTION DETAIL 


2Y/B 
Y/ (b/2) 


hlTH LF suction 
SCL SCOI SCHIC/4J 

*^<1. *^in<C/4) 


NC LE SUCT ION 


SCL 

c. 


SCOI 


i,v 


SCMI C/4) 

\iC/U) 


FCN 

c 

"f 


FLAP/AIIERON 

FCX 

c 


FCH 

c. 



5«2 Printed-Output Format Summary (Continued) 


Ul 

I 

00 


TABLE 5.04 - SPATIALLY-INTEGRATED AIRLOAD COEFFICIENTS 


[A] NSURF Execution Mode 


integrated airload COEFFICIENTS-SUMFACt 


RDM 


ECX 


ecv 

c„ 


ECL 

C. 


ECD 


ECMH 

Sl(c/4) 


eCMR 

Si 


roll 


Si 

yaw 


EXA 

^(C/4) 


EZA 

^CC/4) 


ES 

s 


sMCC 

C 


E0 

b 


t T 


AC 

CG 

AC 

CC 


*** airload sums 


• OETtR«INANT= L 


• SCALES s 


t ♦ 


[B] ISURF Execution Mode 


hING AIPLTAD CDEFflCIENTS 

***** ***************** *** 


r^CL 

C, 


w ith lf suction 

NH LF suction 


*>C01 


WCMP 

Sl(C/4) 

t 


WCMR 

Si 


roll 


WCRY 

Si 

t 


IXL 


lYL 

airload unit vector 


LZL 


yaw 


DELTA 

A 


SCALE 


Note; Starred entries in the table (*) refer to calculated values of vortex-lift increments 



5,2 Printed-Output Format Summary (Continued) 


TABLE 5,05 - LINEARIZED (LIFTING-LINE) SOLUTIONS (ISURF Execution Mode Only) 
[A] Basic Lift Distribution 

LINtARlZeO SOLUTION WING COEFFICIENTS 


ALFA 


WITH L£ suction 


WCL 

c. 


WCD 


WCM(C/4) 

^(C/4) 


WCU 


NO LE SUCTION 


WCO 


WCM<C/4) 




v(jC/4) 


Ln 

1 

VO 


[B] Linearized Solutions 


LINEAHIZEU SOLUTION W|Th LE SUCTION 


ALFA 


ALFAHO 


aR 


WCL 


WCL 

SLOPE 


CMP 

SLOPE 

“pitch 


CMR 

SLOPE 

roll 


CMY 


yaw 


2V/8 

Y/(b/2) 


SCL 

c. 


WITH LE suction 

SCOl SCM(C/4) 


NO LE SUCTION 
SCL SCDI SCM(C/4) 


i,v 


v(C/4) 


FCN 

c 

"f 


FLAP/aILERO? 

PCX 

c 


with le suction wcl» c 

NO le SUCTION 


/ WCD|« c. 


/ WCMIC/A)* (: 
/ 


(C/4) 


/ L/0- VC;,^ 
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5«2 Printed-Output Format Summary (Continued) 


TABLE 5.05 - LINEARIZED (LIFTING-LINE) SOLUTIONS (Continued) 
[C] Spatially-Integrated Linearized Solutions 


LINEARIZED SnLUTinN WITH IF SUCTION 

**m**********m******0*******iftm***** 


ALPA ALFARP 

a aR^ 


WCL WCL CMf’ 

SLOPE SLO^E 


CHR 

SLOPE 


CMY 


m j . , ni , , 

pitch roll 


in 

yaw 


y 


2V/B SCLAl 


SCLB SCL SCM( U<.| 


Y 


Y/(b/2) 


^lal 


*^in(C/4) 


TABLE 5,06 - JOB/JOBS TERMINATION OUTPUT 


[A] NSURP Execution Mode 

*#•* JOR TIMt* t^ / ELAPSED TlMt= / NO, PLOT FILES* np / NSUHF £XEC. VERSION 6-1B-72 •••• 


[B] ISURE Execution Mode 

• JOB Tint* / ELAPSED TIME* / NO, PLOT FILES* / ISUHF EXEC, VERSION 6-18*»72 **♦* 



n-g 



2) Long-Print Output 


TABLE 5.07 - VORTEX-LATTICE GEOMETRY 



j K XV rv zv uv I vv uv 

j k Coordinates of B(X,Y,Z) Unit Vector IbS 
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5.2 Printed-Output Format Summary (Continued) 


TABLE 5.08 - LIFT DISTRIBUTION DETAIL (One for Each Surface) 


LIFT distribution detail-surface 


J < PCX) P(Z) 

j k Coordinates of CCX.Y.Z) 


AREA CPN C(X) &(V) D(Z) 

AS (c " c ) Unit Vector IV 

I Pl Pu I 


vux) vnT) vKZ) cama 

Induced Velocity Vector V^ ^J.k 


♦ t t 


1 


3) Debug-Print Output 


TABLE 5.09 - VORTEX-LATTICE INDUCED VELOCITY MATRICES DETAIL (One for Each Surface) 


VORTEX L*T^ 1 CE matrix DETAIL-SURFACE NO , *”j / { 


J K rJP Ng VFS(MaT) 
j k m n V *In 

w n 



VIN(MaT) 


I> *1N 
m.n n 


P(X) PtY) P{Z) 

Control Point P(X»Y»Z)^ 

" T T 


BIX) BIT) BIZ) 

Coordinates of B(X,Y,Z)^ 


DIX) D(Y) DIZJ 

Coordinates of D(X,Y,Z) 

ID 



5f2 Printed-Output Format Summary (Continued) 

4) Program Checkout and Debug Print Output 


TABLE 5.10 - PROGRAM CHECKOUT AND DEBUG PRINT 


[A] Induced Velocity Calculation Detail-Print 
Origin: Subroutine V0RTEX (A13 or Bll) 


SDBUGVI 

p = P(X,Y,Z) 

B = B(X,Y,Z) 

D = D(X,Y,Z) 

tana = Tan (a) 

GAMA = r 

PS I F - K 

VC05 = 

SEND 


SDBUGV2 
PSIF = 

VCOS = IV. 

send 


SDBUGV3 
PSIF ‘K 

VCOS = IV 

SEND 


Branch “-A-B 


Branch D-E-<» 


Branch B-C-D 


[B] Ground Effect Mirror Image Calculation Detail->~Prlnt 


Origin: Subroutine REFLEC (AlO or B12) 


SREFLEX 

PX 

py 

XI 

Y1 

PHI 

ALpAR 

Rx 

RY 

ZL 

COSR 

SEND 


X of P(X,Y,Z) 

Y of P(X,Y,Z) 

X coordinate for intermediate point 

Y coordinate for intermediate point 
Ip, rotation angle Cradians) 

a, angle of attack (radians) 

X coordinate of mirror^image point 

Y coordinate of mirror’^image point 
Z coordinate to ground plane 

Cos (<j>) 
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5 . 3 Tape-Output Format Summary 


In exercising the Calcomp/4060-microf ilm plot-option of the program 
through the execution of XQT TRWPLT, the auxiliary execution mode, a data 
tape (or an internal unit) has to be provided in addition to the plotting 
instructions. The data tape is generated in the main execution modes of 
program, XQT NSURF or XQT ISURF, when the tape output option is specified 
in the input, i.e., NFLG(19) 0 or IFLG(12) , IFLG(13) , and IFLG(14) 4 0. 
The data in the data— tape is organized into a number of separate files, 
each file containing a single solution or a separate class of informa- 
tion. The data in each file is organized as illustrated below: 


Execution Mode 

File No. 

Type of Information 

Ref eren ce 

NSURF 

#1 

Geometry for 1st. Surface 

Example #1 


in 

Geometry for 2nd. Surface 

(Section 6.2 

1 

in 

Geometry for 3rd. Surface 


i 

#4 I 




#5 1 

Geometry for 4th. Surface 



//6 ) 




JU 

Geometry for 5th. Surface 


ISURF 

n 

Geometry for 1st. Surface 

Example #2 


in 

Chordwise pressure distribution 

(Section 6.3' 


in 

Spanwise airload distribution 



//4 

Linearized airload solution 



The data record format adopted for each file is given by 
IREC, N, DATA^, DATA^ , , DATA^^ , 

IREC, N, DATA^, DATA^ , DATA^ , 


«t II 

II II 


END 0F FILE 

where 

IREC is the record type or number 

W is the number of variables 
th 

DATA^ is the i variable in the record 

The definition of the variables that are output in the data— tape is 
presented in Table 5,11. 


'3 
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TABLE 5,n 


TAPE-OUTPUT FORMAT SUMMARY 


File 

Execution 

Mode 

Origin 
Routine No. 

Record No . 
IREC 

No. Words 
N 

Data 

Function 

i 

NSURF 


1 

6 

\e’ \e’ ^LE’ ^TE’ '^TE’ ^TE’ 

Isometric Projection of the 
Lifting-Surface Geometry 

A03 

2 

3 

^Fl’ ^Fl’ 

3 

3 

^F2’ ^F2’ 

1 

ISURF 

B03 

1 

7 

^C/4’ ^TE' S’ S’ 

Ortographic Projection of the 

t’Vi 

I Lifting-Surface Geometry 

2 

2 

Si’ Si’ 

3 

2 

S 2 ’ S 2 ’ 

4 

3 

Se’ ^TE’ 

5 

6 

Se’ Se’ Se’ Se’ Se* Se’ 

Isometric Projection of the 
til 

I Lifting-Surface Geometry 

6 

3 

Si’ Si’ Si’ 

7 

3 

S 2 ’ S 2 ’ S 2 ’ 

1 

ISURF 

BOS 

1 

2 


Chordwise Pressure Distribution 

2 

10 

Y/b, c^, c^, c^(;c/4)» 

c„ , c, , c , 

^ “v(C/4) 

Span Distribution of Section 
Airload Coefficients for 
Vortex-Lattice Solution 

1 

ISURF 

B06 

1 

10 

Y/b, c^, c^, c^(c/4)’ Sj’ Sj’ 

c , c, , c 
S S “v(C/4) 

Span Distribution of Section 
Airload Coefficients for 
Linearized Solutions 

2 

7 

“■ =L’ S' S(C/4)> \(c/4)’ 

Spatially-Integrated 
Airload Coefficients 




















5 . 4 Execution Diagnostics and Job Abort Output 


Aside from the system (the computer) diagnostic error messages that may 
be output in the normal execution of the program, diagnostic or job termination 
messages are output when unallowable errors are incurred in the execution. 
Generally, these errors result because of bad input or because some of the cal- 
culated dependent variables fall outside the range of the program. A complete 
list of tlie error messages that may be output by the program and the corrective 
action that should be taken for each individual case is presented below: 

1) Jj3B AB0RTED BECAUSE, N0. 0F LIFTING SURFACES = N EXCEEDS FIVE 

Origin: Subroutine L0FT (A03) 

Cause: The number of lifting surfaces specified in the input 

exceeds the maximum number of lifting surfaces allowed 
in execution. 

Correction: The absolute value sum of NWING, IMFUS, and NVTAIL must be 

less than or equal to five. Revise accordingly. 

2) J0B AB0RTED BECAUSE, N0. 0F SPAN ELEMENTS = NSE EXCEEDS 60 


Origin: Subroutine L0FT (A03) 

Cause: The number of spanwise elements of the vortex-lattice 

geometric configuration exceeds the maximum number of 
allowable elements. 


Correction: Decrease the number of spanwise elements in the vortex- 

lattice by revising the entries in NFLG(l), NFLG(2) , 
NFLGC5). 

3) O0B AB0RTED BECAUSE, N0. 0F CH0RD ELEflENTS = NCE EXCEEDS TEN 


Origin : 


Subroutine L0FT (A03) 


Cause: 


Correction : 


The vortex-lattice number of chordwise elements assigned to 
th 

the N surface exceeds the maximum allowable number. 

The value assigned to NFLG(6) , NFLG(7) ,1 ,or , NFLG(IO) 
cannot exceed 10. Revise these entries accordingly. 
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5.4 Execution Diagnostics and Job Abort Output (Continued) 


4) J0B AB0RTED BECAUSE, N0. 0F V0RTEX -LATTICE ELEMENTS = NVME EXCEEDS 100 

Subroutine LIFTX (A04) 

Too many elemental panels are considered simultaneously 
in obtaining a solution, i.e., the number of elements 
in the induced- velocity matrix exceeds the maximum 
all owab le numb er . 

A smaller number of lifting-surfaces or a smaller number 
of elemental panels per surface has to be considered in 
obtaining a solution. To achieve these objectives 
revise the entries made for NS0LV, and NFLfi(l) through 
NFLG(IO). 

5) J0B ABORTED BECAUSE, MACH N0. = MACHN EXCEEDS 0.90 

Origin: Subroutine MAIN (AOl) 

Cause: The free stream Mach Number assigned to a given solution 

exceeds the maximum allowable limit of the program. 

Correction: Revise the entries made for the MACHN array. 

6) J0B AB0RTED BECAUSE, N0. 0F SPAN STATI0NS = NSS EXCEEDS 30 

Origin: Subroutine L0FT (A03) 

Cause: Too much data input for the X, Y, Z, E, C, and X0CR arrays. 

Correction: Revise entries for NSS, X, Y, Z, E, C, and X0CR. 

7) J0B AB0RTED BECAUSE, N0. 0F CH0RD STATI0NS = NSC EXCEEDS 10 

Origin: Subroutine L0FT (A03) 

Cause: Too much data input for X0C and Z0C arrays. 

Correction: Revise entries for NCS, X0C, and Z0C. 

8) d0B AB0RTED BECAUSE, N0. 0F SPAN ELEMENTS = NSPE N0T PERMITTED 

Origin: Subroutine L0FT (AO 3) 

Cause: The number of span elements assigned to any lifting 

surface has to be a positive integer. 

Correction: Revise (increase) entries for NFLG(l) , through NFLG(5) . 


Origin: 
Cause : 

Correction : 
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5.4 Execution Diagnostics and Job Abort Output (Continued) 

9) J)DB AB0RTED BECAUSE, N0. 0F UING CH0RD ELEMENTS = NWCE N0T PERMITTED 

Origin: Subroutine L0FT (A03) 

Cause: Too few chordwise elements assigned to the lifting 

surface. 

Correction: Revise (increase) entries for NFLG(6) through NFLG(IO). 

10) J0B AB0RTED BECAUSE, INPUT ERR0R IN NSS FLAG, NSS(N) = II .LT.NSS(M)=1 2 

Origin: Subroutine L0FI (A03) 

Cause: Input error incurred in the NSS array specification. 

Correction: Revise entries for NSS array. 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES 


tt program output options * 


(1) - short-print output, 

(2) - LONG-PRINT OUTPUT, 

(3) - 0E8UC-PRINT output, 
(A> - program-checkout, 

(5) ^ PLOT tape output, 


NFLC(2Q) ,OR. IFLCUQ) ,EQ,0, 
NFLO{20),OR, lFLC(10).GE,2i 
NFLG(20 J .OR, IFLG(IO) .GE.5, 

NFLC(20) .OR, lFLGU0I,GEf8. 

NFLC(19) .0R,( IFUG< I )# .GE*i> 


« input-data output - namelist input * 


namelist input, see input Variables list (Section 3,4) for definition 
OF input variables in NAMEuiST input, 


* STaNdARD'PHINT output - ShoRT^PRINT, long-print, or dEBUC-PRINT * 


Variable 

comment 

UNITS + 

definition 

AC 

intg.coeff. 


aerodynamic center for elemental surface no. 1, 

ALFA 


DEG, 

angle of attack measured relative to the free 
stream Vector and the x-cooroinate axis, 

ALFAR0 

ISURF 

DEG. 

wing angle of attack for cl=d,o, 

altitude 


L 

. 

altitude aboce the ground plane, i,e,, the 
Shortest straight-line distance measured from 
THE coordinate SYSTEM ORIGIN (X«Y=Z=0) TO THE 
GROUND Plane, 

AREA 

geometry 

L**2 

projected area of lifting surface. 

area 

ND.GE,2 

L«*2 

area of an elemental surface, 

area 

S(CG) 

geometry 

mm 

reference area used for normalizing the c.g. 
aerodynamic coefficients, 

Aspect rati^ 

' geometry 


aspect ratio of lifting surface, i,e,. Equal to 
(SPAN**2)/AREA 

B(X) 

NO , GE , 5 

L 

X-COORDINATE of point B(X,Y,Z) THAT DEFINES 
THE geometry of the vortex FILAMENT B-D, 

B( Y) 

ND.CE,5 

L 

Y-COORdInaTE of point B<X,Y,Z> THAT DEFINES 
the geometry Op THE VORTEX FILAM£NT B-Q, 

R( Z) 

NU.GE,5 

L 

Z-COOROInATE of point B(X,Y,Z) THAT DEFINES 
the geometry of THE VORTEX FILAMENT B-D, 

C(FLAP) 

geometry 

L 

CHORD LENGTH OF FLAP AND/OR AILERONS, 


tBlank entries denote dimensionless quantities. 
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Variable 


COMMENT 


UNITS 


DEFINITION 


C(Tab> 

geometry 

C(WING) 

geometry 

CG 

INTG.COEFF, 

CH0RO 

C(CG) 

geometry 

CMP SL0PE 

I SURF 

C^R Sl0PE 

ISURF 

CMY slope 

I SURF 

CPN 

nO • GE , 2 

D(X) 

NO.GEtS 

DCY) 

NO . CE , 5 

D(Z) 

NO .CE, 5 

DC 

ND.GE.l 

•determinant 

INTG.COEFF 

DIHED(MGC/4) 

geometry 

os 

ND.GE.l 

DWL 

no . ge , 1 

E 

INTG.COEFF 

EB 

INTG.COEFF 

ECD 

INTG.COEFF 

ECL 

INTG.COEFF 

ECMP 

INTG.COEFF 

ECMR 

INTG.COEFF 

ecmy 

INTG.COEFF 


CHOR D length of Ta8 OR aUXILURV FLAP SURFACE, 

CHOR D length of LIFTING SURFACE CHORQ^PLANE, 

CENTER OF GRAVITY LOCATION DEFINED BY REFERENCE 
dimensions, 

REFERENCE CHORD LENGTH USED FOR NORMALIZING THE 
C.C, aerodynamic COEFFICIENTS, 

irfiNG PITCHING MOMENT COEFFICIENT SLOPE, I.E,, 

= d<wcmp)/d<aufai« 

wifgc rqllin^ momEnt Coefficient slope# i#e,# 

= D(WCMR)/QCALFA) * 

WING Yawing moment coefficient slope, i#e*» 

= D^WCMY)/d<ALFA)i 

normal Force pressure coefficient for an 
elemental surface, 

X-COORoINaTE of point D{X,Y,Z> that defines 
the geometry Of the vortex FiLAMeNT B*Di 

X-COORdINaTE of point D{X#y,Z) THAT DEFINES 
the geometry Of the vortex filament B-Oi 

X-COORDINATE of point D(X,Y,Z> that defines 
THE geometry of THE VORTEX FILAMENT B-Ot 

CHORD INCREMENT OF A VORTEX-LATTICE ELEMENTAL 

surface. 


VALUE OF determinant IN VORTEX-LATTICE MATRIX 

inversion, 

DEG. I dihedral ancle BASED ON THE l/A-CHORO LOCATION 

OF The Mean geometric chord and root chord 

sp an STATIONS, 

L**2 I TRUE AREA INCREMENT OF A V0RTEX.*LATT ICE 
ELEMENTAL SURFACE. 

true span dimension of a vortex-lattice 
elemental surface. 


designation of elemental surface (NTH surface). 
span of elemental surface. 


induced drag coefficient for elemental surface. 

LIFT COEFFICIENT FOR ELEMENTAL SURFACE, 

PITCHING moment COEFFICIENT FOR ELEMENTAL 

s urface. 

rolling moment COEFFICIENT FOR ELEMENTAL 
SURFACE* 

yawing moment coefficient For elemental surface 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


DEFINITION 


NORMAL FORCE COEFFICIENT FOR ELEMENTAL SURFACE, 


horizontal force COEFFICIENT FQR ELEMENTAL 

surface- 


SIDE Force Coefficient for elemental surface. 


time elapsed Since start of execution. 


mean geometric chord of elemental surface. 


area of elemental surface, 


TRUE span coordinate MEASURED AT POINT B OF AN 
elemental surface vortex filament. 


longitudinal station for l/4-CHORD POINT 
location of elemental surface mean geometric 

CHORD. 


waterline station for 1/4*CH0RD point location 
OF elemental surface Mean geometric chord- 


hinge moment section coefficient for Flap or 
aileron control surfaces. 


normal force section coefficient for flap Or 
aileron control surfaces, 


CHOROWISE force section coefficient FDR flap or 
aileron control surfaces, 


FLAP deflection, I.E,, ♦ a DOWN, 


span location of the inner edge of the flap, 


span location of the outer edge of the flap or 
INNER edge of THE AILERON. 


span location of THE OUTER EDGE OF THE AILERON, 


longitudinal station (X-COORDINaTE) for THE 
location Of The center op gravity. 


strength or concentrated VORTICITY FnR THE 
vortex filament of an elemental surface defined 

BY THE POINTS B(X.Y,Z) AND DtX.Y.Z), 


X”component of the unit Vector that defines the 
LINE OF action of jHE LIFt FORCE ACtING ON aN 
ELEMENTAL SURFACE, 


Y-cOMPONENT of the unit vector that defines THE 
LINE OF action OF The lift force acting on an 
ELEMENTAL SURFACE. 


Z-COmPONENT of THE UNIT VECTOR THAT DEFINES THE 
LINE OF action OF THE LIFT FORCE ACTING ON AN 
ELEMENTAL SURFACE, 


span argument or index. 


TIME ELAPSED FOR EXECUTION OF LAST JOB, 


; Variable 

comment 

ECN 

INTC.COEFF, 

ECX 

INTC,C0EFF, 

ECY 

InTG.CoEFF. 

elapsed time 

comment 

EMCC 

INTG.COEFF, 

ES 

INTG.COEFF, 

EW 

nd.ge.x 

EXA 

INTG.COEFF, 

EZA 

INTG.COEFF. 

FCH 

ISURF 

FCN 

I surf 

FCX 

ISURF 

Flap deflec 

geometry 



flap SPaNI 


flap SPAN2 


FUS STa 
X(CG) 



TIME comment 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


Variable 


COMMENT UNITS 


DEFINITION 




N2f,cH0RD 

OISC0N, 


N0 » C H 0RO 

elements 


N0.PU0T FILES COMMENT 

I 


N0.SPAN 

elements 


CeOMETRY 


NO » GE 1 5 


N0.GE|2 


ND*CEi2 


ND«CE,2 


R00T CH0RD geometry 




L.AIL DEFLEC geometry [)EG. 


Mean ch0Rd geometry 


MGC (MAC) GEOMETRY 


OUTPUT 


N0.CE.5 


geometry 


geometry 












geometry deg, 


R.AIL DEFlEC geometry dec, 


•SCALE 


intg.coeff, 



CHORD argument OR INDEX* 


LIFT TO drag Ratio, 


left aileron deflection, IiEfi * “ down, ANq, 
- = UP, 


MACH number of THE FREE STREAM VELOCITY. 


mean chord of lifting surface, l,E,f equal to 
area/span 


mean geometric chord that IS defined equal to 
THE mean aerodynamic CHORD. 


value assigned to NFLG(20) or IFLGUO), 


SECOND argument OR INDEX OF VORTEX-LATTICE 
influence coefficient matrix, 


number of chord discontinuities for the lifting 
surface vortex-lattice Representation, 


number of chord Elements for the lIfting- 
surface vortex-lattice representation, 


number of files output on unit KT2 THAT ARE 
USED IN the program PLOTTING OPTION, 


number of span elements for the lifting-surface 
VORTeX-UaTTIcE representation, 


First argument qr index of vortex-lattice 
influence coefficient matrix, 


x-coordinate of a field point about which 
THE induced velocity IS CALCULATED, 


Y-COOROINATE of a field point about which 
the induced velocity is calculated, 


Z-COORDInATE of a field point ABOUT WHICH 
the induced velocity is CALCULATED, 


chord length OF The root station. 


geometric twist OF CHORD PLANE AT THE ROOT, 
station (WASHlNIi WHERE, 

♦ » leading edge up, and • ■ Leading edge down, 


RIGHT aileron DEFLECTION, I,B, *' = OQwN, AND, 
- = UP, 


average VALUE OF ELEMENTS IN THE VORTEX-LATTICE 
MATRIX 


section drag Coefficient, 


section coefficient for induced Drag, 


SECTION lift Coefficient, 


additional lift distribution SECTION lift 

'FF ■ 
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Variable 


COMMENT 


UNITS 


definition 


SCLB 


ScLC/8 


SCN 


sex 


SmP c/4 


SPAN 


span 

B(CG) 

SwEEP(MOC/4) 


Tab deflec 


TIP CH0RD 


TIP TWIST 


TWIST 


VFS(MAT) 


VIN(MaT) 


VI (X) 


Vl( Y) 


VI(Z) 


y 

WCDI 

WCL 

Wci Sl^P£ 


I SURF 


sect.coeff. 


sect.coeff, 


sect.coeff* 


SECT.CoEFF, 


BASIC lift distribution iwcl«o*Q) section lift 

COEFFiClENTi 

section span loading coefficient, I.E., 

SCL*tC/8). 


section normal airload COEFFICIENTt I.E,, 

ACTING IN THE -Z DIRECTION, 


section CHORDWISE airload coefficient, i,e,, 
acting in the -^X direction, 


section pitching-momEnt Coefficient about the 
LOCAL 1/4-chord location, 


geometry 


L 


span of lifting surface, 


geometry l 


geometry deg 


reference span length used for normalizing the 
c.c, aerodynamic coefficients, 

SWEEPBACK angle based on the 1/4<^CH0RD location 
OF the Mean geometric chord and root chord 
span stations, 


geometry 


deg. 


TAB DEFLECTION, !,£.# + * DOWN, AND.- » UP. 


geometry 


L 


chord length of the tip station, 


geometry 


OEG, 


geometric twist of chord plane at the tip. 
station CWAShOUT), WHERE» 

+ S leading edge up. and - a LEADING EDGE DOWN 


1 


geometry 


DEG, 


geometric twist of the chord plane, where. 

+ = leading edge UP*AND, - ■ leading edge DOWN, 


ND.GE.S 


V/UFS 


free stream vector velocity Component normal 
to the elemental surface at the colocation 
point P(X.Y,Z), 


ND.CE,5 


V/UFS 


induced velocity vector component normal to 
The elemental surface at the colocation point 
P(X.Y.Z) due to the vortex filament defined by 
BCX.Y.Z) and D(X.Y,Z) points, 


ND.GE,2 


V/UFS 


x-component of the Velocity vector induced by 
The sum of all elemental surface vortex 
filaments. 


no . GE , 2 


v/ufs 


y-component of the velocity Vector induced by 
the sum of all elemental surface vortex 

FILAMENTS. 


Nd.GE.2 


V/UFS 


z-component of the Velocity vector induced by 
the SUM Of all elemental surface VORTeX 
filaments. 


sect.coeff, 

I SURF 
I SURF 
I SURF 


L 


cumulative wetted-span dimension in core, 
WING induced drag COEFFICIENT, 

wing LIFT coefficient, 

wing lift slope. I.E,t WCL/(ALFA*ALFAR4I 





















































Variable 

COMMENT 

units 

definition 

WCMP 

tIURP 


WIN6 pitching moment COEFFICIENT ABOUT 1/4 Mac. 

(MAC= mean aerodynamic chord) 

WCMR 

I SURF 


WING rolling moment COEFFICIENT, 

L'CMY 

isurf 


WlNC YAWING MOMENT COEFFICIENT, 

Wing sta 
Y(CG> 

geometry 

B 

span station (y-coordinate) for the location of 
the center Of gravity, 

WL 

NO.GE,! 

B 

SPAN Coordinate in-cqre for point b of an 
elemental surface vortex filament, 

WL STa 
Z(CG) 

geometry 


vertical water-line station (Z-COORDINaTE) for 
the location Op The center of gravity, 

U'S 

geometry 

u 

WETTED-LENGTH span station, 


x-cqoroinate defined for a right-hand loft 
coordinate system, 


Xa(N)/C 

camber 

L/C 

CHORD station NORMALIZED BY CHORD LENGTH FQR 
the nth, location, N«X,2,3,,,.,,10. 

XBAR 

geometry 

B 

longitudinal Coordinate for the i/4-chqro 

LOCATION OF THE MEAN GEOMETRIC CHORD, 

X(C/4) 

geometry 

L 

longitudinal station (X-CDORDINATE) OF THE 
1/4-CHORO location OF THE CHORD PLANE, 

X(LE) 

geometry 

L 

longitudinal station IX-COOROINATE) of THE 
leading edge of the CHORD PLAnE, 

XN 

ND.CE,1 


X-COORDINATE OF THE COLOCATION POINT OF AN 

elemental surface, 

X(TE) 

geometry 

■ 

longitudinal station CX-CooROInATE J qF the 
trailing edge of the chord plane, 

XV 

ND.CE.l 

B 

X-COORdINaTE of point b of an elemental surface 
VORTEX filament, 


Y* 


Y84R 


Y-cOORoINaTE defined for a RIOHT-HaNd loft 
coordinate system. 


SECT.COEFF, 


dimensionless span COQRDINaTEj I,E;i Y/SPaN, 


geometry 


SPaN coordinate for the 1/4-OHORD location 
OF the mean geometric chord I 


YN 


YV 


ZA(N)/C 


ZBAR 


ND.GE.l 


N0»0E,1 


CAmBER 


geometry 


U I Y-COORDINATE OF THE COLOCATION POINT OF AN 

elemental surface. 

L I y-cooroinate of point b of an Elemental surface 
VORTEX filament 

Z-COORDInaTE defined for a right-hand loft 
COORDINATE SYSTEM, 

L/C I verhcal location or mean"Camber Plane relative 
to the chord plane and normalized by the CHORD, 


vertical coordinate for the i/4ifCH0RD LOCATION 
OF the mean geometric chord. ^ ^ ^ 



















































5«5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


definition 


Variable 

gOMMENT 

ZN 

NDiQE,1 

zv 

nP, ge, 1 

ixu 

SECT.COEFF, 

IXN 

ND.CE,1 

IXV 

NO . CE , 1 

lYL 

sect,coeff. 

lYN 

NO.CE, 1 

lYV 

ND.GEil 

IZL 

SECT.COEFF, 

IZN 

nd.ge,i 

IZV 

ND.GEil 











Z-COOROINaTE of the COUOCATION ROINT of an 
elemental surface, 


Z*COOROlNATE OF POINT B Qf AN ELEMENTAL SURFACE 
VORTEX filament 


UNIT VECTOR IN THE *X DIRECTION FOR SECTION 
AIRLOAD. 


x-component of the normaL“Unit-V£ctqr at the 
COLOCATION POINT OF AN ELEMENTAL SURFACE, 


X-COMpoNENT of the unit vector that DEFINES THE 
SPaNWISE orientation of the vortex filament of 
an elemental surface, 


UNIT Vector in the direction for section 

AIRLOAp. 


Y-COMPONENT of the N0RMAL"UN|T-VECT0R aT the 
COLOCATION point Op AN ELEMENTAL SURFACE, 


Y-COMPONENT of THE UNIT VECTOR THAT DEFINES THE 
SPaNWISE ORIENTATION OF THE VORTEX FILAMENT OF 
an ELEMENTAL SURFACE, 


UNIT VECTOR IN THE +Z DIRECTION FOR SECTION 
AIRLOAp. 


Z-COMPONENT OF THE NORMAL'UNl T^VECTQR AT THE 
COLOCATION POInT OF AN ELEMENTAL SURFACE, 


Z-COMPONENT of the UNIT VECTOR THAT DEFINES THE 
SPANWISE orientation Of THE VQRTeX FILAMENT OF 
an elemental SURFACE, 


* program-checkout output - Namelist dbugvi, obugv2, dbugv3i or reflex * 


''aRiarle 

COMMENT 

alfar 

ND.GT.15 

B 

ND.GE.5 

C0SR 

ND,GT,15 

D 

ND.GE,5 

GAMA 

ND.GE.5 

P 

ND.GE,5 

PHI 

N0.CT,15 






DEFINITION 


angle of attack, 


X-Y-Z COORDINATES OF POINT BIX,Y,Z) THAT 
defines the LOCATION OF THE ELEMENTAL VORTEx 

filament B-0, 


COSINE(ALFAR). 


X-Y-Z COORDINATES OF POINT DlXrY,Z) THAT 

defines The location of the elemental vortex 
filament B-0, 


STRENGTH OR CONCENTRATED VORTICITT OF TH£ 
VORTEX filament B-p, 


X^Y-Z coordinates of the field POINT P(X,Y,Z), 


ROTATION ANOlE, 
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5.5 ALPHABETICAL LIST OF OUTPUT QUANTITIES (CONTINUED) 


variable 

comment 

UNITS 

definition 

PSIF 

. 

ND.GEiS 


influence Function psi, 

PX 

N0.GT.15 

L 

x-coordinate, 

PY 

N0.GT.15 

L 

y-cdordinate, 

RX 

NO.GT.IS 

1 

X-cOORdINaTE for image point, 

RY 

ND.GT,15 

L 

Y-cOORdINaTE for image point, 

tana 

NO.Ge.5 


tangent of alpha. 

VC0S 

ND,CE.5 


x-y-2 components of the induced velocity 
Vector at point pixiYiZ) due to the vortex 
filament b«d, 

XI 

ND.CT.IS 

L 

x-cooroinate For intermediate point, 

Y1 

ND,GT,15 

L 

y-cooroinate for intermediate point. 

zl 

nd.gt.is 

L 

altitude, 


5.6 LIST OF ABBREVIATIONS FOR OUTPUT 


ALFA angle of ATTACK 

AIU AILERON 

ASsiG. assignment 

camber airfoil section mean camber specifications 

CL LIFT COEFFICIENT 

C0NS, CONSTANT 

CtG. CENTER OF GRAVITY 

DEC, ANGLE MEASURED IN DEGREES 

i-f « 1 1 9 u ik n&iio i 0'^ 

.EQ. equal 

E|G, FOR EXAMPLE 

GEI^METRY LIFTING SURFACE GEOMETRY SPECIFICATIONS 
,GE. greater or EQUAL 

,CT. greater than 

INTC,C0EFF, spatially-integrated COEFFICIENTS 

iiE. equivalent to 
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5.6 LIST OF ABBREVIATIONS FOR OUTPUT CCONTINUED) 

U LINEAR DIMENSION 

.LE. LESS OR EQUAL 

•LT, LESS than 

L/B LINEAR DIMENSION NORMALIZED BY THE SPAN 

L/C linear dimension normalized by the chord 

L**2 AREA UNITS, I,E,i LINEAR UNITS SQUARED 

nd,ce,i nflac(20) or ifuaguo) greater or equal to X 

NO.CE,2 NFLAG(20) OR IFLAG(IO) GREATER OR EQUAL TO 2 

ND.GE.5 NFLAG(20> or IFLAG(IQ) greater or equal to 5 

ND.GT.15 NFLAG(20> OR IFLAGUO) GREATER THAN 15 

I^PT, optional 

rad. angle MEASURED' |N RADIANS 
REF REFERENCE 

sect,c0eff. airload section coefficients 

SURF, SURFACE 

V/UFS velocity normalized by the free stream velocity 
* multiplication 

exponentiation 
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6.0 EXAMPLE PROBLEMS 


6.1 INPUT-DATA LISTINGS 


example PWaLfN NO. 1 - multiple surface anal>^8|S capability DEMQNSTHaTION 


VX RUN 15^589, TBWilODl-33D3A»LD01(CrS.l COM6Z TRW 

V plt . 

9M MSG FILE «E3. TAPE 1 FM-132 3 FSTRN 1 

V ASC X>A1C202 

V aSG F 

9 XQT CUR 
TRW * 

ERS 

PEF X 
IN X 
TRI X 

» XQT NSURF 

EX 4 HPLE Problem no. t • multiple surf*ce analysis capability oemonstr.tion 

Task 70Z. project 3303A. HJO 147033, AeROdYNAMIc ANALYSIS ANp DESIGN 
E'JBSOMIC'FLDtf LIFTING SURFACE ANALySlS, TR^ PROCRaM NO, HAOlOB INSUKF) 

4, V. GOMEZ/ 5 JULY 1972 

* INPUT 

NMINCmZi NFUS-1, NVTAIL»~2, 

MV'lNCil, 

NSS(1)«3, NCS(1)»2, NFLCdjeZa, NFlC<*) = 4, NFLC{11)»1, 

X(1)S3*30,. YT1I”0.,40.,1AO., Z< 1 > =2»0 . • -17 , 433 , e{i ) ■2*4 , , -1 , , X0CRU1®3*1,, 
CtD- 2*40. .10.. XOcfl.l>»0..1,« FL4Pc<l>*3*0.30. TAer< 1 )»3*0 .0#. 

FLAPDJID* Aq,, a1lDJ(i,i)»-20,»15., wFLAPK 1 1 «0 , , vjFLiP2( 1 ) »4o, ,wPLAP3I 1 ) il4p . , 
MuTAIUcI, 

NSS(21>5r NCS(2>s2. NFLC(2)38. NFLG<7 )s3, NFLC<12)i 1, 

X(4)-2*i50.. Y(4)*o,. 40.. Z(4>« 2»-20.. E(4>*2»-2,, XOcR< ♦ > »2*1 , . C< ♦ >*->0 . i20 . . 
XOCll.2)®0..1.. FLAPc(4)=2*10,. TABct4 >=2»3, , 

FlAP0J(21»-30, , WFL4P1<2)=0.,wPLAP2<2>*40.,uFLAP3(21»4d., 

MFUSELul. 

NS6(3)»7. NCS<3)*2. NFLC(3)=2, NFL6(»>i4, 

X(6)-2»'5C.. Y<»>*2*0.. 2<4>*0.i-20k ef6)»2*0,, XqCR < 6 >*2»0 . 1 C< 4 > »«0 , 1 200 . . 
X0C(1,3)«3.,1., 

MVTAIL»1. 

NSS(4>»9. NcS<4l»2, NFLC<4>=3i NFLc(9>»4, NFLC<14>»1, 

X(8 )»2*15o . I V<fl>»2*40., 2 < 8 ) »'10 . . -4Q . , E*8>=2*D,i XOCR< 8 I *2*1 . . 

C(B)c26..lO. • X0C(i,4)>0..l., FLAPCI8 )c2*o.S. TABC< A } *2*0. 10. 

FU4PDJ(4)« 30.. WFLAP1<4}»{),,WFL4P2<4)»3o.,WFLAP3(4)=30. . 

NaCELE.1. 

NSS(S)<12. NC6I91-2. NFUC(3)«2« NFlG(10)*6. 

X(10)«3«-30.. Ytl0)»3*40.. ZHO)»10.^0..-10.» EU01«3*0., XDCR< ID J»>*D , i 
C ao>>30.. 2*A0,. XOCd.Bl^O. .1. > 

XCCeO.O. nEPC*32,4Bl. REFa*2eO,D> REF5 iB2oO.Oi 

KT2=B. NFLCU9>*1. NJDB=1. 4LF4*10., MAcHN=0,2, NS0LV*12»0. 

JF.NO 

example problem no. 1 - MULTIPLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
S INPUT 

NV.’ING*2. MFUS»0. NVTaIL=0. NFLC«19)*0. NS0LV»1,1. 1.2, FLAPDJ* 3D..-10i, 
NFLGtl)«14,4, 

jfNa 

*ENOJOB8 

V xOT TRWPlT 
KUNIT - 8 
ICCOMP* 0 
NTRAN » 0 
IPRINT® 0 
MfYPE » 0 

nOFScl® 1 

ISCALY ® 1.1.1. 1.1, 1,1,1. 1.1 

NXL = 24 

NXR s 24 

NYL * 24 

WYH = 24 

fJPOsNl s 600, 950 
NP0SN2 • 600. 925 
NP0SN3 = 600. 900 
NP0SN4 = 600. 50 

ANNOTl I 10 ® EXAMPLE PROB. 1 * MUlTIPLE-SURFACE 
4NN0T2 » ID ' capability DEMONSTRATION RUN 
ANN0T3 » ID = A.COMEZ/ 5 JULY 72 

ANNOT 4 • ID = 

CHaRSZ = 1.0. 1.0. 1.0. 1.0 

title = id ® isometric projection Of lifting surfaces 

XL43EL ■: 10 « horizontal AXIS, SEMISPaNS 

YLABEL = ID » VERTICAL AXIS SEMISPANS 

XHI= 1.5 

XL0--1.V 

VH1= 1.5 

ylo=-i.: 


PLOT = 2,1, 

fmdplt 

ANOTSV = 0 
NOaDV a 1 

3,1, 

endlst 

PLOT s 5.1. 
ENOPLT 
NOAOU = 1 

6,1. 

endlst 

PLOT = 2.2, 

emoplt 

.'IDAOV = 1 

3,2, 

ENDLST 

plot » 2.3. 

EMDPLT 

ftJOFlL 
NOADW * 1 

3,3. 

ENDLST 

PLOT e 2.1, 
ENOPUT 

moaov * 1 

3,1, 

ENDLST 

PLOT I 5,1, 

6,1. 

endlst 


ORIGINAL PAGE IS 
OF POOR quality 


f.NOPLT 


JS PmC//ED~aiHDS IHPU? DECK 
REQUIRED FOR XQT RSVRF 


120 PUSCRED-CARDS TKPl/T DECK 
REQUIRED FOR XQT TRWPLT 
(PLOT- OPTICS) 


GENERAL NOTES: 1. 9=7/8 PUNCH 

2. C0HNENT5 ARE PRINTED IN "ITALIC TTPE’’ 

3. DASHED-LINES INDICATE THE START OF A NEW OUTPUT PAGE ( ) 

4. BROKEN- SOL ID- LINES INDICATES OUTPUT HAS BEEN EDITED ( ) 
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6.1 INPUT- DATA 11ST1?<SS (COWTINUED) 


NOAOV ■ 1 
PLOT • 2.2< 
ENDPLT 
nOaDv « 1 

PLOT * 2. 3 1 
ENDPLT 
EnOPIL 
NOADV » 1 
PLOT « 2,1, 
F.NDPLT 
NOaDV • I 
PLOT I 5,1, 
ENDPLT, 

NOADV « 1 
PLOT » 2,2, 
F-MDPLT 
•lOADv * 1 
PLOT « 2,3, 
ENDPLT 
ENDFIL 
NOADV * 1 
PLOT a 2,1, 
F.MDPLT 
NOADV » 1 
PLOT a 5.1, 
ENDPLT 
NQaOV • 1 

plot « 2,2, 

ENDPLT 
NOAOV • 1 
PLOT a 2.3, 
ENDPLT 

enofil 

NOADV » 1 
PLOT a 2,1, 
ENDPLt 
NOADV a 1 
PLOT 1 5.1, 
ENDPLT 
NOAOV “ 1 
PLOT a 2,2, 
ENDPLT 
NOAOV • 1 
PLOT a 2,3, 
ENDPLT 
ENDFIL 
NOAOV a I 
PLOT a 2,1, 

E. NDPLT 
NOAOV “ 1 
PLOT a 5,1, 

ENDPLT 
NOAQV ■ 1 
PLOT - 2.2 
ENDPLT 
NOAOV a 1 
PLOT a 2.3 
ENDPLT 
EnDFIl 

NOADV a 1 
PLOT a 2.1 

F. NDPLT 
NOADV a 1 
PLOT a 5,1 

ENDPLT 
NOAOV a 1 
PLOT a 2,2 
ENDPLT 
NOADV a 1 
PLOT a 2.3 
ENDPLT 

f.ndfiu 

endrun 

7 EOF 


3i2. ENDLST 

3,3, ENDLST 

3.1, ENpLST 

6.1, ENDLST 

3.2, ENDLST 

3.3, ENDLST 

3.1. ENDLST 

6.1, ENDLST 

3.2. ENDLST 

3.3, ENDLST 

3.1, ENDLST 

6.1, ENDLST 

3.2, ENDLST 

3.3, ENDLST 

3.1. ENDLST 

6.1. ENDLST 

3.2. ENDLST 

3.3. ENDLST 

3.1. ENDLST 

6.1, ENDLST 

3.2. ENDLST 

3.3, ENDLST 



6.1 INPUT- DATA LISTINGS (CONTI SUED) 


EXAUPUE no. 2 - SInClE SURFICE ANALYSIS CA^4Bt|.lTY OSmONSTRAT IQN 


FSTRN 1 


60HE2 TR« 


VZ run tB4S8».TRM.1D02,3303Ai 1002>C.9.1 
VN use FILE REQ. TAPE 1 FM432 3 

V aSC X>a10202 
7 aBG F 

V PLT 

7 XOT CUB 
TKl. ■* 

EPS 
pf’ E * 

IM X 

7 XQT I SURF ^ 

example problem no. 2 - Single surface analysis capability demonstration 
Task TD2. project 3303A. MjO 147033, AERODYNAMIC ANALYSIS AND DESIGN 
sijasoNic-FLOw lifting surface analysis, trv program no, HAOIOB INSURF) 

A. V. GOMEZ/ 5 JULY 1*72 

* INPUT 

Nss = 2, NC5.2, 1FLO<2).0.16.0, IFLC 1 9 J.l . 4 , 0 , IFLGtaJ»t, IFLGIIOUS, 

X=2»0.0. Y*0.D,3a.Q* Z«2»a.a. E*2»D.0. C=i5.0i5,0. XDCR»0.29r XOC»0, 0.1.0. 
WpLAPlsO.. NFLAP2»a,62S, «fL4P3»1.0, FL4PC*0.*5, N5HDTH"0.29. 

PHECF»i, LDRAC«i, CLEANF=o,0035i Njoe»l. HACMN-a,?, ALFA«P> 0EL4LF"'12i 
FLAPDJ«3C,0. 41LDJ=10,0,-15.0, 

KT2»8, IFLCril)«4*l, 

NjOBL»*. WCL»l. 0.,0.2».O.S.0.79,1.0.1,25,li9,l,7t,2,a, 

Send 

V XOT TRNPi T 


14 rVSCHED-CARDS JHFUT DECK 
BEQUIBED FOR XQT TSURF 


KUNIT 
ICCOMP* 
NTRaM ■ 
IPRINT* 
ntype * 
MOFSCL 
I scaly = 

NXL » 24 
VXR » 24 
NYL » 24 
NYH » 24 
riPOSNi » 
NP0SN2 I. 
NP0SN3 ’ 
NP0SN4 « 
CHARSZ * 
aNNOTI * 
ANN0T2 = 
ANN0T3 • 
ANN0T4 * 
TITLE * 
XLABEL * 
YLA0EL • 
XLO »-l,l 
XHl > 1.1 
YLO « -.5 


= 1 , 1 > 1 « 1 . 1 > 1 . 1 , 1 . 1.1 


&00. *90 
600, *29 
60Di 9DQ 
60 a, 9a 

l.a. 1 . 3 . 1.0, 1.0 

ID • EXAMPLE PROS. 2 - S1NgLE‘SuRFACE 
10 ■ CaPABIUITy DEMONSTRATION RUN 
10 • A, GOMEZ/ 9 JULY 72 

JO • 

10 « LIFTING surface PLANFORH GEOMETRY 
10 ■ HORIZONTAL AXIS, SEMISPaNS 
la ■ VERTICAL AXIS SEMISPANS 


30S FURCRED-CASDS Iim/T DECK 
REQVmED FOR XQT TRWPLT 
(13 TKRJRES) 


YHI » ] 

1.7 



PLOT « 

1.1, 

2,1, 

4.1, ENDLST 

endplt 




anotsv 

= 0 



noadv» 

1 



PLOT s 

1,2, 

2,2, 

ENDLST 

endplt 




NOAOV> 

1 



PLOT • 

1.3, 

2,3. 

ENDLST 

Endplt 




nOaOva 

1 



PLOT » 

1.4, 

2,4. 

3.4, ENOLST 


FIGURE # I, PLANFOm VIEW OF WING 


ENOPLT 
TITLE " ID 
YLO « -1.1 
YHl *1.1 
PLOT » 1,5 
EMOPLT 
MOADV • 1 
PLOT = 3.5 
End PLT 
NOADV 
PLOT 
EHQPLT 
NOADV 
PLOT 
ENOPLT 
PLOT 
ENOPLT 
MOaDV 
PLOT 
ENOPLT 
NOaOV 
PLOT 
ENOPLT 
NOADV = 1 
PLOT s 3. 
ENOPLT 
EfIOFIL 
aNNOTI = 
aNNOTZ = 
ANN0T3 * 
ANN0T4 = 
CHARSZ = 
TITLE = 
XLABEL = 
ylabel • 

XLO • O.C 
XHl 3 3.3 
YLO t.S.C 
YHI = 9.C 


= isometric projection of WING PlANFORM 


2,5. ENdLST 


4,5. ENDLST 


1.6. 2.6, ENDLST 


1.7, 2,7, ENOLST 

5,5, 2,5. ENOLST 


FIGURE S ?■, ISOMETRIC FBOJECTTON OF WING 


» 1 
6,5. 


= 1 
3,6. 


4,5. ENOLST 


2,6, ENOLST 


2,7, ENDLST 


10 s example prob. 2 - single-surface 
lo = capability demonstration run 
ID = A.GOHEz/ 5 JULy 72 

10 » 

1 . 0 , 1 . 0 , 1 . 0 , 1,0 

Id = CHORDWISE pressure distribution ICPL-CPUI 
id » HORIZONTAL DISTANCE, CHORDS 

ID « differential pressure coefficient 


FIGURE S 3, CROBWISE PRESSURE DISTBIBVXION 


CAOO * 

0.0. 

0,0 


PLOT s 
f.MOPLT 
MOADV 

1.1. 

> 1 

2.1. 

ENDLST 

CAOO = 

'.>.2, 

3.5 


PLOT ■ 
ENDPLT 

1,2. 

2.2, 

endlst 


OBIGINAL PAGE IS 
OF POOR QUALITY 
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6.1 IMPUT-OATA LISTINGS (CONTINUED) 


NOAOV * 1 
CAOO « O.^* 

1.0 

PLOT • l.<. 

2.6. ENDLST 

ENDPLT 
NOAOV • 1 
CaDO • O.Ai 

1.9 

PLOT « 1.6, 

2,6. eNOLST 

EnOplt 

NOAOV * 1 
CADD * O.B< 

2.0 

PLOT = 1.8. 

2,8, ENDLST 

ENDPLT 
NOAOV F 1 
CADO » l.C. 

2.9 

plot r 1,9. 

2,9, EnOlST 

ENDPLT 
NOADV ’ 1 
CADD a 1.2, 

3,0 

PLOT » 1,11. 

-2, 11. ENDLST 

ENDPLT 
NOAOV » 1 
CADD « 1.4, 

3.9 

PLOT » 1,15, 

.2.13.EN0LST 

ENDPLT 
NOADV a 1 
CAOO « l.S* 

4.0 

PLOT • 1.15. 

.2,15.£N0L5T 

ENOPLT 
NCaDV • 1 
CAOO • 1.8, 

4.9 

PLOT » 1,16, 

,2,16,eNdlST 


ENOPLT 

enofil 

TITLE = 10 • 3P*N 41HU040 0 tSTRIflUT ION 
XL48EI. » 10 * HOBIZONTaL. OIST*NcE. 5EM!SP*NS 
YUabEL • Id » section UFT coefficient cl 
CADQ • D.QiO lO'O’OtO .0>0>0>0.0>0.0>0.0'0.0i0«0 
xuo •-1.2 

XHI • 1.2 
YHI = 3.0 
YLO » -1.0 

PLOT » l.li 2.1. eNOUST 
EnDPlT 

YLABEL * IO • section induced drag cOEFFlClE’IT CO* 

PLOT » 1.1. 3.1. ENDLST 


• SECTION PITCHING nONENT COEFFICIENT CR*C 
^.1. ENDLST 


EnOPLT 
YLABEL " 10 
YLO ■ -1,5 
YHI • 1.0 
PLOT » l.l. 

F.NDPLT 
EMOFIL 

title s 10 » linear solution - Span airload distribution 
xlabel = id * Horizontal distance, sehIspans 

YLIBEL s 10 » SECTION LIFT COEFFICIENT CL 
XLO • -1.2 
XHI • 1.2 
YLO » -1.5 
YHI * 3.D 
PLOT = 

ENOPLT 
NOAOV » 

PLOT » 

ENOPLT 
NOAOV » 

PLOT » 

ENOPLT 
NOAOV • 

PLOT » 

ENOPLT 
NOADV * 

PLOT • 

ENDPLT 
NOAOV • 

PLOT « 

ENOPLT 
NOAOV = 

PLOT • 

ENDPLT 
NOADV • 

PLOT = 

ENOPLT 

ylasel 

PLOT • 

ENDPLT 
\QAOV = 

PLOT = 

ENOPLT 
NDaDV ' 

plot * 

FNDPLT 
NOADV = 

PLOT * 

ENDPLT 
NOADV = 

PLOT = 

ENOPLT 
NOAOV 3 
PLOT * 

ENDPLT 
NDAQU = 

PLOT = 

ENDPlT 
NOADV = 

PLOT a 
ENDPLT 
YLABF-L = 10 
YLO • -1.5 
YHI = i.:3 
PLOT s l.l. 

ENDPLT 
NOADV * 1 
PLOT > 1,2, 
tNDPLT 


1,1. 

2tl> 

ENDLST 

1 

1,2, 

2,2. 

ENDLST 

1 

1.3, 

2,3. 

ENDLST 

1 

1,4. 

2.4, 

ENDLST 

1 

1,5, 

2,5, 

ENDLST 

1 

1.6, 

2,6, 

ENDLST 

1 

1.7, 

2«7, 

ENDLST 

1 

1,6, 

2,8, 

ENDLST 

10 

Section ind 

1,1, 

3,1. 

ENDLST 

1 

1,2, 

3.2. 

ENDLST 

1 

1,3, 

3,3, 

ENDLST 

1 

1.4, 

3,4, 

ENDLST 

1 

1.5, 

3,5, 

ENOLST 

1 

1,6, 

3,6. 

ENOLST 

1 

1.2, 

3.7, 

ENDLST 

1 

l.B. 

3,3. 

ENOLST 


' SECTION Pitching moment coefficient cmac 

<.l. ENDLST 
<,2, ENDLST 


FIGURE H 4j SECTION LIFT COEFFICIENT 

\ 


I 

PTCVRE 9 3, SECTION INDUCED DRAG COEFFICIENT 



FIGURE 9 S, SECTION PITCHING MOMENT COEFEJCTENT 

\ 


FIGURE 9 7, SECTION LIFT COEFFICIENT ARRAI 
(LINEAR SOLUTION) 


FIGURE 9 5. SECTION J2lfDt/CEI> DRAG COEFFICIENT ARRAI 
(LINEAR SOLUTION) 


FIGURE 9 S, SECTION FIXOHING M5WBOT’ COEFTICIEIO: ARRAY 
(LINEAR SOLUTION) 


6-4 



6.1 INPUT- DATA LISTINGS (CONTINUED) 


NOAOv • 1 


PLOT • 1.3i 
ENOPLT 
NOADV • 1 

4,3, 

SNOLST 

PLOT • 1,4, 
ENOPLT 
NOAOV « I 

4,4. 

ENOLST 

PLOT = 1,5, 
ENOPLT 
N0*OV " 1 

4,5, 

ENDLST 

PLOT e 1.6, 
F.HDPLT 
NOADV » 1 

4,6, 

ENDLST 

PLOT B 1,7, 
ENDPLT 
NOADV » 1 

4,7. 

ENDLST 

PLOT s 1,6, 

4,8. 

ENDLST 


£NDPLT 

VL40EL" ID = FU*P/*IL NORMAL FORCE COEFF CNF 
VLO * -2.0 
YH] = 4,0 

PLOT = 1,1, 5,1. ENDLST 

E>JDPLT 
■JOADV = 1 

PLOT * 1.2, 5,2. ENDLST 
FMDFLT 
riOADv * 1 

PLOT s 1,3, 3,3, ENDLST 
EWQPLT 
VOAOV • 1 

PLOT M 1.4, 5,4, ENDLST 
FNDPLT 
NQADV 1 

plot e 1.5, 5,5, ENDLST 
ENDPLT 
NOAOV * 1 

PLOT > 1,6, 5,6, ENDLST 
EnDPlT 
NOADV » 1 

PLOT = 1,7, 5,7, ENDLST 
ENDPLT 
NOADV * 1 

PLOT 1 1,8, 5.S. ENDLST 
EnOPlT 

YLABEL* id = FLAP/A JL HORIZ FORCE COEFF CXF 


PLOT « 1,1. 

6.1. 

ENDLST 

ENDPLT 
NOADV • 1 
PLOT * 1.2. 

6.2, 

ENDLST 

ENDPLT 
NOADV » 1 
PLOT « 1,3, 

6,3. 

ENOLST 

ENDPLT 
NOADV ’ t 
PLOT = 1.4, 

6,4, 

ENDLST 

ENDPLT 
NOADV = 1 
PLOT • 1/5, 

6,5, 

ENDLST 

ENDPLT 
NOAOV • 1 
PLOT * 1,6. 

6,6, 

ENDLST 

ENDPLT 
NOAOV » 1 
PLOT « 1.7, 

6,7, 

ENDLST 

ENOPLT 
NOADV • 1 
PLOT n l.B, 

6.B, 

ENDLST 


ENOPLT 

YLA8EL= id == FLaP/AIL HINCE moment COEFF CNF 
YLO = '1.5 
YHI » 1.0 

PLOT = 1.1, 7,1, eNDlST 
ENOPLT 
NOADV • 1 

PLOT » 1,2, 7,2, eNdLST 
ENOPLT 
NOAOV » 1 

PLOT • 1,3. 7,3, ENDLST 
ENQPLT 
NOAOV » 1 

PLOT • 1,4. 7,4, ENDLST 
ENDPLT 
NOaDV ■ 1 

PLOT = 1,5. 7,5. ENOLST 
ENOPLT 
NOAOV • I 

PLOT s 1,6, 7,6, ENOLST 
ENOPLT 
NOADV « 1 

PLOT = 1,7, 7,7, ENDLST 
ENDPLT 
NOADV • 1 

PLOT s 1,8, 7,», ENDLST 

ENOPLT 

VLA0EL ' 10 • NINC AIRLOAD COEFFICIENTS 

XLABEL = 10 ® “INC ancle OF ATTACK, ALFA 

XLO = '15.0 

XNl • 25.0 

YLO = -1,0 

YHI = 3.0 

PLOT B l.V. 2,V. 3,9. 4,9, ENOLST 
EMOPUT 
ENOFIL 
EnDRUN 
VEOF 


FIGURE S 10, flap SORMAL FORCE SECTJOR COEFFICIENT ARRAY 
(LINEAR SOLUTION) 


I 

FIGURE S 11, FLAP CHORD FORCE SECTION COEFFICIENT ARRAY 
(LINEAR SOLUTION) 


FIGURE N 12, FLAP HINCE MOMENT SECTION COEFFICIENT ARRAY 
(LINEAR SOLUTION) 


FIGURE It 13, NINO AIRLOAD COEFFICIENTS 
(IJNEAR SOLUTION) 
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6.1 INPUT-DATA LISTINGS (CONTINUED) 


example PflOELEM NO. 3 - XB«70 AIRPlANE SUBSONIC AEWDYNAniC ANAlT«I* 


VZ HUN T5ASH9. TRW, 1003, 3303A'1003«Ct5>l COMEZ TRW 

9N M5C FILE REQ. TiPE 1 FHA32 3 pSTRN 1 

V aSO XatlOZOZ 
1 ASC F 

V PLT 

V XOT cyH 
Trk a 
tfiS 

ecF « . 

In a 

9 XOT NSURF 

F.XAMPLE PROBLEM NO, 3 - XB-70 AIRPLANE SUBSONIC AERODYNAMIC ANALYSIS 
Task 7Z2> project 33D3A, MJD K7033, AeROdYNAMjC ANALYSIS AND OESICN 
SUBSONIC'FLOw LIFTING SURFACE ANaLtSIS, TRW PROGRAM NO, HAQIOB (NSUHFI 

A, V. GOMEZ/ 5 JULY 197Z 

UNPUT 

NylNC33.NVTAlL*-l» CSCALE*0.0S3333. C0L0 cP«0,B0* 

H'..'1NC = 1, 

NSS(1)=T*NCS(13»2.nFlCI1)=Z2,NFl6I6>'6,XOC(1.1>*D*0.1,0* 

X( i)=-50. <«»50,5»”50.5>-50,5*3*0.0, XOCRI l )*7«l , 0 , 

'’111=0, ,57.27, U4, 54, 171,81,229, o»» ADD. 89,62* 1 97, 

Z(l)*2«0,a>0.44l,D.862.3*0.0> 

£{ 1 )=2»D. D<-0,5,-'1.0,-1.5,“3,0,*3,D, 

0<l>=l4l3.0*»12*l,5l®>1110>A56,984,394,9Qa,d3z,53p,*47,26,4, 

MClNROsl 

NsS<2)t9.NCS(2><3,NFLCI2)>6,NFLC(7]a2,X0CI1.2)sD.0,0.9.1,a, 

Xt 8 ) = *l723.0, "1723.0. XOCRI « )»0 1 55 1 0 , 31&32 , 

Y(ai=0, 0,171,81, 

2(fl)»-73.a.-73.0. 

E<B)a2*3iQ, 

C{61»Z49, 3,96,71, 

ZOC< 1,8 l = Q,a> 9,0.0, 0 B 8 l 6 , 

ZaC( 1,9 >.< 0,0, 0,0,0.08816, 

MFUS=l, 

N56<3>>11.NCS(3)=2,NFLC(3)*2,NFIC<8)*3,XOC<1.5)>0,0.1,0, 

X{10)»-IA63.u8, -13i2,018, Y 1 10 I *0, ,97 .2? , 2110)«2»0,0»E*10)*2*0,0. 

C(10>»74D.O,64o,o,XOCRI10)=1.0,1.0,XOC{1.3)»0.,1.0r 

MF|NS*l. 

NSS(4)«13, NCS(4)i:2, NFLC(4)s3, NFLCl9)=2, KOC( 1 , 4l«0 , 0,1 , 0 , XOCRl 12) *2.1 ,0 , 
X(12)*-9C.5.36.Q, Y<12)n2»l7l.Bl. Z(12)=0.862,-l7l,Bl, E(12)*-l,0.-l«0, 

C I 12) >328. 1313, 83,97, 

XCC*-729,9, ZCC*5.5,YCC*0.0, ReFS«906883,o. H£fC*942,38, ReFB»1260.0, 

NJOBsi, AlFAsID, MACHMi D.20, NS0LV«1. I , I, 2, 1, 4 . 

KT2« 8, NfUCU’I* 1. 0, 

*END 

SENDJObS 

V XQT TRWPLT 
KUNIT • 4 
ICCOMP* C 
NTRAN ■ 0 
IPRINT* 0 
HTYPE • 9 
NOFSCL- I 

ISCALY = 1.1, 1,1. 1,1. 1,1. 1,1 

NXL 3 24 

MXR 3 24 

fjYU • 24 

MYH 3 24 

NP05N1 =■ 60D, 950 
HP0SN2 * 6 DD, 925 
NP0SN3 = 600, 900 
NP0SN4 = 600< 9o 

aNNOTI 4 10 = EXAMPLE PHOB, 3 - XB*7C AIRPLANE 
ANN0T2 « ID = SUBSONIC AERODYNAMIC ANALYSIS 
ANN0T3 4 ID « A. COMEZ/ 5 JULY 72 

ANN0T4 4 ID ’ 

CHARSz 4 i,d>1,Qi1.0.1.Q 

TITLE 4 ID 4 ISOMETRIC PROJECTION OF LIFTING SURFACES 
XLaBEL 4 id 4 horizontal AXIS. SEMISPaNS 

ylabel 4 Id 4 Vertical axis semisPans 

XHI= 2.C 
XLO= -2.9 
YHI4 2.C 
VL04 -?.0 


PLOT * 2.1. 
ENDPLT 
ANOTSV 4 0 
•JOaDV 4 1 

3.1. 

enolst 

PLOT 3 5,1, 
ENDPLT 
NOADV 4 1 

6,1, 

ENOLST 

PLOT * 2,2. 
ENDPLT 
'IDADW 4 1 

3.2. 

ENDLST 

PLOT 3 2.3. 
E'IDPLT 
FNDFIL 
MOAOV 4 1 

3.3. 

ENDLST 

PLOT 3 2,1. 
ENDPLT 
•IQADV 4 1 

3.1, 

ENDLST 

{’LOT s b,l. 

fndplt 

NOAQV 4 1 

6,1. 

ENDLST 

PLOT * 2,2, 
EMQPLT 
MQADU 3 1 

3,2, 

ENDLST 

PLOT 3 2,3, 
ENDPLT 
CNOFIL 
SIDADV 4 1 

3,3. 

ENDLST 

PLOT 4 2,1, 
EnDPLT 
NOAOV 4 1 

3,1, 

ENOLST 

PLOT 3 5,1, 
ENDPLT 
NOAOV 4 1 

6,1, 

ENDLST 

PLOT 4 2,2, 

Enoplt 

5,2, 

ENDLST 


36 PUSCSED-CASDS ISPVT DECK 
PEQUntSD FOn XQT NSVRF 


loe POSCHED-CABDS INPUT DECK 
PBQUIFED POft XQT TRWPLT 
(PLOT OPTION) 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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6.1 INPUT- DATA LISTINGS (CONTINUED) 


NO^DV • 1 


PLOT • 2.J. 

EHOPLT 

EmDF 1l 
NDADV ■ 1 

3i3, 

CNDLBT 

PLOT = 2,1< 
ENDPLT 
MD4DV e 1 

3,1. 

ENDLST 

PLOT » 5. If 
EfJDPLT 
NOAOV. = 1 

6.1. 

ENDUST 

PLOT : 2.2i 
EMDPLT 
MOADV = 1 

3,2. 

ENQLST 

PLOT « 2.3. 

3.3. 

ENDLST 


f.MDPLT 
tMOFIU 
'IOaOV ® 1 


PLOT =2,1. 
f.tJDPLT 
rJOADV » 1 

3.1, 

ENDLST 

PLOT =5.1, 
F.NDPLT 
M04DV = 1 

6.1, 

ENDLST 

PLOT =2,2. 
enoplt 

NOADv » 1 

3,2, 

ENDLST 

PLOT * 2.3, 

endplt 
EnDF I L 
NOADV * 1 

3,3, 

ENDLST 

PLOT s 2.1, 
F.NDPLT 
flOADv • 1 

3.1, 

ENDLST 

PLOT = 5,1, 

emdplt 

•JOADV * 1 

6,1, 

ENDLST 

PLOT = 2.2, 
FMOPLT 
I'lOAOV ® 1 

3.2, 

ENDLST 

PLOT - 2.3, 

3,3, 

ENDLST 


EfJDPLT 

e.HDFIL 

EnDRUN 

VEciF 




6.1 INPUT-DATA LISTINGS (CONTINUED) 


NP0SN2 • 600 ( t29 

fJPOSVj ” 600 f *00 

NP0SV4 - 600 r 90 

CH/tRSZ « ItOi 1.0, 1.0, 1,0 

ANN0T2 * 10 • SUBSONIC *eROoVN4NtC ANALYSIS 

annotj * 10 * SUBSONIC AEnoorNAMic analysis 

4NN0T3 = ID • A.COMEZ/ 5 JULY 72 

»NN0T4 » id • 

CHARSZ • 1.0,1.0,1,0,1.Q 

TITLE » ID * {SOtlETRIC PROJECTION OK LIFTING SURFACES 
XLA8 EL ' ID « HORIZONTAL AXIS, SEnISPaNS 

vLiBEL ' ID • Vertical axis semispans 

XLO r -1,0 
XHJ « ■ 2.0 
YLO * 

YHI = 2.0 

XLD=-2.0 
XHI= 3.0 
YLO=-2.0 
YHI* 3,0 


PLOT » 2,1, 
FMQPLT 

anotsv = 0 

UOADv/ * 1 

3,1. 

ENDLST 

PLOT = 5,1, 
ENOPLT 
NOAOV ■ 1 

6,1. 

ENDLST 

PLOT « 2.2, 

enoplt 

NOAOV • 1 

3.2, 

endlst 

PLOT 0 2.3, 
ENOPLT 
ENDFIL 
nDaOv ■ 1 

3,3, 

ENDLST 

PLOT » 2,1, 
ENOPLT 
mDadv * 1 

3.1, 

enolst 

PLOT *5,1, 
FNDPLT 
NOADV * 1 

6,1, 

ENDLST 

PLOT • 2,2, 
F.NDPLT 
NOaDV • 1 

3,2, 

ENOLST 

PLOT • 2,3, 

endput 

3,3. 

ENDLST 


EfJOFIL 
FnORUN 
7 EOF 


Example problem no. 5 - debug-print output options oemonstration 


7/ RUN t94589,TRB, 1005. 3303a, 1009. C. 1,1 GOMEZ TR« 

7N MSG FILE REQ, TAPE 1 FH432 3 FSTHN 0 

7 ASC X»A102D2 
'' XOT CUR 
TRW X 
ERS 
IN X 
TRl X 

7 XOT NSURF “ 

Example no. 9 - oebuc-oump demonstration/ nflci2oi» 0 

• T4 SK 702, PROJECT 3303a, MJO 147033, AEROOYNaMJC ANALYSIS AND DESIGN 
subsonic-flow lifting surface analysis, TRW program no. HAOIOB (NSURFI 

A. V. GOMEZ/ 5 JULY 1972 

* INPUT 
NwINC=li 

N5S(1>*2. NCS(1I*2, NFLC(1)53, NfLC(6)=2. NFLG<U>»1, 

X(1) = ?«C.> m>«D..10., zlll*2*0., E<ll=2»0i, C<1>"2*10., XOCR ' 1 )='2»D . 25, 
XOCa)»C..l.. FLAPoJ(i)* id,, NJOBel, ALFA* 5. MACHN* D., NS0LV«1.1, 
NKLC(2o)* Q, 

SEND 

example no. 3 - OE0UC-OUMP DEMONSTRATION/ MFLG(20>» 1 
7 input 

NFLC(?C)= 1, 

FEND 

Example no. 5 - DEBUG-OUMP OEHONSfRATION/ HFuG< 20)= 2 
F INPUT 

NFLG(2~)= 2, 


*ENn 

example no. 5 - DEBUC-dUMP demonstration/ HFlCT20I* 5 

FINPUT 

NrLG(70)= 5, 

FCNO 

example No, 5 * DEBUG-OUMP DEMONSTRATION/ NFLGt20)» 8 
* INPUT 

NrLG(2?l= 8, 

F{tNo 

example no. 5 - DEBUG-OUMP DEMONSTRATION/ NFLCtZDI* 16 
F INPUT 

NFLCtJ'j)* 16, NFIG(17) = 1. 

*eno 

fenojobs 


33 FUNCHED-CASDS IKPVT DECK 
JffiOO JBBD FOR X<zr IISVRF 






7 XOT NSURfT 
7 XQT rsURFT 
vEOF 



6.2 EXAMPLE PROBLEM » 1 > MULTIPLE-SURFACE ANALYSIS CAPABILITY 


SUBSOMk-t-LUta i.lfUNG SURFACE ANALYSIS PRDGRAH HAOlOB 
fKh iYSTfcHi INC.. HCUSTON OPERATIONS 


rikiOjTON. TEXAS I7T05UI 


JOBS INPUT LIST **** 


7 XOT NSURF 

EXAMPLE PROBLEM NO. 1 - MULTIPLE SoKEAi.t ANALYSIS CAPABILITY DLMONSTRAnoN 
TASK. 7‘^Zt PROJECT 3303 A, MJO IA 703 J. ^lklUYnamIC ANALYSIS AND DtSIGN 
SUBSON IC-FLOW LIFTING SuKFACf ANALy>Ii, 1 PrOGRAH NO. HAOlOB ( NSORF 1 

A.V.buMcAy S JULY 1472 

t INPUT 

NkINC = 2 , L'EUS=l, NVTAIL — 2 . 

MWiNG'l, 

NSSIII=Ji NC.SI 1 )= 2 , NFLGI 1 J» 28 . NFluIOI-m, «FLGI 1 U = U 

XI 1 I = 3 * 3 P.» Y( 1 1 »P. . AO , , 1 AO. . Z 1 11 =L»u. «- 17 . C)J 3 . E ( 1 1 » 2 *A. ,-l .. XOCftI 1 l = 3 »l . . 
C(ll= 2 AA 0 .. 10 .. XOC 1 1 . U - 0 . . I . . FlaPlI II = 3 *U. 30 . T ABC ( 1 1 = 3 * 0 .OB » 

FLAPOJIU- AO., AILOJI 1 , II =- 2 P.. IS. , »FLApi U > = 0 . ,hF LAP 2 1 1 ) = A 0 , , NFL AP 3 I 1 I = 1 A 0 . 
MHTAIL=l, 

NSSI 2 ) = 5 , NCSI 2 I= 2 , NF 16 I 2 I= 6 , NFU.( 7 I=A. NFLuI 12 )= 1 . 

X(AI = 2 * 150 ., Y(AI = 0 .,A 0 ., £(AI= 2 *-LJ., LltJ= 2 *-Z., XOtR I A J-Z* I . , CIAl= 30 .,Zn. 
XOCI l.ZI = 0 ., 1 ., Ft APC 141 = 2 * 10 . , TAuLtHi - 2 *j. , 

FLAP DJI 2 I =- 30 .. «EL«Pi 12 J = 0 . , WF LAP 2 I 2 1 = AO . .HFLAP 3 I 2 ) = A 0 . , 

MfUSFL = l, 

NSS( 3 I = 7 . NCSI 3 )= 2 , NFLC 13 M 2 . NfL^.lal = A, 

X(6I = Z*-S0.i YI6l-2*0., Z I6>=('. ) tlol-2»u., XQCR16) = 2*0 . , C (6 J =80 . , 200. , 

XnCI 1 . 31 = 0 ., 1 .. 

MVTAIl = l, 

NSSIAJ= 4 , NCSIA 1 = 2 , NFLG 1 A 1 = 3 , NFLuIY»=A, nFl^I 1 A»= 1 , 

XI fl 1 = 2 * 15 ''. , YIBI= 2 »A 0 ., Z I HI =- lO. ,-Aii . ♦ cloI" 2 * 0 .. XDCR I 81 = 2 * 1 . , 

CI 8 I= 25 ., in., XDCI l,AI= 0 ..l.. Fl A PL I o 1 = 2*0. 5 , I ABC 1 8 1 -2 * 0 . 10 , 

FLAPDJ(AI= 30 ., wFLAPI (lI = 0 . ,NFLAP 2 I A 1 = 30 . .NFL AP 3 I A >=30 .. 

NACELF= 1 , 

nSS( 5 »= 12 , NCS 15 »= 2 , NFLG< 5 I= 2 , NFlu i lo J=o , 

XI ir'l= 3 *- 3 r., y( 10 J= 3 *AO., ZI lOl -lu. ,v. ,-lU. , £I 10 >= 3 *''.. XQCRI 101 = 3 *''., 
CI 10 I 230 ., 2 * 6 ' 3 ., XtlC I 1,51 = 0 ., 1 . . 

XCG= 0 .'’, REFC = 32 , 681 , 8eFB = 2 aO.O, nlF s = b 2 JU.U, 

KT 2 = 8 , NFLGll‘ 3 I=l. NJ 08 = l. ALFA-IO., H«LrtN= 3 . 2 . NSI!LV” 12 * 0 , 

FEND 

example problem no. 1 - multiple Sori-«lL aj.ml Y S 1 S . C APAOlL I TY DEMONSTRATION 
UNPUT 

NWING = 2 , NFU 5 = 0 , NVTAIL= 0 » NfLGIlOj-i., NSULY = i,l> 1 , 2 , FLAPDJ= 30 . ,- 10 ., 

NFLGl II = 1 A,A, 

FEND 

FFNOJOeS 
7 XOT NSURF 


DASHED LINE INDICATES NEW PAGE 


JOBFLAG I 
VALUE 28 


lb lA 15 16 17 18 19 20 
OiOOOllA 


tXAMPLE PROBLEM NO- 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
AIFA= .00 MACHNO= .0000 ALlI TOOE=****** 1 


fS 6 , 

♦ 2, 
- 2 , 
♦ 1 , 

,75000C0OE+PO, 

.lOCnooCOE-03, 

.29C0n0OO£-02, 

♦ 0 , 

, lOnooOCOE+Ol, 

♦ 3 , 


.150'TOOOOE*03, 

.1500no00E+03, 

-.3OO00O0OE+02, 

.OOPOOOOOFtOO, 

.OpCOOOOOE+00, 

.OOOOnoOOE«-00* 

.OPOOOOOOE+00, 

f 

.OD''OOOrinE+nO, 

.AonOPonoE^nZ, 

.APOPOOOOEfOZ, 

•OOOOOOOOEfOO, 

.oooooopoe+00, 

.000000001*00, 

.OOOOOOOOE*OQ, 

r 

-.20000000E*02, 
lOCOOOOOE + 02, 

-.lOOopONfiEtOZ, 

.OOOOOOOOEtOO, 
.pp-ippPOOE + no, 
.OOOOOOOOE+OO, 
.poomoooh*oo, 
E 

-.2nooooooF*ni, 

.OOOOOOOOEfOO, 

.000000'’'JE*00, 

.0n00Oonr>E*00, 

.OOOOOOOOEfOO, 

,00OonoooE*no, 

.ooonoo''Ot+oo, 

c 

.30000000E *02, 
.ZSnOOOOOE+OZ, 
.6O000000E+02, 


3000COOOE*02 , .aOjOBUvuc*b2, 

. 15nnOOOnE*03, -. •jwDJuGOiiL* 02 
- 15000000£*03, -. bU0uUUUUt*02 

, cronooooe*oo, .uuujjjoubfOO 

.<30''OOOOOE*nO, .uUUUaODDb*00 

. O0O00000E*no, . OUUJOJOOc+00 

,000000 no£+nO, .oUOJOUwUttOO 

.OOOOOOOOE+PO, .viOoOOjOUcFOO 

00000000£*00, .40U0U4JDJc*Ul, 

, AnPOOCOOE*02, .uuooujijDc*oo 

, AOOOOOOOF+C2, .muuUUDOUlfOZ 

.OCOOOOOOE*nn, .yLi(jUuuuilt*00 

.nonooooOE*on, .uuojuJjub*ao 

,flOOOOOOOE*00, , Jo0UaDOj6*n0 

.OOOOOOOOE*00, .GJUUJOOjcfOO 

.opooooooE+on, .Guojajuijfc*oo 

OOOOnocoE*oa, .nnuui,oo!it*uj, 

-,20000000E*02, . GDOujuOi/c*00 

- . AOooooonE*02, • iDua jJuaE*02 

.OCOOOOCnE*PO, . UuliUJJUJt*00 

.OCOOOnOOE+00, ,uu 0 aa 00 jc *00 

.0000000OE*''0, .UUOUU000t*00 

. CnfOOOOOE+nO, . o00UDtiuut*00 

.caoooooofc*©'’, ,uoouooagfc*oo 

, AOononooE*oi , .aodujouucfj i. 


. AuuDUDOULFOi 
. guUUuuuiJt*QO 
. UUOjuJi>ub*00 
. JgiJU0DujE*O0 
.GJUUJDOjcfOO 
.Guojajuijfc*oo 


-.20'>00O0OE*01, 

. OOnponOOEFOo, 
- OOP 00000 E *00, 

.COOOOOOOEfOO, 

.COOnoo0OE*O0, 
. PCPOOOOOE*''0, 
.CCOOOOnoE+OO, 
Ar- 0000 fn£* 02 , 

.200000 0OE*02, 
.10000000E+02, 
.coooooooe*oo. 


. IDUU JJDaE*Q2 
. UuOUJJUJt*03 
.uuoauBOjcYOo 
. uguUUUl)Oc*DO 
. 00000171106*00 
.OOOOUOUUEFOO 
AOOUJOuOc+J I, 

.OuuJuuU 0 t *00 

. OOUUOO 1,06*00 

.0OOJJJ00t*00 

.GoUJ0UU0c*00 
• jGOJuG00c* 00 
. 000^1,0006*00 
. oo 0000006*00 

AO 0 vI 000 J 6 *J 2 , 

• aoOOJoO}6*02 

• bOOOOO 006*02 

.guOOOQOJt*09 


30000000 E*02, 

-.50')ooonnE*''2, 
300 no 'I O'! E *02, 
,po0nnoo!TE*0'i, 
.ooooooooE*oo, 
.OOOO'lOOOE+00, 
.O0OO000PE*00, 

IACOOOOOE*03, 

.O000O0n0£*O0, 

.AnoonooOE*n2, 

.naoooonoE+m, 

.0O0')0000F*1o, 

.oooooonoE*oo, 

.OOOOOOOOE*00, 

1T633030E*02. 

-.2000000nE*02, 
.(TOOOOOOOE+00, 
• 00000'1''OF*'10, 
.000000006*00, 
.OOOOOOOOE+OO, 
,OOOOOOOOE*00, 

ioocnoooE*oi, 

.O0000'10''E*3O, 
.Onoooo''OE*on, 
,0 '19000006*00, 
.000000006*00, 
.90900009E+P9, 
,oaonooo9E*oo, 

100'5n030E*'12, 

.200 00000 E *03, 
. 60000909 E *02, 
.9090099OEF00, 


original page is 
OR POOR quality 


6.2 EXAMPLE PROBLEH # 1, MULTIPLE-SURFACE ANALYSIS CflPABIlITY (COrmWUfP) 


.00^<^'^0''OE+-00» 

• OnftOO'lflOE+no, 
XQC == 

♦ooonnoor»E^f>o* 

.OOO'lOOOOE^OOt 

♦ lOOn<l'>f'nF+oit 

,nnnamn<i£+o'*^» 

.onoo'^nocFtoo, 

.or^oot)n>^c+oo, 

. iftnoom'JEfOi, 
,00!>f>'>T'l'>F+00t 
.Oorini-'tO^JE+O?, 

,OOnf>o^onE+oo. 

LDC 

.ono'io^^^rtFtOO, 
,r\0'>'>nnnAE + 03* 
, fV'nno'ic^f'E + oOt 
^^r^oonoo^E + OO. 

i-not 

,Onnr''n''AF*Of>» 
*OOf'f'OOO^EtrtO» 
, 000^'^'^^^E + T>f 

.oon'^OOlE + OO, 

*noc>f>f'oooE+oo* 

.000'»m'^'^E+0Ot 

-oooa'nooE+oo# 

*oo<'onoonE*oft, 

,ooonooooE+oo» 

.noooooonE+oo, 

,00onor>r**7E+i>‘>« 

.OOOnnooOE+OO, 

,OOo*>oon<^t+nOf 

♦ ooof'n'>ooE*oo. 
.ooooooonE+oo* 

,00«afinpoE+f>o, 

.OOnmQfinE+on, 

♦ OOOnO')rtTE + Ot>, 
.OnOO'iOOOE+OOt 
.OOOOOOnoF+00, 

.0<'nnoof)OE + r30, 

♦ OOOOO’^OOFfOOt 
-Ooaoo^nF+op, 
*0^nnAAOAE + 0f'f 

♦ ooot^oonoe+oo. 
,onnm'>''PE + DO, 

.nooooTO^EfnA, 

,00<1^0AOOE*00, 
_ ^onnn^AAnF^nn, 

‘»c^v*vr 

.OOOOAAAAE+OOr 

,0'^'>'10'1Arie>nAf 

.OOO'iOArAC+OOj 

• OOOO'lAAnE^AA, 
.OOO0^''0'>E>nn» 

.oooAT:iAnE*oot 

,OOOiA^A»^E4<rio» 

.0or'>->0'30C*00» 

.0'^00^^0nE+O0, 

.oon">o'iA/>F*o<i» 

.OOOf)AHAOE*OOr 

.OnrjOAOOIF + AA, 
♦oof'nmoAF+oA* 
, ^^AAq'^AAAE♦AA, 
.OOAimpAEfrOOt 
..AAOOlAOAE^^OOi 

.OAA')AAA'^F+nrt, 

• CIOOA^AOAFf A-^g 

♦ AAomAfiAF + nA, 

* AnroAAAAE + C'if 

,OOf'AAAAAE + 0‘l, 
.AAAnA'>AAE*r*A, 
* AOAAOO^ AE*AA, 
.oo'no'joAF+riA, 
^OA''1 aoa^^F + p^j 

,0OinAAriAF|./\Aj 

40AA^Anf)<»F*0A, 

.orKiTO’^'^AE + riA, 
KDCR 

* lO'^A^TAAE*f' 

,inO‘^'>nOOE*01, 

4 COOOAAPAQ4. AA^ 

,2^AAAArTF«-nOr 
■ 25OOA"'AAF + A0t 
,25CAA^nAF+AAj 
► 2500A irinE ♦ACi, 
WELAPl = 
.OOmAOA.iFt^flT, 
WFLAP2 = 

• 3AOAAAAAE 
HFLAP3 s 

4 300'>AAr)AE + rZ, 


• COOOOOOOE^OO* 
^rroPOO'^OE^-OO, 
.0A0AO0''')E*r'nt 
,0''OPO'^OOE4-ftrti 

AroflOCPOE+oot 

.t^rOGOOOOE+On, 

.OOPOOOOf>E+00* 

.ortooonooEi’Oo* 

^COODOOPOE+Pflt 

.COnoonOftE*!?^! 

• ConpOOO^£*Cf1, 
*OPrtooo''OE+on, 

• 000000 '>OE+OOf 
. 000000 OOE*00, 
.COOOOOOOE+00, 
.COOOOOOOt+nn, 

,roooooooE*on, 

,gOOOnOOOE*OOf 

♦ronoooooE+oo, 

•OOOOOOOAE+OO, 

•COOOPOOOE+00* 

♦ooPoooooe+Ao# 

♦OOOOOOOOE+00, 
.OOOOOOOOE+00, 
•OOOOOoaoE+on, 
#000000006*00. 
4 000000 OOE+00, 
.OOOOOOOOE*00. 
4 00'' 000 00 E *00. 
-OOOOOOOOE+00, 
♦OOOOOOOOE+00, 
,000000006 *00. 
♦ POOOOOOOE+DA, 
•OOOCOOOOE*OA, 

,onAonoooE*oo. 

#nonoOOAAE*AO. 

♦000000006*00. 

• OODOOOO''6*On . 
,000000006*00. 
,AOOOOOOOE*CO. 
,000000006*00. 
,00A00O00E*Of>, 

,000000006*p0. 

,000000O0E*O0, 

,00A0QOD''6*O0. 

,00O000OAF*cv0^ 

,QroonooOE*Ao» 

.QOAOOOnOE*')'', 

,flrOOOOOOE*or>. 

.OOOOOOOOE+OA, 

,o''Qoooooe*po^ 

,ooooonooc*oc, 

4 OCAOOOOOE*OOf 

,nnooof>ooE*oo. 

,OOOOOOOOE*00» 

• ri *^0000006 *pn, 
,OOOOOOOOF*PO. 

.jjooj5qoon£*j](^* 

-onooooAOE+ooI 

.CoonocOOEK''. 

•COOOOAOOE+no, 
-COOOOOmE+Or, 
.COOOOOOOF+OO, 
, 000000 00E*?o, 
.Oi^CrO^POE+PO. 
,nrooO000E+''n. 
,OOOOOOOn6*OAi 
,conooPO''E*f'r. 
•cnoro?ooE*oo, 
.ro^'OOO OOF *01^. 
,0OA00000E*<10. 
.AAooOOOAE+aa, 
,0OOO0''00E*<^0i 
400OC00aa6*0A, 

• GcnoooooE+r'^. 
*oaaoooooe*oo. 
•OaaOOOOAE*^^. 

^ AAorooOAE*AA, 
,fAAOOAAAF*OA^ 
4 0r<“00"0Cfc*''0 . 
4 AAnAQOAr)E*AO, 

.r'^fiAnooCE+’^O. 
, 0'^'' A(| o AE ♦O-'^ . 

4 OOnnOAOAE+AO. 

*cAr>ro''or^6*rr , 


,Crri]O000E*AOr 

^nAA(T|O0AAE+nAf 

4 Q0AnAAir)F4.^(>^ 

,OnnpO0OAE*O<^i 

^OAA/»or'5nt*rA, 


• OtiO;>UOUOi:*OQ 

• Uuao000(j4:*00 
.ociaaouojc*oo 

• vUiJ^O(>)Ui)t*00 
lOUu^Ol/JcOii 

. JuCli/i)^uab*Q{} 
»0uJ;>«j30Jb*Q0 
.a\^jjOt>u«it*oo 
4 t>U(i^00uQt*OO 

• iu0OOJOl>c*01 
,(jijijjiiUu0L*00 

• uuOi;>o;>ocit*QO 

• OJJl>JOu^;c*00 

• 00 Ji/O^C^Jb*QQ 
• iuUOOOO^c*01 
.OuUJOi>UUb*^0 

> U<jOOOt>OOE *00 
rOouyOUOc*OOt 

♦oooooooot+oa 

♦OJ0 jOO 0 uc *00 

• Oj(JOOOOJt;*00 . 
♦uOOOouogt*io 

,ooouoooot*oo 
.000000006*00 
.uooOoOOOt*OQ 
♦OJOOOOUOt*OOi 
. OUOk/OOOuL*00 
#OuOOOOoO£*OOi 
,OuOU000Ut*00 

• 1^00000006*00 
♦000000006*00, 

• Uo0l>0000c* 00 
♦000u0o006*00< 
. v00J0Uo06*00, 

• OJOJLiOOOt*00. 
,o00l>0o006*00i 
♦oo0o00006*00, 
,uOOJJ0006*00. 

• uO 0 iJ 0O0 o 6*00 i 
,O 0u!jUU0OL*00i 

• 0wrOli0u00t*00i 

♦ 0 Ooj 0 uoOc* 00* 

• uoOJ v000t:*00i 

• oOi/JujOOc*OOi 

• L>J 0^00 Due *00, 

♦OOOOOOoOt*00. 

4 uuJulOOliu6*OOi 

• OOi>jU0 0Jt*0'Ji 
4 u<j^OJOOOL*OOi 

• u J J4J 00 006 * 00 1 
4 0UO0JOUtiL*00, 
« Uiiu<^OJUJt*OOi 
.OO0O^^iJOJk*00| 
4 uOu^jJJOOc *0*) 1 
.WJjJOOOJc*OOi 

• uJOO0i>uuc*00 I 
«0 oO 0 <j 00 Uc* 00, 

- t*^^ 

• U^«.fl^VWWW T VV* t 

♦OOOOOOOJ6*OOi 

• UJO«^i>J0Jc*03 I 

• 0uoJ«/JU0t*00t 

• |jJOJUOOuc*00 I 
,vgj^0OOs^t*00 ) 
•Ojojoouoc+no I 

• 0 oOJ' 0 j<jcpc *00 I 
*<JOOJUO^Jc:*0^< 
.OOUJi^JUJi.*DQ , 
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6.g EXAMPLE PROBLEM # 1. MULTIPLE- SURFACE ANALYSIS CAPABILITY (CONTINUED) 
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EXAMPLE PROBLEM MO. 1 - MULTIPLE SURFACE ANALYSIS CAP 
ALFA= .00 MACHNO. .0000 ALTITUDE^****** 
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6.2 EXAMPLE PROBLEM # 1, MULTI PIE- SURFACE ANALYSIS CAPABILITY (CONTINUED) 
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21 1 6.533*01 
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23 1 8.524*01 
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-1.016*01 9.605*01 
-1.171*01 1.062*04 
-1.331*01 1.163*02 
-1.495*01 l.264*'>4 
-1.664*01 1.365*02 

-1.667+01 1.365+04 
-1,497*01 1.264*04 
-1.329*01 1.163*04 
-1.165*01 1.062*04 
-1.C04+01 9.605*01 


L« 

UUL 

1.^63*02 

1.311*01 

l..,O'**02 

1.311*31 

4. 1i.3*02 

1.01 1*01 

1.064+V2 

1.011*01 

5.UU3+01 

1.311*01 

O.59<t*01 

1.01 1*01 

7 . 363*01 

1. 011*01 

6. 3/2»U1 

l.-311*0l 

3. 3Pl* Vi 

1,011*01 

<t. 33 6*61 

l.0ll*'3l 

3.539* J1 

1.011*01 

4.52o*0i 

1.011*31 

1.317*01 

1.311*01 

5.053*00 

1.011*01 

5.035*00 

i.‘ni*'u 

1.517*61 

1.011*01 

...52 6*61 

1.011*01 

3.3JV+U1 

1.011*01 

6.55 6*61 

l.Oll+OX 

5.561+Ul 

1.011*01 

6.572*01 

1.011+01 

7.5u3*Ul 

1.011*01 

6.59**U1 

I. 011+01 

9.065+U1 

1. 011+01 

1. J02+64 

1,011+01 

1. 1U3+U4 

l.'311+oi 

1.464*0.: 

l.Oll+Ol 

1.365*02 

1.011+01 

1.365*62 

1 . m+oi 

1.464*02 

1,011+01 

1.165*62 

l.OU+Cl 

1.U64+U2 

1. 011+01 

9.603+Ul 

1.011+01 


DC 

OS 

2.333+00 

2.711*01 

3.030*00 

3.416*01 

3.727*00 

4.121*01 

4.424*00 

4. 8 25+01 

5.121*00 

5.5 30+01 

5 .818*30 

6.235+01 

6.515*00 

6.939*01 

7.212*00 

7.644*01 

7.909*00 

8.348*01 

8.606*00 

b.oSS+Ol 

9.303*30 

9,421+01 

9.333*00 

9.4 36+01 

9.313*'>0 

9.436*01 

9.333*00 

9.436*01 

9.333*00 

9.436*01 

9,333+00 

9.436*01 

9.333+'>0 

9.436*01 

9.333+00 

9.421+01 

9.303+00 

9.053+01 

8.606+00 

8.348*01 

7.909+01 

7.644+01 

7. 212+00 

6.939+01 

6.515*00 

6.235+01 

5.818*00 

5.530 +01 

5.121*00 

4.825+01 

4.424*00 

4.121+01 

3.727*00 

3.416+01 

3.030*00 

2.711+01 

2. 333+00 

2.711*01 

3.03O+10 

3.416+01 

3.727+00 

4.121+01 

4.4Z4+0 0 

4.825+01 

5.121*00 

5.5 30*01 


JQOfLAG 1 2 3 4 5 6 T 8 9 1 J U 1 2 1 J 14 15 16 1 7 18 19 2" 

VALUE 28B2324344pl»UlC00ll4 


EXAMPLE PRUBLEH 
ALEA= .CO 


NO. 1 - MULTIPLE SURFACE ANALYSIS CAP 
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8.594*01 


1. 011+01 

5.818+00 

6.235+01 

7 

2 

-7.528*01 -6.9C5+00 

7.583*01 


1.011*11 

6.515*01 

6.939+11 

8 

2 

-6.533 + '’! -5.385+00 

6.572+01 


1.011+01 

7.212*01 

7.644+11 

<J 

2 

-5,537+01 -3.896+01 

5.561+01 

*>6 90 l-l-Oi 

l.Oll+Cl 

7.919*01 

8.348 *01 

10 

2 

-4.541 + ''! -2,438 + 00 

4. 550+01 

^•9:iLr+Ui 

1.01 l+Cl 

8 .616+00 

9.153+01 

11 

2 

-3.538+01 -I.6e*+0'’ 

3,539+01 


1.011*01 

9,303+01 

9.421*01 

12 

2 

-2.528+01 -1.655+00 

2.52B+01 


1.111*01 

9.333+11 

9.436HI 

13 

2 

-1.517*01 -1.655*00 

1.517+01 

1-91 /*\JL 

1-111*01 

9.333+m 

9.436*01 

14 

2 

-5. '355*00 -1,655*00 

S.055+Oy 


1.011*01 

9.333*11 

9.436*01 

15 

2 

5.055+01 -1.655+01 

5.055+Ou 


1.011*01 

9.333*00 

9.436*01 

16 

2 

1,517*01 -1.655*01 

1.517*01 

i 6 91 ftOl 

1.111*11 

9.333*01 

9.436*11 

17 

2 

2.528*01 -1.655*00 

2.528+Ci 

^4 9^O^0l 

1.011*01 

'1.333+01 

9,436*11 

IH 

2 

3.538+n -1.686*00 

3.539+01 


1.011*01 

9.333*11 

9,421*11 

19 

2 

4.541+01 -2.438+00 

4.550+01 

99U^ i*l 

1.011*01 

9 .303*01 

9.153*01 

2n 

2 

5,537*01 -3.896+01 

5.56l+Oi 

Ji 

1.111*11 

8.606*01 

8.346*11 

21 

2 

6.533*01 -5.385*00 

6.572*01 


1.111*01 

7.919*11 

7.644*1 1 

22 

2 

7.528+01 -6.9C5+00 

7,583+01 

7 . 9o>t Oi 

1.111*11 

7.212*01 

6.939+1 1 

23 

2 

8.524+01 -8.455+00 

8. 594+O1 

U« 

1.011*01 

6.515*11 

6.235+11 

24 

2 

9,520*01 -1.004*01 

9.605+01 


1.311*11 

5.818+01 

5. 530+01 

25 

2 

1.152+02 -1.165+01 

1.062+C^ 


l.Oll+Ol 

5,121+n 

4,825+11 

26 

2 

1.151*02 -1.329*01 

1,163 + 0.. 

i • 4O>4-0<i 

l.Oll+Ol 

4,424+11 

4.121+01 

27 

2 

1.251*02 -1,497*01 

1.264*0., 


1.011+01 

J. 727+00 

3.416*11 

28 

2 

1.350+02 -1.667+01 

l.365+Oi 


l.Oll+Ol 

3,031+10 

2.711*01 

1. 

3 

-1.35')*02 -1.670*01 

1.365 + 0.. 

1 m 

1.-1 ll + 01 

2.333+11 

2.711*01 

2 

3 

-1.251+02 -1.49B+01 

1.264+0. 

1a4.c*h10^ 

i.-m+oi 

3.031+00 

3.4 16*01 

3 

3 

-1.151+02 -1.327*01 

1.163+02 

1 * 

l,'’ll+01 

3.727+11 

4.121*11 

4 

3 

-1.152*02 -1.159+01 

1.162+Oi 

4 > 

1.11 1*01 

4,424+11 

4.825*01 

5 

3 

-9.520+01 -9.917+00 

9.605*01 

9»0^9lUl 

l.CU*Ol 

5.121+10 

5.530*11 

6 

3 

-8.S24*'’! -8.267*01 

8. 594+01 


1.111+01 

5.818+11 

6.2 35*11 

7 

3 

-7.528+Cl -6.635+00 

7.583+Oi. 

7« 

1.311+01 

6.515*11 

6.939*01 

0 

3 

-6.533+11 -5.022+01 

6.572+01 


1.11 l+'H 

7.212+10 

7.6 44*0 1 

9 

3 

-5.537*11 -3.428*00 

5.56l+Oi 

9a 70I+ J4 

1.11 l+Ol 

7.919+11 

8. 348*11 

10 

3 

-4.541 + '’l -1.853+00 

4,55t)+.il 


1.111*11 

8.606+0 0 

9.153*01 

11 

3 

-3.538+01 -1.036 + tJo 

3.539*01 

Ui 

l.Oll+Ol 

9.3')3 + 11 

9.421*11 

12 

3 

-2.528*01 -l.OiZ+Oi 

2.52d+Oi 

^ i 

1.011 + ''! 

9.333+10 

9.4 36*11 

13 

3 

-1.517*11 -1.012+01 

l.SlT+n 

l-9i /*J1 

1.011*01 

l-lSS+il 

9.4 36+01 

IS 

3 

-5.055+11 -l.l'lZ + QO 

5.055+O0 

9« s;99* Jj 

1.01 im 

9.333+10 

9.436+11 

15 

3 

5.155+11 -1.002+00 

5,o55+o« 

09 j*UJ 

1.111*01 

9.333+11 

9.436+01 

16 

3 

1.517+01 -l.ro2+ri 

1.517*01 

ZtL f*\JL 

i.on+:>i 

9.333+11 

9.436*11 

17 

3 

2.528+11 -l.riZ+iO 

2,528+11 

4.« 9^ 

i.oii+;>i 

9.333+00 

9,436+11 

18 

3 

3.538*01 -1.C36+00 

3.539+Oi 


l.Ml+11 

9.333+11 

9-421+01 

19 

3 

4.541+‘‘l -1.853+00 

4.550+O1 

^6 99*J'*'U4 

l.Oll+'ll 

9,313*11 

9.153+11 

20 

3 

5.537+11 -3.A28+00 

5.561+11 

J 4 

1.111+ji 

8.606+11 

8.348+01 

21 

3 

6.533*11 -5.022+00 

6.572+11 

i<4 9 /tf Ui 

1.111 ♦11 

7.909+11 

7.644+11 

22 

3 

7.528+11 -6,635 + ')0 

7. 583+01 

/ 4 909«'kii 

1.011+11 

7. 212*11 

6.939+01 

23 

3 

8.524+-31 -e.267 + 00 

6.594+01 

04 

i.'ii+ii 

6.515*00 

6, 235+11 

24 

3 

9.520»r,l -9.917 + 10 

9.605+01 

^4 0U9«-5/X 

l. 01 1+01 

5.818+10 

5.531+01 

25 

3 

1.052+02 -1.159+01 

1.062+0. 

l4 

l.Oll+H 

5.UI+11 

4.825*01 


jobflag 

12 3 4 

5 6 

7 8 9 LJ 

ii L<. 8.7 

14 15 16 

17 18 19 2 

value 

28 3 2 3 

2 4 

3 4 4 0 

X 1 J 

1 n 

111' 

J 

K 

Y 

2 

Ul 

Cn 

UhL 

OC 

26 

3 

1.151*12 -1. 

327*01 

1.163+1+ 

i • 

l. Ill +91 

4,424+01 

27 

3 

1.251*12 - 1 . 

49d+01 

1.2b4+Oi 

1 * «.u4*w»^ 

1.11 1*01 

J.7Z7*m 

23 

3 

1 . 350*12 -1. 

671+11 

1.365+1+ 

i 

1. Ul + ll 

3.131+11 

1 

S - 

L.290*'--2 -1. 

674+01 

l.ib5+0+ 


1. 111+11 

3.001+13 

2 

S- * 

1.251+02 - 1 . 

511+01 

1.264*1+ 


l. 011+11 

3.896+11 

3 

4 - 

I. 151+12 -1. 

325*01 

1.163+1+ 

X- 

l.Oll+Ol 

4,792+1'1 

S 

4 - 

1.152+12 -1. 

151*01 

1.062+0+ 

i * U04.*J^ 

1.011+01 

5.688+91 


EXAMPLE PkCBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA= MACHNU* •OO'IC ALT I TUOE •«*•**• 5 


OS 

4. 121*01 
3.416*01 
2.711*01 

3.436*01 
4. 392*01 
5.298*01 
6.204*01 


6-12 


6.2 EXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUEO) 


5 

4 

-9.520+01 -9.771+00 

9.605*01 

5. d05 + U1 

X.0tl*01 

6.584+00 

7.110+01 


6 

A 

-8.524+01 -8.038+00 

8.594+01 

6.:>94»U1 

1.011*01 

7.480+00 

8.016*01 


7 

<r 

-7.526+01 -6.3C8+OC 

7.503 + m 

7.56 J+ 01 

1. 011+01 

8.177+09 

8.922*01 


6 


-6.533+91 -4.582+0'’ 

6.572+01 

6.572+01 

1.011*01 

9.273*99 

9.828*01 


9 

<¥ 

-5.537+01 -2.860+00 

5.561+01 

>.5al+01 

l.Oll+Ol 

1.917+91 

1,9 73*02 


10 

4 

-4.541+ri -1.142+00 

4. 550*91 

4.53U+U1 

1.011 +01 

1.106+01 

1. 164+02 


11 

4 

-3.538+01 -2.471-«1 

3.539+01 

J . 539 + 01 

1.011+91 

1.196+91 

1.211+02 


12 

4 

-2.520+01 -2.CS8-01 

Z.52B+<il 

2 • 56 0+01 

1.011+91 

1.200+91 

1.213+02 


13 

4 

-1.517+91 -2.CS8-01 

1.517*01 

1.51 7+01 

1.011+91 

l-ZOO+O 1 

1.2 13+02 


14 

4 

-5.355»?' -2.rS6-91 

5.055+r>(J 

5 .O 55 +O 0 

1. 011+91 

1.200*01 

1,2 13*02 


15 

4 

S.FtSS+OO -2.C98-01 

5.055+Ou 

5 . 055+Uj 

l.Oll+'il 

1.200+01 

1.213+02 


16 

4 

1.51.7+0 1 -2.C58-01 

1.517+01 

1. 51 7 +O 1 

1.911+91 

1.209+9 1 

1.213*92 


17 

4 

2.E28+01 -Z.rse-Ol 

2.526+91 

6.52 6 +OI 

l.Oll+Ol 

1.209+01 

1-213*02 


18 

4 

3,530+Pl -2.471-01 

3 . 539 +O 1 

5. 5j5+01 

1.011+01 

1.290+0 1 

1.211+02 


19 

4 

4.541+11 -1.142+0? 

4.559+01 

4. 3JO+ul 

1-911+01 

1.196+ni 

1. 164*92 


2? 

4 

5.537*01 -Z.B60+0'’ 

5.561+01 

5. 5Ul+Ol 

l.Oll+Ol 

1.106+0 1 

l.O 73+02 


21 

4 

6.533+01 -4.582+90 

6.572+01. 

6. 57i+u1 

1.011*01 

1,017+01 

9. 8 28+01 


22 

4 

T-BZa+Pl -6.3C8+0? 

7,583+91 


1.011*91 

9.273+90 

8.922*91 


23 

4 

6.524+01 -6.C38+0'’ 

8.594+91 

0.594+01 

l.Oll+Ol 

B. 377+09 

8.916+01 


24 

4 

• 1 . 520 + 01 -9.771*00 

9.605+01 

9.605+61 

l.Oll+Ol 

7.480+09 

7.110+01 


25 

4 

1.C52+02 -l-lSl*?! 

1.062 + 02 

l.Uoi + 6*. 

1.011+01 

6,584+09 

6. 204+01 


26 

4 

l.lSl+f’Z -1.325+'’! 

1.163+02 

1.11.5+02 

1.011+91 

5.688+00 

5.298+01 


27 

4 

1.251+02 -1. 500+01 

1.264*0i 

1.264+02 

1.011+01 

4.792+90 

4.392*01 


20 

4 

1.350+02 -1.674*01 

1.365+'’* 

1.565+0+ 

1. 011 + 01 

3.896+90 

3. 486+91 


J 

K 

XV YV 

IV 

IXV 

IVV 

12W 

XN YN 2N IXN lYN 

12N 

1 


2.956+'’! -1,490+02 

-1.747+01 

—2- 1*65—01 

9.496-'’ 1 

1.629-01 

2.052+01 -1.350+02 -1.664+01 1.237-02 -1.647-01 

9.863-01 

2 


1. 777*01 -1. 390+02 

-1.577+01 

-2. 085-01 

9,593-01 

1.575-01 

1,805+01 -1.251+02 -1.495+01 3.919-03 -1.624-01 

9.867-01 

3 


1,496+91 -1.201+02 

-1.412 + 01 

— 2.6o7— 01 

9.510-91 

1.529-01 

1.559+01 -1.151+02 -1.331*01 -4.580-03 -1.600-01 

9.871-01 

4 


1.215+01 -l.l':i+92 

-1.252+01 

-2.689-3 L 

9.517-01 

1.463-01 

1.313+01 -1,052+02 -1. 171 + 01 -1.311-02 -1.576-01 

9.874-01 

5 


9.332 + ''0 -1.C02+92 

-1.097+01 

-+. O9O-01 

9.523-01 

1,437-01 

1.966+01 -9.520*01 -1.016*01 -2.166-02 -1.552-01 

9.876-01 

6 


6.520+09 -9.022+01 

-9.465 + '’li 

-2.692-01 

9.530-01 

1.392-01 

8.197+00 -8.524+01 -6.644+00 -3.022-02 -1.528-01 

9.878-01 

T 


3.707+00 -8. 026 + 01 

-B.911 + 0d 

-2.694-Oi 

9.536-01 

1.345-01 

5.732+00 -T. 520+01 -7.174+00 -3.879-02 -1.503-01 

9.879-01 

8 


8.942-01 -7, 030+01 

-6.607+OJ 

— + • o9o— 0 1 

9.542-01 

1. 299-01 

3.268+00 -6.533+Cl -5.747+00 -4.737-02 -1. 479-01 

9.879-01 

9 


-1 .919*00 -6.035+01 

-5.251 + Ou 

-2.697-01 

9.548-01 

1.253-01 

8.038-01 -5.537+01 -4.364+00 -5.595-02 -1.454-01 

9.878-01 

10 


-4. 731+09 -5.C39+01 

-3.945*06 

-t. 699-01 

9.553-01 

1.206-01 

-1.660+00 -4.541+01 -3.023+0? -6.454-02 -1.429-01 

9.876-01 

11 

1 

-7.544+09 -4.C43 + 01 

— 2 • 68fl+0ii 

-i. 214-02 

9,999-01 

5.312-03 

-2.946+00 -1,538+01 -2.336+00 -6.957-02 -6.144-03 

9.976-01 


JQBFLAC 12 3 

</AUit 28 H 2 


4 5 6 

3 2 4 


7 8 9 id li 12 IJ 14 lb 16 IT 18 19 20 

344bilill ('00ll4 


EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PACE 
AIFA= .00 HACHNQ* .OOOC ALTI TUDE=****** 6 


J 

12 

13 

14 

15 

16 
17 
le 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

1 

2 
3 


K XV 

1 -7.667+00 
1 -7.667+00 
I -7.667+09 
I -7.667+00 
1 -7. 667+00 
I -7.667+00 
I -7.667+09 
1 -7.544+19 
1 -4.731+CO 
1 -1.919+00 
1 8,942-01 

1 3.79 7+00 

I 6.520+00 
I 9. 332 + 09 
1 1.215+01 

1 1.496+01 

1 1.777+01 

2 2.292+01 

2 2.980+01 

2 1.869+01 

2 1.657+01 

2 1.445+01 

2 1.234+01 

2 1.022+01 
2 8.106+00 
2 5.990+00 

2 3.87 5+09 

2 1.759+09 

2 1.667+00 

2 1.667+00 

2 1.667+00 

2 1.66 7+99 

2 1-667+00 

2 1.66 7+00 

2 1,66 7+09 

2 1.759+00 

2 3.875*90 

2 5.990+00 

2 8.106+90 

2 1.022*01 

2 1.234*01 

2 1.445+01 

2 1.657*01 

2 1,869+01 

2 2.0BO+O1 

3 2.525*01 

3 2.383*01 

3 2.241+01 


YV 

-3.033+01 
- 2 . 022+01 
-1. 011+01 
1.9C7-06 
1. 011*01 
2.022*01 
3.933+01 
4.043+01 
5.039*01 
6. 035+01 

7. C30+01 
8.026+01 
9.C22+01 
1. 002+02 
1 . 101+02 
1,201+02 
1-300+02 

-1.400+02 

-1.300+02 

-1.201*92 

-i. 101+02 
-1.002*02 
-9.022*01 
-8.026+01 
-7.C30+01 
-6.035+01 
-5.C39+01 
-4.r43+0l 
-3.033*01 
-2.C22+01 
-I -011+91 
1.9C7-06 
l.Cll+Ol 
2.022+01 
3.033*01 
4.043+01 
5.C39+01 
6. 035+01 
7.030+01 

8. C26+01 
9.022+01 
1.002+02 
1.101+02 
1 . 201+02 
1.390*92 

-1. 400+02 
-1. 300+02 
'1.201+92 


IV 

'2.634+90 

-2.634+00 
-2.634+00 
-2. 634+00 
-2.634+00 
-2,634+00 
-2.634+Ou 
-2.608+00 
-3. 945+00 
-5.251+06 
-6.607*90 

-a. Ill + Oo 

-9.465+Ou 
-1.997*01 
-1.2 52+9 + 
-1.412+01 
-1.577+01 

-1.751+01 
-1.580+01 
-1.412+01 
-U248+01 
-1.908 + 0 + 
-9.314+00 
-7.785+00 
-6.294+00 
-4,839+90 
-3.421+00 
-2.041+0O 
- 1.981+Ou 
-1.981 + 90 
-1.901*00 
-1.981+90 
-1.961 + 00 
-1.981+00 

-1.981 + Ou 
-2.941+90 
-3,42l+0o 
-4.839+00 
-6. 294+00 
-7.785+30 

-9.314 + 9U 
-1.088+01 
-1.246+0+ 
-1.412+C+ 
-1.580+0+ 

-1.755*01 

-1.582+01 

-1.412+01 


+ aY 

0.00.4 
O.06 6 
O.OuU 

o.Ooo 

u.OOO 

0. 0.O 

1. ^14-02 
4..uY9-ljl 
+..09/-UI 
2.oVD-wi 

2. oVt-Ol 
^.ov2-Ul 
^.u9o-01 

009-1/ + 
2.UO7-01 
087-O + 
+.. UU3-01 

-i. 050-Oi 
-C. 051-01 
052-01 
-A. 055-01 
-2. V5*.— 0 1 
-^.05o-0A 
-+;.05 /-ol 
— +• 058—01 
-+. 059-01 
-4.060-0 1 
-5. +2 9-05 
u.OOO 
u.OOo 
0.000 
0.000 
o.ooo 
0.000 

9.129-05 
4 .O 0 O-OI 
4 .O 59 - 0 I 
4 . 05 8-0 i 
2.057-01 

4. O5a-0i 

4 . 05 4-0+ 
4.053-oi 
2.052-01 
4.051-01 
4.050-0+ 

- + .39J-01 
-1.391-01 
-1.594-01 


lYV 

1.090*09 
1., 900+09 
1.909+09 
1.990+09 
1 . 910+95 
1.990+90 

9.999- 91 

9,553-01 
9.548-01 
9.542-01 
9.536-01 
9.530-01 
9. 523-01 
9.517-01 
9.510-01 
9.503-01 
9.496-01 

9.646-01 

9.652- 01 

9.657- 01 
9. 603-01 
9.668-01 

9.673- ni 
9.678-01 
9.683-01 
9.688-01 
9.693-01 
9. 999-0 I 
1.000+00 
1 , 3ro + c;j 

l.OOO+PO 

1 . 0 c o+or 
1.000*0'' 
I, 000+00 

9.999- 01 

9. 653- 0 I 
9.688-01 
9.683-01 
9.678-01 

9.673- 01 
9.668-01 
9.663-01 

9.657- 01 
9.652-01 
9. 046-01 

9.757-01 

9.761-01 

9.765-01 


12V 

0.000 
0 . 0'’0 
0.000 
0,000 
0.0 00 
0.000 
-5,312-03 
-1.206-01 
-1.253-0 1 
-1.299-0 1 
-1.345-01 
-1.392-0 I 
-1.437-01 
-I .483-01 
-1.529-01 
-1.575-01 
-1.620-01 

1.659-01 
1 .625-0 1 
1.590-01 
1 .555-01 
1.520-01 
1.485-01 
1.450-01 
1.415-01 
1.379-0 1 
1 .344-0 1 
5.873-03 
0.000 
0.000 
0.000 
0.000 
0.000 
0 .000 
-5.873-03 
-1.344-01 
-1.379-01 
-1.415-01 
-1.450-01 

-1.485-0 I 

-1.520-01 

-1.555-01 

-1.590-01 

-1.625-01 

-1,659-01 

1.692-0 1 
1.669-01 
1.645-01 


XN 

-3.PCO+00 
-3.000+00 
-3.000+00 
-3.0O0+O0 
-3. FI 00 +00 
-3. 000+00 
-2.946 +00 
-1.660+00 
8.0 36-01 
3.268+00 

5. 7 32*00 
8.197+00 
1,066+01 
1.313+01 
1.559+01 
1.805+01 
2.052+01 

2.320+01 
2.143*0 1 
1.967+01 
1.790+01 
I.613+''! 
1.436*01 
1.260+01 
1,083+01 
9.061+00 
7.294+00 

6. 372+00 

6.333+0'’ 
6, 333+00 
6.333+00 
6.333+00 
6.333+00 
6.333*00 
6.372*00 
7,294+'V' 
9.061+00 
1.063*01 
1.260+01 
1.436+01 
1.613+01 
1.790+01 
1.967+0 I 
2. 143+'’! 
2.320+01 

2.588+01 

2 . 481+01 

2.374+01 


YN 

-2. 528+01 
-1.517+01 
-5.055+00 
5.055+00 
1.517+01 
2.528+01 
3.538+01 
4.541+01 
5.537+01 
6.533+01 
7.528+01 
8.524+01 
9.520+01 
1.052+C2 
1 .151*02 
1.251+02 
1.350+02 

-1.350+02 

-1.251+02 

-1.151+02 

-1.052+02 

-9.520+01 

-8.524*01 

-7.528+01 

-6.533*01 
-5.537+01 
-4.541+01 
-3.538+01 
-2.528+01 
-1.517*01 
-5.O55+C0 
5.055+0? 
1,517+01 
2.528*01 
3.530 + m 
4,541*01 
5.537*01 
6.533*01 
7.528+01 
B. 524+01 
9.520+01 
1.052+02 
1.151+02 
1.251+02 
1.350+02 

-1.350*02 

-1.251+02 

-1,151*02 


IN 

-2.308+00 
-2.308+OP 
-2. 300+00 
-2. 3'1B+'J0 
-2. 30B+'10 
-2 . 30 8+00 
-2. 336+00 
-a.^ZS+FiO 
-4. 364+'’0 
-5. 747+00 
-7. 174+00 
-8.644+00 
-1.016+ 'll 
-1.171+01 
-1. 331 + 01 
-1. 495+'ll 
-1. 664+01 

-1.667*')! 
-1.497+01 
-1.329+01 
-1. 165*01 
-1.004*'’! 
-B. 455+00 
-6.905+00 
-5. 385+00 
-3.896+00 
-2.438+00 
-1,686+00 
-1.655+00 
-1.655+FlO 
-1.655+00 
-1.655+rO 
-1.655+00 
-1.655+r-n 
-1.686+0? 
-2.438*01? 
-3. 896+00 
-5. 385+00 
-6.905+00 
-8.455+00 
-1.004+01 
-1. 165*01 
-1.329 + 01 
-1.497*01 
-1.667+m 

-1.670+01 
-1.498*01 
-1. 327+01 


IXN 

-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.957-02 
-6.454-02 
-5.595-02 
-4.737-02 
-3.879-02 
-3.022-02 
-2.166-02 
-1. 311-02 
-4.580-03 
3.919-03 
1.237-02 

1.237-02 
3.918-03 
-4.578-03 
-1.310-02 
-2.164-02 
-3.019-02 
-3.875-02 
-4.732-02 
-5.589-''2 
-6.44 7-02 
-6.957-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.957-02 
-6.447-02 
-5.589-02 
-4,732-02 
-3.875-02 
-3.019-02 
-2.164-02 
-1.310-02 
-4.578-')3 
3.918-03 
1.2 37-02 

1.236-02 

3.916-03 

-4.575-03 


IVM 

0.000 
O.OOO 
O.OOO 
0,000 
0.'»QO 
O.OOO 
6.144-03 
1.429-01 
1.454-01 
1.479-01 
1.503-01 
1.528-01 
1.552-01 
1.576-01 
1.600-01 
1.62 4-01 
1.647-01 

-1.670-01 
-1. 652-01 
-1.634-01 
-1.616-01 
-1.598-01 
-1.579-01 
-1.561-01 
-1.542-01 
-1.524-01 
-1,505-01 
-6,494-03 
0.000 
0.000 
0.000 
0.000 
0.000 
0.000 
6.494-03 
1.5<?5-01 
1.524-')! 
1.542-01 
1.561-01 
1.579-01 
1.598-01 
1 . 616-01 
1.634-01 
1,652-01 
1.670-01 

-1.692-01 

-1.680-01 

-1,668-01 


IZN 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.876- 01 

9.878- 01 

9.879- 01 
9.879-01 
9.878-01 

9.876- 01 
9,874-01 
9.871-01 

9.867- 01 
9.863-01 

9.859-01 

9.863-01 

9.866- 01 

9.868- 01 

9.869- 01 

9.870- 01 
9.870-01 
9.869-01 

9.867- 01 

9.865- 01 
9.976-01 
9.976-01 
9.976-01 

9.976- 01 

9.976- 01 

9.976- 01 

9.976- 01 

9.976- 01 

9.865- 01 

9.867- 01 

9.869- 01 

9.870- 01 
9.870-01 
9 .869-01 

9.868- 01 

9.866- 01 
9.863-01 
9.859-01 

9.855-01 

9.858-01 

9.660-01 


JOBFLAG 123456 
value 28 a 2 3 2 4 


7 8 9 iu U L2 1 j 14 15 16 17 16 19 20 

344«ii0l0r 0ll4 


EXAMPLE PRUBIEM NO. I - MULTIPLE SURFACE ANALYSIS CAP PACE 
ALFA= .0? MACHNO” .fiOOC ALT 1 TU06-****** 7 


J K XV 


VV 


IV 


iXV 


lYV 12V 


XN YN 2N UN IVN 12N 


4 

5 

6 


3 2.099+01 -1.101+02 

3 1.957+01 -1.C02+02 

3 1.816*')! -9.C22+01 


-1.244+01 -i.AYX-Ui 
-1.C79+01 -i.jS'X-Ol 
-9.163*03 -i.JYJ-Oi 


9.769-01 

9.773-01 

9.777-01 


1.622-01 2.267+01 -1.052+92 -1.159+01 -1.309-02 -l,6S6-')l 9.861-01 

1.590-01 2.160+01 -9.520+01 -9.917+00 -2.162-02 -1.643-01 9.862-01 

1.574-01 2.053*01 -8.524+01 -6.267+00 -3.017-02 -1.631-01 9.861-01 

6-13 



6.2 EXAMPLE PROBLEM I 1, MULTIPLE-SURFACE ANALYSIS CAPABIltTY (CQWTIHUED) 


7 7 

8 i 

9 3 

10 3 

11 3 

li 3 

13 3 

14 3 

15 3 

16 3 

17 3 
IB 3 
19 3 
70 3 

21 3 

22 3 

23 3 

24 3 

25 3 

26 3 

27 3 
26 3 


1 .674«^01 
1.532401 
1. 390*0 1 
1.248*01 
1. 106*91 
1 . 100*01 
1 . 100*01 
1 . 100*01 
1.100*01 
1. 100*01 
1 . 100*01 
1 . 100*01 
I. 106*C1 
1.248*01 
1.390*01 
1.532*01 
1 .674*01 
1.616*01 
1.957*01 

2.099*01 

2.241*01 

2.383*01 


-8.026*01 

-7.030*01 

-6.035*01 

-5.C39*01 

-4.043*01 

-3.033*01 

-2.022*01 

-l.Cll*01 

1.9C7-06 

1 . Cll*01 

2. C22»C1 
3.033*01 
4.C43*01 
5.039*01 
6.035*01 
7.030*01 

a. < 26*01 

9. C22*01 
1 . 0*' 2 *02 
1 . 101*02 
1.201*02 
1.300*02 


-7.559*00 
-5.981*00 
-4.427*00 
-2.898*0U 
-i.394*0(y 
-1.329*00 
-1. 329+00 
-1.329+Ou 
-1.329*00 
-1.329+Ou 
-l.329*0u 
-1.329*00 
-1.394*00 
-2.698+00 
-4.427*00 
-5.981*00 
-7.559*00 
-9.163 *Cj 
- 1.0T9*9t 
-1.244*01 
-1.412*01. 
-1.582*01 


-1.394-01 

-1.394-01 

-1.393-01 

-i.39>-0A 

-0.142-03 

u.UUo 

O.OOo 

u.uJO 

0.000 

0. u3o 

0.000 

<jm ^^2—03 

1 . J93-01 

1 . JV 3-01 
1.094-01 
i, J94-01 
1. J4O-01 
1 . 393-01 
1.39t-iii 
i. 3»<-01 
1.391-01 
1.390-01 


9.780-01 

9.784-01 

9.788-01 

9.791-01 

1.000*09 

l.nno*00 
1,000*00 
I.OOO+OO 
1.000+00 
1.900*00 
1.000*00 
1.000+10 
9.791-01 
9. 788-01 
9. 784-01 
9. 780-01 
9. 7T 7-01 
9.773-01 
9.769-01 
9, 765-01 
9,761-01 
9.757-01 


l.SSl-Ol 
1.527-01 
1.503-01 
1.479-01 
6.434-03 
0.000 
O.OOO 
0.000 
0.000 
0.000 
0.000 
-6.434-03 
-1.479-01 
-1.503-01 
-1.527-01 
-1.551-01 
-1.574-01 
-1.598-01 
-1.622-01 
-1 .645-01 
-1.669-01 
-1.692-01 


1.946*01 
1.839*01 
1.732*01 
1.625*01 
1. 569*01 
1.5o7*01 
1.567*01 
1.567+01 

1.567+01 
1.567*01 
1.567*01 
1.569*01 
1.625*01 
1.732*01 
1.839*01 
1.946*01 
2.053+01 
2. 160*01 
2.2o7*0l 
2.374*01 
2.481*01 
2.588*01 


-7.528+01 

-6.533+41 

-5.537+41 

-4.541+01 

-3.538+01 

-2.528+01 

-1.517+01 

-5.055+00 

5.055+00 

1.517+1)1 

2,528+01 

3.538+01 

4.541+01 

5.537+01 

6.533+01 

7,528+01 

8,524+01 

9.520+01 

1.052+02 

1.151+02 

1.251+02 

1.350+02 


-6.635*00 

-5.022*00 

-3.428*00 

-1.053*00 

-1.036*00 
-1.002*00 
-1,002*00 
-1.002+00 
-1,002*00 
-1.002*00 
-1.002+00 
-1.036+00 
-1.853+00 
-3.428»f>0 
-5,022+00 
-6.635*00 
-8.26T*''0 
-9.917*00 
-1.159+01 
-1, 327*01 
-1.498*11 
-1.670*01 


-3.872-02 

-4,727-02 

-5.583-02 

-6.439-02 

-6.957-02 

-6.976-02 

-6.976-02 

-6.976-02 

-6.976-02 

-6.976-02 

-6.976-02 

-6.957-02 

-6.439-02 

-5.583-02 

-4.727-02 

-3.872-02 

-3.017-02 

-2.162-02 

-1,309-02 

-4.575-03 

3.916-03 

1.236-02 


-1.619-01 
-1,616-01 
-1.593-01 
-1.580-01 
-6. 844-03 
0. 000 
0.000 
O.OO" 

0. 030 
0.000 
0.000 

6.844-03 
1.580-01 
1.593-01 
1. 606-01 
1.619-11 
1,631-11 
1.643-01 
1.656-01 
1,668-01 
1.680-01 
1.692-01 


9.861-01 

9.859-01 

9.856-01 

9.853-01 

9.976- 01 

9 .976- 01 

9.976-01 

9 .976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.853-01 
9.856-01 

9.859- 01 

9.861-01 

9.861- 01 

9.862- 01 
9.861-01 

9.860- 01 
9.858-01 
9.855-01 


1 

4 

2. T75+01 

-1,400+02 -1.759+01 

-<>• 

2 


2. 708+01 

-1.301*02 -1.585*01 


3 


2. 641+01 

-1.201+02 -1.412+01 

— o* 

4 


2.573+01 

-1.101+02 -1.240*01 

-o* 

5 

4 

2. 516+01 

-1.002*02 -1. 070*01 

-ti* 

6 

4 

2.439+01 

-9,022*01 -9.001+Ou 

— O* 

T 

4 

2.372+01 

-8.C26+01 -T-317+OJ 

-4»* 

a 

4 

2.305+01 

-7.030*01 -5.645+Oj 

•o* i>4>“ 

9 

4 

2.237*11 

-6.035 + 01 -3.985 + 00 

-u.o4:>-0^ 

10 

4 

2.170+01 

-5.039+01 -2.337»0j 


11 

4 

2. 103+01 

-4.043+01 -7.004-01 


12 

4 

2.100+01 

-3.033 + 01 -6.293-11 

(>• jJil 

13 

4 

2.100+01 

-2.022+01 -6.293-Pi 

u«OUU 

14 

4 

2. HO+01 

-l.Cll+01 -6.293-01 

O.OJJ 

15 

4 

2. 110*01 

1.907-06 -6.293-01 

l>« LiCiu 

16 

4 

2.100*01 

l.Cll+01 -6.293-01 

u«OUu 

17 

4 

2. 1 11+01 

2.022*01 -6.293-01 

0«i>Uv 

18 

4 

2.100+01 

3.033+01 -6.293-01 


19 

4 

2. 103*01 

4.043 + 01 -7.104-01 


20 

4 

2.170+01 

5.<39*01 -2.337+Oy 

i>* 

21 

4 

2.237+01 

6,035 + 01 -3.985*00 

t>6 

22 

4 

2.305+Cl 

7,030*01 -5.645*00 

o« 

23 

4 

2.372+01 

8.126+01 -T,31?*l)u 

04i'<iP^ 

24 

4 

2.439+01 

9.C22+01 -9.001+Qo 

Oa o40~v4 


9.829-01 
9. 8 31-01 

9.833- 01 

9.834- 01 
9.836-01 

9.838- 01 

9.840-01 
9.842-01 

9.844- 01 
9.B46-01 
1 .900*01 
1.009+00 
1.000+01 
1.000+01 
1 . 010+0 > 
1.099+09 
1.093+01 
1.009+00 
9.846-01 

9.844- 01 
9.842-01 

9. 840-01 

9.838- 11 
9.836-01 


1.720-01 
1.708-01 
1.697-01 
1.666-01 
1.6 75-01 
1 .664-01 
1.652-01 
1.641-01 
1.630-01 
1.616-01 

7.0 35-03 
0.000 
0.0 00 

0 .0 00 

0.000 

1 .000 

1,001 

-7.035-03 
-1.618-01 
-1.6 30-01 
-1.641-11 
-1.652-01 
-1 .664-0 t 
-1.675-01 


2.914+01 
2.891+01 
2.869+01 
2.847+01 
2.824+01 
2.802+01 
2.779+11 
2.757+01 
2,735+01 
2.712+01 

2. 700+01 
2.700+11 
2.701*01 
2.700*01 
2.700 *01 
2.700*01 

2. TOO *01 

2.700*01 

2.712*01 

2.735*01 

2.757+01 

2.779+01 

2.802+01 

2.824*01 


-1,350*02 
-1.251*02 
-1.151+02 
-1.052*02 
-9,520*11 
-8.524*01 
-7.528+01 
-6.533+01 
-5.537+11 
-4.541+01 
-3.538*01 
-2.528*01 
-1.517*01 
-5.055*00 
5.055*00 
1.517+01 
2.52 8*01 
3.538*01 
4.541+01 
5.537+01 
6.533+01 
7.528*01 
8.524*01 
9.520*01 


-1.674+01 
-1.500+01 
-1.325*01 
-1.151+01 
-9.771*00 
-8. 038+00 
-6.308*00 
-4. >82*00 
-2.860*00 
-1.142*00 
-2.471-01 
-2.C98-01 
-2.098-01 
-2.098-01 
-2.098-01 
-2, 098-01 
-2.C98-01 
-2.471-01 
-1. 142*10 
-2.860*00 
-4. 582*00 
-6.308+01 
-8.038+00 
-9.771+00 


1.236-02 
3.914-03 
-4.572-03 
-1.308-02 
-2.161-02 
-3.014-02 
-3,868-02 
-4.722-02 
-5.576-02 
-6.431-02 
-6.957-02 
-6.976-02 
-6. 976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.976-02 
-6.957-02 
-6.431-02 
-5.576-02 
-4.722-02 
-3.868-02 
-3.014-02 
-2.161-02 


-1.715-01 

-1.710-01 

-1.704-01 

-1.696-11 

-1.692-01 

-1.686-01 

-1.680-01 

-1.674-01 

-1.667-01 

-1.661-11 

-7.219-03 

0.000 

0,000 

0.000 

0.000 

0.000 

0.000 

7.219-13 

1.661-11 

1.667-01 

1.674-01 

1.680-01 

1 . 686-01 

1.692-01 


9.851- 01 
9.653-01 

9.854-01 

9. 854-01 
9.853-01 

9.852- 01 
9.850-01 
9.648-01 

9.844-01 

9.840-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.976-01 

9.840-01 

9.844-01 
9,848-01 
9.850-01 

9.852- 01 

9.853- 01 


JU8FLAC 

1 2 3 

4 5 6 

7 

8 9 10 

11 14. 13 

14 ib 16 

17 

16 19 21 

example 

PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 

value 

28 e 2 

3 2 4 

3 

4 4 u 

1 i J 

1 0 0 

1 

1 1 4 

ALFA* .00 

MACHNO= - 


B 

J 

K 

XV 

VV 


2V 

IAV 

lYW 


IZV 

XN 

YN 

ZN 

IXN 

lYN 

iiu 

25 

4 

2. 506*11 

1.002+02 

-1 

.070+01 


9.a34-0l 

-1 

.686-11 

2-847+01 

1.152*02 

-1.151+01 

-1,308-02 

1.698-11 

9.854-01 

26 

4 

2.573+01 

1,101*02 

-1 

.240+01 

<j» uj>y-o^ 


-1 

.697-11 

2.869+01 

1.151+02 

-1.325*01 

-4.572-05 

1.714-01 

9,854-ni 

27 

4 

2.641*01 

1.201+02 

-1 

.412 + 01 


9.831-01 

-1 

.708-01 

2.891+01 

1.251+02 

-1.500+01 

3.914-03 

1. 710-01 

9.B53-01 

28 

4 

2.708*01 

1.300*02 

-1 

.585+01 


9,8^9-01 

-1 

.72P-01 

2.914*01 

1.350+02 

-1.674+01 

1.236-02 

1.715-11 

9.851-01 

iEOF 

plot file 

1 > .* PILE # 

7 = WIEG GBOMETFI 





SOLID LIKE 

INDICATES THE OUTPUT HAS 

BEEN EDITED 





JUBFLAG 1 
VALUE 28 


tU 11 l-» 14 15 16 IT 18 19 20 

o 1 1 J 1 0 f> J 1 1 4 


EXAMPLE PRU8LEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
ALFA= .00 NACHNCI* .OOOC ALT I TUDE s****** 9 


LIEriNO SURFACE N0= 2‘ 


B0FIZ0JH7AL TAIL 


SPAN 

HGCT 

CHORD 

TIP 

CHORD 

KuU ( 
1 a« .>1 

i.p 

[•.1ST 

area 

ASPECT 

RATIO 


3^.nno 



-•i.uOOO 

2110.01 

3-20'^^ 

FLAP 

SPAM 

PLAP 

SPAN2 

40.000 

FLAP 

SPAN3 

f L aP 
Ucrcc^ 

— 

1 AP 

.16* LEC 
.000 

L.AIL 

OEFLEC 

,111 

K. Alt 
OL FL EC 
.001 




Flii iiu 
XtuoJ 

•• 1 iY\j S T A 
YtcGl 
.110 

hL STA 
Z (Cb) 
.011 

area 

S<CG> 

3200.010 

MS 

¥ 

1 

X4Li.i 

XI 1./ ■< 1 

XUt ) 

ThIST 


mean 

CHORli 

MGC 
(MAC ) 

YBAR 

(MGC) 

XUAR 

(MGCI 

ZBAR 
[MGC 1 


25.no 

25.333 

18.66 7 

131.000 

-19,337 


OlHEU. 

KGC/4 

.000 

Sweep 

MGC/ 4 
10.621 

NO. SPAN 

elements 

8 

NO, CHORD 
ELEMENTS 

3 

NO.CHURO 
OISCONT . 
1 


CmOPO 

CICGI 

32.681 

SPAN 
OlCC) . 

280. on 


ORIGINAL PAGE IS 
OF POOR QUALITY 

OlHEI C/41 

SWEP lC/4> 

C( WING) 

CIFLAP) 

C(TAUI 




-41.001 

-2, *'.011 

X 3 Lf • 

36. in 

-36.001 

-21.000 

129. .u,; 


-32-000 


12(1. bU9 

28.1F''' 

-28.000 

-20.010 

12 7. J (JU 


-24.000 

-20.000 

1 2i..uU6 

• 21 pl/'O 

-21.011 

-20.010 

12>. JUU 

■16,1'^! 

-l6.no 

-20.001 

12<f. uuy 

'12 .111 

-12.001. 

-20.000 

1 2>.tfOu 

-8.111 

- H . 01 0 

-20.000 

1 2X . 66;. 


-4.101 


121.663 

• i''l 

.001 

-20.000 

120. uU6 

4.111 

4.010 

-20.000 

1 2 1 a 'J 0 6 

a .iir* 

8.010 

-20.030 

12;.. JUJ 

12.101 

12 .100 

-20.100 

123.666 

16. 

Ib.'ion 

-20, of>n 

124. wOU 

20, in 

21.000 

-20,onf) 

123.063 

24. '^11 

24.000 

-20.000 

123.663 

2d.lO'» 

28.111 

-20. iQO 

1 2 / a 3O3 

32 .m 

32 .oil 

-20.100 

1 2o . 63 3 

36.1TO 

36.000 

-20.000 

129.303 

40. m 

41.000 

-20.000 

1 33. OuO 


133. )00 

15 : 1 . in 

-2.001 

.000 

134. 2 55 

151. Ill 

-2.011 


133.510 

15 1.111 

-2.001 

.'lOD 

13X. 751 

15 1.101 

-2.011 

,00A 

134.011 

15 1, )<10 

-2.101 

*000 

131.251 

15 '..on 

-2.111 

.000 

130. 500 

15 i.on 

- 2.113 

,+01^0 

lc9. 750 

15' .m 

-2.010 

« 

I 49 .no 

151.111 

-2.001 


Ua.250 

Lt>*’ , 

-2.101 

.oro 

l4 7. 501 

15' .m 

-2.011 

-.909 

143.250 

15' .101 

-2.000 

.000 

I 49 .OOJ 

15r-.51i 

-2. 101 


149. 750 

151.001 

-2.011 

.000 

130.500 

15-1. m 

-2.0P1 

.000 

iJl.250 

15'. in 

-2.001 

,000 

132.100 

15 j.m 

-2.011 

• *>00 

134.750 

15 '.11" 

-2.001 

.000 

133. 510 

15 

- 2.111 

« ooo 

134. 250 

151.301 

-2.001 

,mo 

135.000 

151.300 

-2.110 

.000 


-n.621 

21. 11c 

10.111 

3,111 

-11.620 

21. OOP 

10.000 

3.011 

-11.621 

22. nc 

10.011 

3.000 

-11.621 

23.O0r 

10.011 

3.000 

-11.621 

24,10' 

11. no 

3. no 

-10.620 

25. nc 

11,111 

3.111 

-ir.620 

26.011 

10. on 

3.110 

-10.620 

27.110 

10. lip 

3.011 

-10.620 

28.01C 

10.101 

3.000 

-10.621 

29,110 

1,3,101 

3.011 

36 . 866 

30.110 

13.111 

3. in 

10.620 

29.110 

10. on 

3.010 

111.620 

28. 300 

li.noi 

3.101 

11.621 

27.00C 

11.011 

3.001 

11. 620 

26, ik; 

in.-OOi 

3.131 

1-3.62 3 

25.110 

10. m 

3.110 

11.621 

24.010 

11.101 

3.111 

11.621 

23 . no 

n.on 

3. .310 

10.621 

22.111 

10. 101 

3, 10-3 

10.620 

21.000 

10.101 

3.011 

10.621 

20. OOP 

10.011 

3.111 


6-14 




6.2 EXAMPLE PRDBLP1 H 1, MULTIPLE- SURFACE ANALYSIS CAPABILITY (CONTINUED) 


35 3 t.«2S«02 ] 

36 3 1.42St02 2 

3T 3 1.4)25402 3 

(EOF PLOT FILE 2t^ 


OC04QI -1.974401 tt.dOO 1.000400 0.000 

CC0401 -1.974401 O.UOO 1.000400 0.000 

0r0401 -1.974401 g.OOJ 1.000 400 o.ooo 

-- FILE « 2 = B0RIZ0N7AL TAIL GEOMEim 


1.475402 1.SO0401 

1.4 7540 2 2.50 0 401 

1.475402 3.500401 



3.490-02 0.000 
3.490-02 0.000 
3.490-02 0.000 


9.994-01 

9.994-01 

9.994-01 


■OK. TO IGSOEB 


* OIVtDE check at 026442 





— 

— 




— — 

— 


'--j 


- 

JOBFLAG 1 

2 3 4 

5 6 7 8 

9 lu 11 

Id. 13 14 . 

L5 16 17 18 

L9 20 1 

EXAMPLE PROBLEM NO. 1 

- MULTIPLE SURFACE 

ANALYSIS ( 

value 2B 

8 2 3 

2^34 

4 o i 

1 0 1 

0 0 0 1 

1 4 

ALFA = 

.00 HACHNO" .OOOC 

ALTITUDE" 









SURFACE H S = FUSELAGE 







LIFT IKo SURFACE N0= 3 






SPAN 

ROOT 

TIP 

HUuT 

IIP 

area 

ASPECT 

MEAN 

MGC 

V6AR 

XdAR 

28AR 


CHORD 

CHORD 

inisr 

ThlST 


RATIO 

CHORD 

IHACJ 

(HGCI 

IHGCI 

(MGO 


Bo.oor 

200.000 

.uaou 

.oOOO 

.06 

.0000 

.000 

148.568 

.000 

-12.858 

-11.428 

flap 

FLAP 

FLAP 

*-LAP 

TAB 

L.AIL 

R.AIL 

aiHED. 

SWEEP 

NO. SPAN 

NO.CHOHD 

NO. CHORD 

SPANI 

SPAN2 

SPAN3 

OtFctL 

OEFLEC 

oeflec 

OEFLEC 

MCC/4 

MCC/4 

ELEMENTS 

ELEMENTS 

OISCONT. 


.60C 

i.noo 

.Ouu 

• DOO 

.COO 

.000 

89.999 

56.310 

2 

4 

0 




FOS iTA 

M 1 Wo S T A 

ML STA 

AREA 

CHOftO 

SPAN 







XlubI 

Y(LG) 

2LCC> 

SICGt 

CICGJ 

B(CG> 







.001) 

.300 

«Q00 

8200.000 

32.681 

280.000 




MS 

Y 

2 

XILtt 

XIL/tl 

KITE! 

TWIST 

DlKE(C/4) 

SNEP(C/4» 

C(HING) 

CIFLAPJ 

C(TA8» 

-20.oro 

*aoc 

-20.000 

-5U.0O0 

.000 

iso.ooo 

.000 

-89.999 

-56.310 

200.050 

50.000 

25.000 

-J8.0PO 

•noo 

-18.000 

-50. JOJ 

-3.000 

laa.oon 

.003 

-89.999 

-56.310 

188. OOC 

47.000 

23.500 

-16.0(10 

.000 

-16.000 

-50.000 

-6.000 

126.000 

.000 

-89.999 

-56.310 

1 76.000 

44.000 

22.000 


.noo 

-14.000 

-50.000 

-9.000 

114.000 

,000 

-89.999 

-56.310 

164. OOC 

41.000 

20.500 


♦«no 

-12.000 

-SO.ClOu 

-1^.000 

102.000 

.000 

-89.999 

-56.310 

152. nor 

38.000 

19.000 

- 10.000 

.000 

-10.000 

-50.000 

-15,000 

90.000 

.000 

-89.999 

-56.310 

140.000 

35.000 

17.500 

-a.'iofi 

.noo 

-8.000 

-50.U00 

-lo.OOO 

78.000 

.000 

-89.999 

-56.310 

128.000 

32.000 

16* *300 


*ono 

-6.noa 

-50. JOO 

-21.000 

66.000 

.001 

-89.999 

-56.310 

116. OOC 

29.000 

14.500 

-^*000 

.000 

-4.000 

-5u.OoO 

-24.000 

54.000 

.000 

-89.999 

-56.310 

104. OOC 

26.000 

13.000 


.000 

-2.000 

-5U.U00 

-2/. 000 

42.000 

.O0r> 

-89.999 

-56.310 

92. OOC 

23.000 

11.500 

.00'^ 

.000 

.000 

-50.U0O 

-30.000 

30.000 

.000 

26.565 

-74.835 

80.000 

20.000 

10.000 


.000 

-2.000 

-50.000 

-27.000 

42.000 

.000 

S9.999 

56.310 

92.000 

23.000 

11.500 

4.000 

,000 

-4.000 

-50.O00 

-24.000 

54.000 

.003 

89.999 

56.310 

104. OOC 

26.000 

13.000 

6*0^0 

.000 

-6.ono 

-SO.uOO 

-21.000 

66.000 

.000 

89,999 

56.310 

116.000 

29.000 

14.500 

8.000 

♦ 000 

-&.nnn 

-SU.OOi) 

-id.OOO 

78.000 

.000 

89.999 

56.310 

128. OOC 

32.000 

16.000 

lO.DOO 

.000 

-10.000 

-50.000 

-15.000 

90.000 

.OOl 

S9.999 

56.310 

140.00G 

35.000 

17.50f> 


.000 

-12.000 

-50. 000 

-12.000 

102,000 

*001 

89.999 

56.310 

152.000 

38.000 

19*080 

14.000 

.000 

-14.000 

-50. oUo 

-y.ooo 

114.000 

.000 

69.999 

56.310 

164.000 

41.000 

20.500 


,000 

-16.000 

-5J.000 

-ip.OOO 

126.000 

.000 

89.999 

56.310 

1 76.000 

44.000 

22.000 

18.000 

.000 

-18,000 

-50.000 

-3.000 

138.00G 

.000 

89.999 

56.310 

188.000 

47.000 

23.500 

20.000 

,000 

-20«000 


.000 

ISO. 000 

.000 

89.999 

56.310 

200. OQQ 

50.000 

25.000 

—r-- . 




_r-- , 




_r^ , 





(EOF PLOT FILE 



-2.000401 -V. 796-01 0.000 

0.000 V. 79«-01 0.000 

FILS # 3 " FUSELAGE GEOMSTEI 


2.009-01 a. 125401 0.000 

-2.009-01 8.125401 0.000 


-1.000400 
1.0004 00 


0.000 

0.000 



JOOFLAG I 2 3 4 5 6 7 8 9 i.i> 11 12 13 14 15 16 17 18 19 20 EXAMPLE PROttLEM NO. 1 - MULTIPLE SOftfACE ANALYSIS CAP PAGE 

VALUE 2B 82324344O11U1000114 ALfA= .00 MACHNO- .OOOC ALTITU0E«4**444 14 


SURFACE S 4 = VERTICAL FIRS 

LIETIKC SURFACE N0= 4 ' 

*•••>•» «*****4***4*** 


span 

ROOT 

CHORD 

TIP 

CHORD 

Huul 
Iwl Si 

TIP 

TkIST 

AREA 

ASPECT 
RAT 10 

MEAN 

CHORD 

MGC 

(MAGI 

Y8AR 

(NGO 

XBAA 

IHGCI 

2 BAR 
IHGCI 


25. OOC 

10, OOC 

.UUUO 

.0000 

525,00 

1.7143 

17,500 

18.571 

40. OOC 

136.072 

-22.857 

FLAP 

SPA'^l 

.000 

FLAP 
SPAN 2 
30.000 

FLAP 

SPAN3 

30,000 

FLAP 

OtFLtC 

3O.U0u 

TAB 

OEFLEC 

.000 

L.AIL 

OEFLEC 

.000 

R .AIL 
OEFLEC 
.000 

DIHEO. 

MCC/4 

89.999 

SWEEP 

MGC/4 

20.556 

NO. SPAN 
ELEMENTS 
a 

NO. CHORD 
ELEMENTS 
4 

NO. CHORD 
OISCONT. 
1 




FUs sTA 
XICgI 

.UUU 

M I No STA 
VILGJ 
.000 

NL STA 
ZICGI 
.000 

AREA 

S(CG) 

8230,000 

CHORD 

C(CG) 

32.681 

SPAN 

BICGI 

280.000 





S 

Y 

1 

XILtI 

XlC/6» 

XITEI 

TWIST 

OlHE(C/4» 

SwEPIC/41 

Cl HI NGI 

Cl FLAP 1 

C (TABl 

• ono 

40.000 

-10,000 

125,000 

<81.250 

IS'I.OOO 

-COO 

-14.136 

72.560 

25. OOC 

12.500 

2.500 

1.5O0 

41.000 

-11. 500 

125.750 

131.812 

150.300 


89*999 

20.556 

24.2SC 

12.125 

2.425 

3,000 

40,000 

-13.000 

126.500 

132. 375 

150.000 

,000 

B9.999 

20.556 

23.500 

11. 750 

2.350 

4.500 

40.000 

-14.500 

127.^50 

1 j<..937 

150.300 

,010 

89.999 

20.556 

22. 750 

11.375 

2.275 

6,000 

40.000 

-16.000 

128.000 

13s. 500 

150.000 

• OOC 

89.999 

20.556 

22 . OOC 

11.000 

2.200 

7.500 

40.000 

-17.500 

1 2o. 750 

134.062 

150.000 

.OCn 

89-999 

20.556 

21.250 

10.625 

2.125 

9.00O 

40.000 

-19.000 

12y. 5U0 

134.625 

1 50.000 

• 000 

89-999 

20.556 

20.50C 

10,250 

2.050 

10.500 

4n,n00 

-20,500 

130. <50 

135.187 

150.000 


69.999 

20.556 

19. 75C 

9.875 

1.975 

12.000 

40,000 

-22. oon 

131.000 

135.750 

150. DOO 

.noo 

89.999 

20.556 

19, one 

9. 500 

1.930 

13.500 

40,000 

-23, 500 

131. 758 

130.312 

150.000 

•roc 

89-999 

20.556 

1S.25C 

9.125 

1.825 

15,000 

40,000 

-25.000 

134S.5UU 

130.8 75 

150.000 

♦ Oil 

89.999 

20.556 

17.S0C 

8.753 

1.750 

16.500 

40.000 

-26.500 

13 3. <.50 

137.437 

150.300 

.100 

89.999 

20.556 

16,750 

8.375 

1.675 

18.000 

40,000 

-2B.OOO 

134. UOO 

<36.000 

150.000 

.001 

89-999 

20.556 

16.000 

8.000 

1.630 

19,500 

44*000 

-29. 500 

136.750 

130. 562 

150.000 

• oor> 

89-999 

20.556 

15.25C 

7.625 

1.525 

21.000 

40.000 

-31.000 

135.5110 

13V. 125 

153.000 

.011 

89.999 

20.556 

14.50C 

7,250 

1.453 

22.500 

40.000 

-32,500 

13i».<.58 

139.687 

150.030 

♦oon 

69,999 

20.556 

13. 750 

6.875 

1.375 

24.''00 

40.000 

-34.000 

137.000 

140.250 

150.003 

♦ 010 

89.999 

20. 556 

13. OOC 

6.500 

1.300 

25.500 

40.000 

-35.50C 

137. 750 

140.812 

150.000 

♦ aoo 

89.999 

20.556 

12.250 

6. 125 

1.225 

27.000 

40.000 

-37.000 

13o. 5oU 

x4l .375 

153.000 

♦111 

89.99M 

20,556 

U.50C 

5.750 

1.150 

28.500 

43.000 

-38,500 

139.250 

141.937 

150.000 

♦000 

89*999 

20.556 

10.750 

5.375 

1.073 

30.000 

40.000 

-40.000 

140. JOU 

142.500 

150.000 

*010 

89-999 

20.556 

10.000 

5.000 

1.000 
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6.2 EXAMPLE PROBLEM I 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


JOBFLAD 1 
VALUE ZB 

2 3* 

8 2 3 

2 

0 7 8 

4 3 5 

0 10 11 
4 0 i 

15 13 14 15 
1 0 1 0 

16 17 le 
oil 

IV 20 
1 5 

EXAMPLE PR06LEM NO. 1 - MULTIPLE 
ALFA* .00 MACMNO* .OOnC 

SURFACE 

ALTITUDE* 

ANALYSIS CAP 

PAGE 

15 




XAI li/C 

XAI2I /L 

AAt j)/C 

XA(4)/C 

XAI51/C 

XAI 61/C 

XA(7t/C 

XA18I/C 

KAHI/C 

xAitm/c 





.0000 

1. vwOU 

.DOOO 

,0000 

.0000 

.0001) 

.0000 

• OOOC 

.0000 

.0000 


X 

V 


2A(i)/C 

EAl^J /5 

..AIaI /C 

1A(5)/C 

1A(5)/C 

2AI6I/C 

2AI7)/C 

7AI8I/C 

ZAI9J/C 

ZAIlOl /C 


150. nOT 
150. nolo 

Ao.oonc 

50. n 000 


.0000 

.0000 

. JUUO 

. JOOO 
.JlOO 

.0000 

.0001 

.0000 

,0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.OOOC 

.0000 

.0000 

.0000 
.000 0 



J 

K 

v z 

ML 

CM 

OmL 

DC 

CS 

42 

L 

5.000+01 -1.500+01 

5. 000+00 


l.on.o+oi 

5.167+00 

3.7 50+01 

43 

1 

5.O00+01 -2.5'’0+01 

1.500+01 

4. 

1.050+01 

3.333*80 

2.917+01 

44 

i 

5,000*01 -1,500+01 

2.500+01 


1.00.) +01 

2.5nO+'KP 

2.083*01 

42 


5. 000*01 -1.500*01 

5.ron+ou 

4« 

1. 000+01 

5.167+00 

3, 750 * 01 

43 

2 

5.000*01 -2.500*01 

l.SOO+Ol 

4*4»^:>402 

1. 000 +01 

3.333+00 

2.917*01 

44 

2 

5.T>0*01 -3.500*01 

2.500 + 01 


1. 000+01 

2.500+00 

2.083*01 

42 

3 

5. <*00*01 -1.500*01 

5.000+01) 

4*3-;»<-U2 

1. 300 +01 

5.167+00 

3. 750*01 

43 

3 

5.00<)+oi -2.500+01 

1.500*01 

4* 4^^4 02 

1. 000+01 

3. 333+00 

2.917+01 

44 

3 

A.OOOtCl -3.500*01 

2.500*01 


1. 000+01 

2.500+00 

2.083*01 

42 

4 

5.onn+Cl -1.500+01 

5.000»0u 

4«.>4>*’y2 

1.000 +01 

1.250+01 

1.125*02 

43 

4 

5.000*01 -2.500*01 

1.5tM*01 


1. 000 +01 

1 -000+01 

8.750*01 

44 

4 

5.000*01 -3.500*01 

2.50J1+01 

44.y^>4|>2 

1.000+01 

7.500*00 

6.250*01 

r-' 

— __ 







JOfiFLAG 12 3 4 5 6 

7 8 9 lu 

ii 

15 15 16 17 IB 19 20 

rxANPLI 

value 

28 8 2 3 2 5 

3 5 5 0 

i L ij 

1 Q 0 

0 115 

ALI 

J 

K 

XV VV 

IV 

lAV 

1 VV 

IZV 

KM 

44 

4 

1.555*02 5.C0C+01 

-3.000*01 

i.043-Ji 

o.ooa 

-9.829-01 

1.585+02 



^ FILE # <f = LEFT VERTICAL FIN GEOMETRI 



C EOF 

PLOT FILE *)' 






J 

K 

Y Z 

ML 

t- 

DHL 

DC 

OS 

42 

1 

-5.000*01 -1.500*01 

4.0'^0+''u 

4. 

l-0a04ni 

5.167+00 

3.750+01 

43 

1 

-5.000*01 -2.500*01 


4 .^^>4 02 

1.003431 

3.333+00 

2.917+01 

44 

1 

-5.000*01 -3.5C0+01 

2-50n*ri 


1.000401 

2.500+00 

2.003*01 

46 

1 

5.000*01 -1.500*01 



1.3D3401 

5.167*00 

3.750*01 

4? 

1 

5.000*01 -2.5C0*ri 


H»42:^4UZ 

1-303401 

3.333*00 

2.917*01 
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6.2 EXAMPLE PROBLEM # 1, MULTIPLE-SURFACE ANALYSIS CAP^^BILITV (CONTINUED) 
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InlM 
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MGC 
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89.999 

36. 870 

54.000 

13.500 

6.750 


40,000 

l.ono 

-36. u jj 

-15. 750 

27.000 

.000 

89-999 

36.870 

S7.00C 

14.250 

7.125 


40,000 

.000 

-3u.l>0U 

-15. 000 

30.000 

.nan 

89.999 

36.870 

60.000 

15.000 

7.500 

11-TP^ 

40,000 

-l.OOO 

-36. DUO 

-15.000 

30.000 

.000 

89.999 

.000 

60.00C 

15.000 
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89.999 

.000 

60.00C 
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5. JDO-Jl 
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0.0 JO 
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51 
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53 
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2 EXAMPLE PROBLEM « 1. MULTIPLE-SURFACE ANALYSIS CAPABILITY (COWTINUED) 
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EXAMPLE PRUbLEH NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PACE 
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EXAMPLE PRUSLEN NO. I - MULTIPLE SURFACE ANALYSIS CAP PAGE 
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EXAMPLE PkUBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
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6.2 EXAMPLE PROBLEM # 1, 

MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 
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EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE AMILTSIS CAP PAGE 
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.13365 
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.lAAAT 

.95330 

.9A006 

.95370 

.96873 

.00598 

-.00739 

-.00249 

.00081 
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.05172 
*03465 

-.13597 -.9593*01 
.14276 -.3200*01 
.15537 -.6194*00 
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12 1 
12 2 
12 3 
12 A 

6.520 

12,338 

18.156 

2A.277 

90.21 7 

90.217 

90.217 
90.106 

-5.A90 

-5.332 

-5.175 

-5.636 

11 7. 6A51 
117.6A51 
117. 6A51 
151.2579 

2.22A3 

.7000 

.05A8 

-.90A8 

.25A39 

.03237 

.02020 

.16038 

.06658 

.1J9T5 

.15283 

.1A5BA 

.9A5B9 

.9A36B 

.95951 

.96904 

.00274 

-.00392 

.00165 

-.00002 

-.01894 

*02380 

*03383 

*01263 

-.0905 7 -.6260*01 
.13646 -.2000*01 
,14750 -.1563*00 
.00876 .3380*01 

13 1 

13 2 

13 3 

13 A 

12.145 

16.569 

20.994 

25.64ft 

110.130 
110.130 
110.130 
110. 0A6 

- 12.5AA 
-12.500 
-12.A56 
- 12.988 

89.A59A 

B9.A59A 

89.A59A 

115.0192 

1,8027 
.5269 
-.0A57 
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.03258 
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.IA521 
.15657 
.IA7 15 

.94099 

.94626 

.96396 

,96912 

.00103 

-.00069 

.00583 

-.00024 

-.01156 

.02140 
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.00293 

-.06041 -.3852*01 
.12722 -.1143*01 
.13597 .1003*00 

-.00416 .2779*01 

lA 1 
lA 2 
lA 3 
lA A 

17.771 
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ZJ.83L 

27.039 
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130.0A3 
130. 0A3 
130.000 

-15.795 
-15.815 
-15.836 
- 16.102 

61.2737 
61.2737 
61.2737 
7B. 7 8 05 

1.4769 
.36 56 
-.1681 
-1.05BA 

.20591 

.053AT 

.0A725 

,10867 

• 099A0 

• 1A983 
.IS9AI 
.13981 

.93714 
.94 730 
.96A8A 
.96958 

-.00036 

.00105 

.00672 

-.00095 

-.00721 

.01920 

.02022 

-.00176 

-.04189 -.2159*01 
. 11496 -.5428*00 
,12175 ,2524*00 

-.01755 .2037*01 
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JOBFLAG 

VALUE 

1 2 3 

lA A 2 

4 5 6 

3 2 4 

78 9 10 11 12 13 lA 15 16 17 18 19 20 

3AA6110100010A 
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ALFA 

PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PACE 
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IXL in 

1 zu 

1 

2 

A6AA -130 
3533 -110 

,0A3 -15. 

.130 -12. 

805 IJ1.A33 1.STA7 

522 111.212 1.9819 

-.2683 

-.29A8 

1.8928 

2.0030 

.2799 

.2930 

.1718 

.1648 

.0878 

.1356 

.0830 .1551 -.9844 

.0961 .1349 -. 9862 
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2 EXAMPLE PROBLEM # 1. HUITIPLE.SURFACE ANALYSIS CAPABILITY (COWTINUED) 


3 

-.3222 

-90.217 

-9.611 

50.992 

2.0043 

-.2706 

6 

-.2511 

-70. 306 

-6.672 

70.771 

2.0121 

-.2622 

5 

-.1800 

-50.391 

-3.706 

50.551 

2.0607 

-.1966 

6 

-.1083 

-30.327 

-2.336 

30.331 

2.3610 

.1312 

7 

-.0361 

-10.110 

-2. 300 

10.110 

2.6373 

.06 52 

8 

.0361 

10. 110 

-2.308 

10.110 

2.3676 

.1151 

9 

.1083 

30. 327 

-2.336 

30.331 

2.0505 

.2890 

10 

.1800 

50.391 

-3.706 

50.551 

.9796 

-.6696 

11 

.2511 

70.306 

-6.672 

70.771 

.622 3 

-.1667 

12 

,3222 

90.217 

-9.6U 

90,992 

.6006 

-.09 55 

13 

.3933 

110. 130 

-12.522 

111.212 

.2207 

-.06 86 

16 

.6666 

130.063 

-15.805 

131.633 

.059 0 

-.0160 


INTFGRATEO AtfiLOAO 


E 

FCN 

EC* 

Fcr 

ECL 

ECO 

ECHP 

1 

1.6B59 

-.0753 

.0668 

1.6733 

.2186 

-.1030 

1 

.1606* 

.1365* 

.0037* 

.1169* 

.1568* 

.0241* 


2.0207 

.3011 

-. 1616 

.1800 

.1117 

.1208 

9866 

2.0236 

.3071 

-.1573 

.2234 

. 1284 

.1067 

-. 9860 

2.0612 

.3260 

-.1656 

.2718 

.1599 

. 1665 

-.9762 

2.2S2T 

.429 3 

-.3828 

.3256 

.2765 

.0260 

9606 

2.3899 

.4366 

-.3557 

.3413 

.2866 

.0000 

-. 9581 

2.3115 

.6311 

-.3721 

.3302 

.2864 

.0000 

-. 9501 

1.9692 

.6063 

-.6763 

.2809 

.2681 

-.0760 

96 06 

1.0428 

.0920 

.3296 

.1374 

.0870 

.2057 

.9767 

.6415 

.0775 

.2238 

.0708 

.1478 

. 1659 

.9782 

.4109 

,0529 

.2266 

.0366 

.1615 

.1669 

. 9759 

.2258 

.0299 

.2256 

.0153 

.1753 

,1678 

.9736 

.0605 

.0078 

.2332 

.0028 

.1891 

.1601 

. 9719 


: lENTS-SURFACE NOS.- 

1 - 1 





EC MR ECMY 

EX A 

EZA 

ES 

FMGC 

EB 

-.1375 -.0076 

-.0096* .0092* 

5.4^ 

5.44* 

-5.66 

-5.66* 

8199.59 

8199.59* 

32.68 

32.68* 

280. 00 
280.004 


J08FLAG I 2 3 * 5 * T 8 4 10 11 12 13 lA 18 16 IT 16 19 20 EXAMPLE PROBLEM NO. 1 - MULTIPLE SURFACE ANALYSIS CAP PAGE 
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airload sums 


AC 

i.ABSB 

-.0753 

.0660 

1.6733 

.2186 

-.1030 

-.1375 

-.0076 

CG 

1.6857 

-.0753 

.0668 

1.6732 

.2186 

-.344^ 

-.1388 

-.0063 

AC 

.1404* 

. 1 365* 

.0037* 

. 1169* 

.1568* 

• 0243* 

-.0096* 

.0092* 

CG 

.1404* 

.1 366* 

.0037* . 

. 1169* 

.1568* 

.0240* 

-. 0095* 

.0093* 


5.69 

.00 

5.69* 

. 00 * 


• neTFRPINANT^ .1721*35 • SCALF* .6057-02 • 


-5.66 8199.59 

.00 8200.00 
-5.66* 8199.59* 
.00* 8200.00* 


32.68 
32. 68 
32.68* 
32.68* 


THE LIFT COEFFICIENT FOE THE WING ALONE, 1/(1, 1). IS <7^ - 7.6722 WITH L.E. SUCTION (BLUNT L.E.) 

= 1.7881 NO L.E. SUCTION (SHARP L.E.l 


260. 00 
280. 00 
280.00* 
280.00* 


LIFT OISTRIBUTIGN DETAIL-SURFACE NO 


c 


NOTATION = 1/(1, 2) 


.- t/l 1. 21 


INDICATES SOLUTION FOE SUIIFACB 8 1 IS OUTPUT 
CONSIDERING SURFACES 6 1 AND » 2 SIMVLTANEOUSLI. 


J K 

1 I 
1 2 
I 3 
1 6 


2 I 
2 2 
2 3 

2 6 


3 1 
3 2 
3 3 
3 6 


6 I 

6 2 
6 3 

6 6 


5 1 

5 2 

5 3 

5 6 


JOBFLAG 

value 


P<*l 

PIVJ 

F(2» 

area 

IT.TTt 
20.801 
23. 831 
27,056 

-130.063 

-130.063 

- 130.063 

- 130.011 

-15.795 
-15.615 
-15.836 
- 1 5.673 

51.2737 

61.2737 
61.2737 
78, 7805 

12.165 

16.569 

20.996 

25.685 

-110.130 
-110.130 
- 110.130 
-110.066 

- 12,566 

- 12.500 
-12.656 

- 12.066 

89.6596 

39.6596 

85.6596 
115.01 92 

6,520 
12.338 
18. 156 
26.326 

-90.217 

-90.217 

-90.217 

-90.133 

-5.690 
-5.332 
-5. 175 
-8.530 

117.6650 
117 . 66 50 
11 7,64 5 0 
151.2577 

.896 

a. 106 

15.318 

22.967 

-70,306 
-70.306 
- 70.306 
-70.200 

-6.631 

-t.312 

-‘^.993 

-5.060 

165. 9307 
165.8307 
165. 8307 
187-6966 

-6.731 

3.875 

12.681 

21.551 

-50.391 
-50.39 1 
-50.391 
-50.237 

-3.969 
- 3.660 
-2.910 
-1.673 

176. 0166 
176.0166 
176. 0166 
223. 7353 


CPN 

GIXt 

GI V 1 

cm 

3.1625 
1.6536 
1.28 75 
1.3896 

.31837 

.05611 

.02272 

-.08669 

-.070 38 
-.15123 
-.16 603 
-.18673 

.95356 

.95632 

.97138 

.96119 

3.3616 
I. 71 75 
1. 31 86 
1.6125 

.33326 
.03951 
. 009 32 
-.09868 

-.05806 
-. 16761 
-.16169 
-.17652 

.96127 

.95838 

.97387 

.95619 

3.3530 
1.6965 
1 .3052 
1.6156 

.31651 
.02178 
-.009 67 
-.11550 

-.05676 

-.16666 

-.15976 

-.17528 

.97087 

,95210 

.97597 

.95533 

3,3056 
1.6596 
1.2825 
1.62 33 

.29793 

.00681 

-.02760 

13653 

-.05266 

-.16261 

-.15839 

-.17656 

.98561 

.97073 

.98190 

.95560 

3.07 35 
1.7399 
1.3955 
1.5716 

.22060 

-.02271 

-.06723 

-. 15679 

-.07095 

-.16665 

-.16073 

-.19029 

1.03529 

1.00926 

1.01103 

.95913 


VMXI 

VII VI 

VI<2) 

GAMA 

.00802 

.00875 

.01353 

-.00124 

.03862 
- .01161 
-.02097 
-.05213 

-.1569 9 
.11563 
.16675 
.25029 

-.6593*01 
-.2656*01 
-. 1933*01 
-.2690*01 

.01295 
. 00952 
.01566 
-.00756 

.066 82 
-.01039 
-.02226 
-.05737 

-.16955 
. 13105 
.16161 
.26371 

-.7186*01 

-.3727*01 

-.2892*01 

-.6003*01 

.02016 

.01166 

.01674 

-.00859 

.05015 

-.00651 

-.02159 

-.06081 

-.15115 
. 1501 1 
. 1 8006 
.2805? 

-.9636*01 

-.6866*01 

-.3769*01 

-.5278*01 

.02937 

.01588 

.02027 

-.00816 

.06755 
.00967 
- .00915 
- .05378 

12933 
.17011 
.2 0062 
.30129 

-.1155*02 

-.5882*01 

-.6596*01 

-.6501*01 

.05122 

.03140 

.03501 

-.00789 

.16996 

.11899 

.09099 

.01769 

-.03566 
.21380 
. 235T5 
.31682 

-.1283*02 

-.7357*01 

-.5969*01 

-.8622*01 


1 2 3 6 5 6 

16 6 2 J 2 6 
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6 1 
6 2 
6 3 

6 6 


T 1 
7 2 

7 3 

T 6 


8 1 
8 2 
8 3 

a 6 


9 I 
9 2 

9 3 

9 


10 I 
10 2 
10 3 


-7.605 

-30.327 

-2.661 

IBB. 4164 

1.713 

-30.327 

-2.011 

143.4164 

11.031 

-30. 327 

-1.361 

1 a a. 41 64 

20. 707 

-30.231 

.631 

242,24 97 


-7.667 

1.66T 

11.000 

20.598 

-10.110 
-10.110 
-10. lie 
-10.110 

-2.636 
- 1.981 
-1.329 
.871 

1 88. 7236 
18 6. 72 36 
1 88.7236 
242.6666 

-7.667 

1.667 

u.oro 

20.598 

10.110 

10.110 

10.110 

10.110 

-2.63* 
- 1.981 
-1.329 
.071 

188.7236 
1 88. 7236 
138.72 36 
262. 6*67 

-7.605 

1.713 

11.031 

20.812 

30.327 
30.32 7 
30.327 
30.339 

-2.661 

-2.011 

-1.361 

.151 

1 39.6166 
138.6166 
IBB. 6166 
262.2697 

-6.731 

3.875 

12.681 

50.391 

50.391 

50.391 

-3.969 

-3.640 

-2.910 

176.01 66 
1 7*. 01 66 
176.0166 



.33613 

-.00070 

1.03018 


-.02451 

-.00309 

1.01287 

1.9240 

-.06319 

-.00352 

1.03328 

2. 9434 

-.27064 

-.02596 

.96082 


6.7328 

.62732 

.DJQOO 

1.02377 

2.6835 

-.00090 

.00000 

1.00259 

2.0163 

-.05192 

.00000 

1.03039 

2.5658 

-.27367 

•00000 

.96596 


4.5395 

.60690 

.00000 

1,02298 

2.4164 

-.00466 

,00000 

1 .00621 

1 .9977 

-.05550 

.00000 

1.03261 

2.5656 

-.27536 

.00000 

,96899 


2.6866 

.12055 

.00203 

1 .06000 

1,8337 

-.06992 

.00331 

1,01926 

2.0086 

-.07382 

.00351 

1 .02226 

2.7693 

-.25802 

.07635 

.96861 


3.6302 

.37807 

.02697 

1.02369 

I.1DB6 

.06230 

.12928 

.98601 

.0280 

.00593 

.16816 

.97827 


.06627 .18613 

.02735 .15993 

.06010 .12577 

-.02619 .06952 


.03896 .066T8 

,01779 .06666 

.06558 .03865 

-.03887 .02672 


.03818 -.06000 

.01960 -.03917 

.06781 -.01502 

-.03581 .02670 


.05369 -.28616 

.03363 -.22668 

.03695 -.16170 

-.01658 -.03993 


.0(616 -.25100 
-.00682 -.16684 
-.00128 -.11083 


-.16200 

-.1829*02 

.1986 3 

1009*02 

.23726 

-. 8967*01 

-66557 

1538*02 

-.2536 7 

-.2209+02 

.17*55 

-. U 59*02 

-2255 7 

-.9399*01 

.66712 

-.1539*02 

-.23126 

-.2116*02 

. 1 782 a 

-.1129*02 

.22915 

-.9322*01 

.64901 

-.1551*02 

.05385 

-. 1159*02 

.2662 3 

-.8566*01 

.2 6 799 

-.936 0*01 

.63522 

-. 1661*02 

-.18991 

-.1515*02 

. 15366 

-.6696*01 

. 1 8*6 7 

-.1199*00 


6-20 


6.g EXAMPLE PROBLEM » 1, MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTIHUEP) 


10 *> 


11 1 
U 2 
11 3 

11 4 


12 I 
12 2 
12 3 
12 * 


13 I 
13 2 
U 3 
11 4 


14 1 

14 2 

14 3 


21.623 

50.327 

-2.705 

223. 7354 

.394 

8.106 

15.318 

22.906 

70.304 

70.304 

70.304 
70.166 

-6.631 

-6.312 

.993 

-6.432 

14 5. 8307 
145. 8307 
145.8307 
187. 4966 

6.520 
12.338 
IR. 156 
24.277 

90.217 
90.217 
90.217 
90. 106 

-'.490 
- 8.332 
-'.175 
-S.636 

117.6451 
117. 6451 
117.6451 
151.2579 

12.145 

16.569 

20.994 

25.648 

110.130 

110.130 

110.130 

110.046 

- 12, 544 

- 12.500 
-12.456 

- 12 . see 

89.4594 
89.4594 
8 9.4594 
115.0192 

17.771 

20.801 

23.831 

130.043 

130.043 

110.043 

-15.795 
-15.815 
-15. 836 

61.2737 

61.2737 

61.2737 


-1.05 85 

.09538 

.20498 

.97367 

2.3284 
.7175 
.06 72 
-.8666 

.25476 

.01733 

.00402 

.14342 

.06073 
. 13650 
.15045 
.14527 

.95726 

.94737 

.96079 

.97242 

1.8759 

.5447 

-.0391 

-.9576 

.21660 
.02590 
.01649 
. 15765 

.079 43 
.14172 
.15407 
.14637 

.94703 

.94753 

.96388 

.97117 

1.5216 
.4001 
-. 1229 
-1 .02 16 

.19363 
.03624 
.029 57 
.172 25 

.00437 
.14672 
.15748 
. 14750 

.94162 
. 94 86 4 
.96681 
.97028 

1.2612 
.26 75 
-.2260 

.18248 

.04927 

.04493 

.10609 

.15097 

.15003 

.93761 

.94875 

.96654 


.00602 

- .08 4 89 

.09426 

.5853*01 

.00868 

-.00280 

.00225 

.00329 

-.03558 

.01597 

.03417 

.01610 

-.0885 0 
.15338 
.16334 
.02551 

-.8133*01 

-,2543+01 

-.2408*00 

.4014*01 

.00463 

-.00087 

.00515 

.00164 

- .01646 
.01943 
.02703 
.00549 

05127 
.14385 
.15239 
. 01269 

-.5279*01 

1556*01 

.1120*00 

.3577*01 

.00261 
.00139 
. 00829 
.00071 

- .00829 
.01956 
.02261 
-.00023 

-. 02 85 7 
. 13294 
.13959 
-.00127 

-.3252*01 

8691*00 

.2697*00 

.2901*01 

.00093 

.00230 

.00823 

-.00436 

.01835 

.01860 

-.01770 
.11947 
. 12440 

-.1843*01 

-.3971*00 

.3423*00 


JOeFLAH 1 2 3 4 5 6 7 8 4 io li li 13 14 15 16 17 18 19 29 
value 1442 3 24344o110 1C 0919 4 
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PIXI 

27.939 


PI VI 
13C.00n 


P(2I 
-16. lOi 


AKt A 
7o* 


CPA 

-l.QSir 


G<X) 
IB68 I 


G( Yl 

GUI 

VHXl 

VU 

VI (2) 

GAMA 

14^06 

.97032 

-.00030 

-*00338 

-.01540 

.2121*01 


Li<*T wl^iTkioliTIOK DE r AIL-SURHACE NO,- 2/1 l» 2> 


J 

K 

Pt X) 

Pi V) 

PI 21 

4Kl<» 

CPN 

G1 X ) 

G( Y> 

G12> 

VKXI 

vnvi 

Vt(£) 

GAMA 

16 

16 

16 

1 

2 

3 

129. «62 
135.312 
142,476 

-30. >300 
-3C.OOO 
-30*000 

-19.26V 
-19.48/ 
-20. 06V 

1.5. VUUii 
1V9. 0000 
.00.0000 

-2.06^8 

-1.1296 

-.9998 

-.15909 

-.90198 

.07207 

-.QA257 

-.00352 

.01089 

l.Ol73'^ 

1.01665 

.99773 

.02694 
,024 74 
.01278 

.13977 
. 14480 
. 14485 

.33 750 

.17611 
. 10001 

.6303*01 
. 3514*01 
.9999*01 

17 

17 

17 

1 

2 

3 

124.687 

133.437 

142.462 

- 10*000 
-9.996 

-19.110 
-19.42.. 
-20. 17. 

11 :>. oOoo 
iT5. OOOO 
200. ilUOU 

-2.3959 

-1.2065 

-1 

-.20035 

-.0.0572 

.08261 

-.05U4 

-.conoo 

-99651 

1.^0975 

,99736 

.030 78 
.02718 
.91255 

.02060 

.02335 

.02330 

.37890 

.17946 

.99104 

. 1024*02 
.5255*01 
,5243*91 


JOBFLAG 1 2 

VALUE 14 4 


7 8 9 10 11 12 13 14 1» 16 17 18 19 20 


I 1 


I 


I 
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J 

v» 

Y 

7 

W 

SCN 

sex 

SCL 

SCO 

SMP C/4 

SCLC/a 

IXL 

IVL 

a 

9 

10 

11 

12 

13 

lA 

.0361 
. 1083 
.1800 
.2511 
.3222 
. 3933 
.4644 

10. 110 
30.32T 
50. 391 
70. 304 
90.217 
110. 130 
130.04 3 

-Z.30d 
-2.336 
-3. 70A 
-6,^72 
-9.<*l 1 
-12.522 
-15.805 

10.110 

30.331 

50.551 

70.771 

90.992 

111.212 

131.633 

2. 8577 
2.3172 
.8315 
.4477 
.2510 
.0993 
-.0344 

1868 
.20 74 
-. 3056 
-.1057 
-.0535 
-.0188 
,0069 

2.8565 
2.2450 
.8719 
,4593 
.256 5 
. 1010 
-.0351 

.^655 

.0913 

-0596 

*0363 

.0160 

-.0068 

- . 32 74 
-.4495 
.3204 
.2239 
.2255 
.2262 
,2339 

.4081 
.320 3 
.1149 
.0507 
.0229 
.0068 
-.0016 

.2787 
.2567 
.0954 
.1443 
. 1585 
. 1729 
. 1B72 

.0000 
- .0740 
.2051 
. 1462 
. 1472 
. 1480 
.1403 





SFCTION AIRLOAO 

CnFFFtCtENTS-SUPFACE NO.’ 2/( li 21 

•**♦♦♦♦♦****»•»«•»**♦♦♦****••»**•••» 




J 

Y* 

V 

Z 

w 

SCN 

sex 

SCL 

SCO 

SMP C/4 

SCLC/a 

IXL 

lYL 

16 

17 

18 
19 

-.3750 

-.1250 

.1250 

.3750 

-30.000 

-10.000 

10.000 

30.000 

- 19*378 
- 19.269 

- 19.269 
-19.378 

311.563 

291.563 

291.563 

211.563 

-1*3965 
-1.5277 
-1* 5090 
-1.2^66 

-. 0598 
-.1234 
-.1398 
-.0397 

-1.3157 

-1.4831 

-1.5406 

-I.213B 

-.2442 

-.2867 

-.3002 

-.2230 

.1100 
. 1088 
. 1024 
. 1079 

- . 3700 
-.5099 

- .5296 
-.3428 

.0720 

.0825 

.0806 

.0676 

.0109 

-.0000 

.0000 

-.0109 


1 ZL 

-. 9604 
9636 
. 9741 
. 9787 
.9763 
. 9738 
. 9722 


12L 

, 9973 
. 9966 
. 9967 
. 99T7 


INTEGRATED AIRLOAD COEFf TC 1 ENTS-SURF ACE NDS.» 1-2 


E ECN 

ecM 

ECY 

ECL 

FCO 

ECMP 

ECMP 

ECMY 

EX A 

E2A 

FS 

EHCC 

EB 


1 1-7593 

1 .1401* 

2 -1.4401 

2 -.0977* 

-.1156 
«1362« 
-.09* 
,096 8* 

.0667 
.0029* 
-.0002 - 
. 0000* 

1. 7526 

* 1163* 
L . 60 1 e 
U2T* 

.1917 

.1585* 

-.3434 

.0764* 

-.06 76 
-0292* 
* 1023 
-.02 57* 

-.1396 
-.0091* 
.006 5 
.0012* 

-.0077 

.0069* 

-.0012 

.0012* 

5.69 

5.69* 

131.00 

131.00* 

-5.66 
-5.56* 
- 19.34 
-19.34* 

0199.59 
8199,59* 
2000.00 
2000. 00* 

32.68 

32.68* 

25.33 

25.13* 

260. 00 
280.006 
$0.00 
80^ 00* 


JOBFLAG 1 2 

VALUE 14 4 

3 6 5 

2 3 2 

6 7 8 

6 3 6 

9 10 IL 
6 6 1 

12 13 14 
1 0 1 

15 16 17 
0 0 0 

IB 19 20 
1 0 4 

EXAMPLE PROBLEM 
ALFA’ 10.00 

NO. 1 - MULTIPLE 
MACHHD* .2000 

SURFACE 
ALTI TUOE’ 

Analysis cap 

PAGE 

36 






*** 

A1 HLOAD 

SUMS ♦** 







1 .4080 
1.4080 
.1163* 
. 1 163* 

-.138 7 
-.1387 
.1593* 
. 1 593* 

• 060 7 
.0667 

• 0C294I 
.0029* 

1.6107 

1.6107 

.0969* 

.0068* 

.1079 1 

.1079 1 

.1771* 
.1771* 

.3113 
.0504 
. 1255* 
.1336* 

-.139 1 
-.1405 
-. 0090* 
-.009 1* 

.0076 

.0065 

.0090* 

.0090* 

5.69 

.00 

5.69* 

.00* 

-5.66 

.00 

-5.66* 

.00* 

8199.59 

8200.00 

8199.59* 

8200.00* 

32. 6B 
32.68 
32.66* 
32.68* 

280. 00 
2B0. 00 
280.00* 
280.00* 


• determinant- .2376*13 » SCALE* .3941-02 • 


END OF XQT NSURF jOfl TIMF- 68 / ELAPSED TIME- 79 / NO.PLOT FILES* ^ / NSURF EXEC. VERSION 6-18-72 







6-21 



5.2 EXAMPLE problem # 1. MULTIPLE-SURFACE ANALYSIS CAPABILITY (CONTINUEO) 


XQT TRMPLT 


KUMIT • 

iccapp- 

NTflAN c 
IPRJNT- 
NTYPE e 
NOFSCL> 

I SCALY = 
NXL t 24 
NXR « 24 
NYL 24 
NYH = 24 
NPOSNl * 
NPDSN2 r 
NPCISN3 = 
NP11SN4 - 
ANNim 
ANNUT2 
ANNOT3 
ANNUT4 


it l.lt 1. l«i ti tl ri lA 


9Sn 
400. 925 
60G, 900 
400, 50 

lU = EXAHPLl PKuu. I - MWLr IPLb-SUkFACe 
ID - CAPAalLlTY bfLHu.^lSTR AT [ CK RUN 
lU • A.9uHt£/ 5 JULY i2 

ID = 

CHARSZ = 1.0, 1,0, I. y, 1,0 

TITLE • ID ^ ISONETKlc PhujLLTJON OF LIFTING SURFACES 


XLAUCL : 
YLABEL > 
XHI« 1.5 
XL0=-1.0 
YHI= 1.5 


hqrizunial aaij, semispans 
vertical axis StKlSPANS 


YLO--1.0 


PLOT = 2,1, 
ENDPL T 
ANOTSV = 0 
NOAOV > 1 

3,1 . 

ENUl*T 

PLOT « 5,1 , 
ENOPLT 
NOADV = 1 

6.1 , 

ENulSI 

PLOT - 2,2, 
ENOPl T 
NOAOV = 1 

3,2, 

ENUL6I 

PLOT = 2,3, 
ENOPLT 
ENDF IL 

3,3. 

ENul5 I 


MICROFILM plot COMPLETED 
NOADV - I 


PLOT - 2,1, 
ENDPLT 
NOADV = 1 

3,1, 

tMoL-Sl 

PLOT - 5,1, 
ENOPLT 
NUACV = 1 

6,1 . 

CNl>l;>I 

PLOT - 2,2. 
ENOPLT 
NOADV = 1 

3,2, 

ENul.>I 

PLOT = 2,3, 

3,3, 

ENuLliJ 


ENOPLT 

ENOFIL 



START OF XOT TRWPLT (PLOT OPTTOIt) 


microfilm plot completed 

NOADV c I 


PLOT = 2,1, 
ENDPLT 
NOAOV = 1 

3.1 . 

ENUisI 

PLOT = 5,1, 
EHDPl T 
NOAOV = 1 

6.1. 

ENUi.:,! 

PLOT = 2,2, 
ENDPLT 
NOADV 3 1 

3,2, 

ENOLil 

PLOT = 2,3, 
ENDPI T 
ENDE IL 

3.3, 

ENuLiT 


MICROFILM PLOT COMPLETED 
NOADV = 1 


PLOT . 2,1, 
ENOPL T 

3,1 , 

ENwtjl 

NOADV = 1 



PLOT - 5.1, 
FNDPI T 

6,1 , 

E Nc L ^ < 

NOAOV = 1 
PLOT 2,2, 

ENDPLT 

3.2, 

ENoljI 

NOADV = 1 





NOACV = I 

PLOT = 2,3, 3,3, ENuLil 

Enoplt 

ENOFIL 


L' 




scm OF TBS OUTPUT OMITTED, SEE IRPUT-DATA LTSTINO OB PACES fi-J ARD B~Z. 


microfilm plct completed 


NOAOV : I 
PLOT = 2,1, 

3,1 , 

ENuLs I 

ENDPLT 
NOADV = L ’ 
PLOT = 5,1, 

6,1 , 

ENuLi I 

ENOPLT 
NOAOV = 1 
PLOT = 2,2, 

3.2. 

ENuL6 I 

ENOPLT 
NOAOV E 1 
PLOI = 2.3, 

3,3, 

ENDL4T 

ENDPLT 

ENOFIL 



OSIGINAL PAGE IS 
OF POOR QUALITY 


microfilm plct completed 
enorln 
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6.3 EXAMPLE PROBLEM If 2, SINGLE-SURFACE ANALYSIS CAPABILITY 


SUbSONlL-H.UW tlfTJNG SURFACE ANALYSIS PRDGRAN HAOIPB 
iKh SYSlthS INC.. HOUSTCN OPERATIONS 
HUlISTQN. TEXAS (TTOSU) 


*•** JOBS INPUT list »••• 


T XOT ISURF 

EXAMPLE PROBLEM NO. ^ - S 1 NGLt SURf«i,E analTsIS CAPABILITY DEMONSTRATION 
TASK 7.1?, PROJECT 3303A, HJO l-ATOTj. At KwO V fUEM I C ANALYSIS AND DESIGN 
SUBSUN IC-FLON LIFTING SURFACE ANALYSIS, T«« PkOGKAH KC. HA0108 INSURFl 

A.v.guHEA/ 5 JULY 1S>TZ 

tlNPOT 

NSS = Z. NCS^Z, 1FLG(2»*0,16,0, IFLClJl ,"..0 , 1FLGI8I-1, IFLCI10I“5, 

Y = 0.O,3t'.C, Z«2*0.0, E«Z*0.u, L«is.j, 5.0, XCCR-0.25, XOC=0.0,1.0, 
WFLAPT^f',, WFLAPZIP.6Z3, WFLAP3»1.U, ElAPC = u.z5, WSMCTN*0.25» 

PHCCF’l, LDRAO‘1, CLEANF=0.0035, NJi>u* 1, MALriw-O.Z, ALEA^S, OELALF — 12, 
FLAPDJ:3<1.'', AlLQJ'lf. '7,-15. 0, 

KTZ-6, IFLGtm = A*l, 

NJ0BL=9, WCL'l, 0. , 0. ZS, 0. 5. 0. 75, i.U.l. 25,1.5,1. 75,2.0, 

SEND 

lENOJOBS 
7 XUT ISURF 


J06FLAG 1235567 
value '7 0 16 0 15 0 


a 

X 


LAAHPI.L PROBLEM NO. 
aLE«=»***** PACMNO’ 


2 - SINGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
.0000 FLAPO= .00 AILERONU= .60 .00 ALTI TUDE«**5*** 


PAGE 

1 


AINPUT 



KOUT 

- 

*6. 

KTl 

3 

♦1. 

KT2 

C 

*6, 

KT3 

- 


LINX 

W 

+ 56, 

QILOCP 

2 

,75COnCC'^E*CO. 

CUTOFI 

a 

4 tCCOnO<‘nE-03, 

CUTUF2 

- 

.2000rrcn6-02, 

LFLAP 

- 

*0, 

LURAC 

a 

*1 , 

PMECE 

« 

4 lOCOrnrAE+ni, 

OELALF 

= 

-4 12O0'"CA0E*O2, 

NSS 

s 

*2, 

NCS 

a 

♦ 2, 

X 

- 

.oooorocnE+oo, , OOooggooL*L;o , 


.coooooooe.co, .ocfonocioE+oo, .uuuuooooe«' 00, 

.OOOOOOF 0E*0O. ,P'''700000E*'^0, .OU\jUUUOOl*0O, 

¥ = .OOC'7 0<‘'‘OE*00, .30uuOOOOe»02, 

. 10005100F.05, . IPPOOf 0!7E»P5, . lUO0uOUUc«O5, 

.100O0'7''OE»05, . lC060PO'7E+n5, . IOuUOOOOElOA , 

Z = , 1CP'7(7'7P!7F*''0 , . 0<7 JGUouut *0 J « . 


.OOOflOOO'lF'.OO, .OrOCOCOOEIt'O, 

♦OOf • C^no^onrE 

♦ Or‘OOOOOOE-#'<'''f 

,0'>OOOOOOF+CO, -0f*000^^0E*O0< 

c = ,i5nooome+n2, 

, looonooTE+CBf . iconf>rr'rEt'^3i 

. l00Oft0'^nE>03, . *03 , 

KOC = If "'>OC':OE*On, 


^0C 

• COOOOOCnE^OOi 

,r>nr>n^oof>Ei^oo, 

,OAr'00'>noE*nr>, 

.oro^f^nooc^-noi 

- 0000030 OE 1-00, 
,00030A/^OE♦00, 
-OOOOOOOAF*00) 
^Y>0^or>0nnE*OO, 

• OOOOO^nAE-i-OOi 
,000000006+00, 
.nAooono'^e+OOi 
..oooooonE+oo, 
,000000OOE+00, 
,oooo''or*oE+ooi 

.OOnAOOAAff 00, 


OrOACOCnE+COt 4 

. 4^0000000E+O0t 
,OOOOOAOOE+Of>* 
.OAC^OACOE+fA, 
. CoofioAArf tro, 
4 crcoAo^of +A0* 
, nonoofOf.F+on, 
.COAOCOnre+OOt 
, coAooonoe*ro* 
^OAoronoAE+rn, 
. CGAnooooe+oA, 
.orrcof OOe+OOt 
4nn<^oo^"0£+c'0» 
,3AonooooE+ro» 
,ooooocooe+oo, 

.CCOOOOAOFfOO, 
•COOCOOOOt+00, 
* rrncnoo^E+AO » 


♦ OOAonoAriE+on* ♦ a/^ooOE+ao, 
^OOOOOf>AOF+OOt 4 00000000E+00» 
.OOOOOOOOE+OOf 4COODOOOOE+on» 


•UJJUOUuut+OQt 
.OuO>)OUOoctOOT 
00ouo0jjc + i>0 4 4 

4UuO£>uouOL+oa« 

• OiiOUuOCJUt+OQ* 
30uu JuOot^U 1 t 

. lJ\JJU5>JOt«03 r 
4 iJ\>0O0UJt + 03 p 
lOOOOtiuut^^f 1 » 

.u(iOUUOi>JctOO > 

4 JUOjJOs/Oc^OO ff 
4 OLioaoaojctoo. 
4 UJOUoJUUt + 00 r 

• UJl>O0Uk>Uc'<’O0 » 

4 Ot^OJl/JUbMi^OO r 

• 0iJw^0i3^ ^ 30 » 

4UU0J(.t0OJi: + 00* 
4 jJUOjuOJt.tOf3 w 
4 J0OJl>JUUL»O0« 
« kfODQ0f<tiCtt*’OO » 
* VOOO JOOCt+OO p 
,UOOJUa^OOu*OOp 
4 OOOJuaOi>b + DO« 
4 Jui>uOUOJb->-OOf 
4 J^0JUQUL>t.+00« 

r 4 Oii>Cli/Ji>UCic+OOp 

• 000L/t>L>00t.+00f 
*U00J0i>UAit+00« 
,^^0Js)i>i>i>c+OO» 


4 wiT-nrjurrcT* vj» 

,ooooooAnF+oo, 
-OOOOOOOOE+00, 
.OOnnoooOE+00, 
• OOAOOOAOE+00* 
KOCP = 

WFLAPL ~ 

ViFLAF 2 = 

^FLAP3 « 

FLAPC 
ViSMOTH - 
YSPAN = 
4OOOOOOOOE+OO, 

^nortoooooE+oo, 

,noooooooE+OA, 

.oonoonroE+oo# 

,no''oooooF+oo, 

,C00O0OA0E +00 • 
♦ onooonr-^e+no, 
^ocoo'^^ooe +oop 

•OOooonoof+oOr 

, Ooooo A r>fi£ ♦()<)> 


■ V<*UUWUUC^l?T 

,ro^no^ooE+oo 

*0Of:0O300E+OA, 

.AOOOAAOAE+00, 

25OOrCOOE+T0» 
ooo^rrocE+'<^^ 9 

625''0'"^''E+0f>» 
iooooor?fc+oi , 

25?OOCrAE + Of), 
25nO0COAE+oo, 
1C00OO00E+O0 , 

4 OOA^f](;nCE+AOi 
,corcooooe*oo, 

• i;f:ooo''ooE+oo, 
« rC00O00''E+o0i 
,onooooortE*OA, 
.OOOOOOoOF+Ao, 

,C'‘orooAce*oOi 

♦ or ooooooe+on, 
♦COOOOOOOE+on, 
♦ooroooooE+oA, 


4 Li(ll/UUUl/UL«0*J 9 
m ClUOOJUOOc+OO 9 

,o%>ouJ{j£>at+oo» 


00 o%>Ou0tft+\)s^« 4 

4uuouL>oaoi.+oOt 
.gUOuDOaUc+OOf 
*OguUglrggt4^O0 » 
• gjU^OOgUc^OO « 

4Ujuo;3jagt: + noT 

4go0wi^0ogL4^00f 

.ooggaojut^oot 

«uggOggUOk+,OOt 

•OUgOO^UQc^OOt 

»MU0gg0ggt^«^0O, 


onoAOAoo£+oa* 

.nonoooooE^oo* 

lOOOi'>OOOE+04» 

4 1000000A£+O4r 

C000003DE+00, 

4 30030000E**^0, 

ooooooaoE+on, 

,Aoono.ooot+oo, 

100030QOE+03» 

4 100000006*03. 

'j0OOO000£+00. 

400onooooE^oo. 

A0O03007E+OO, 

40onoooooe+oo» 

4 OOO OO0''OE+O0. 

,or>onooooE*on, 

, 00 O 00 O 0 OE*O 0 , 

.oiooonooF.+"'''i 

.oooAonofiE+oo. 

.ooooooaoE * 0 / 1 , 
.r>UOOOOOOE*OOt 
4 OOonnnoOE+O"'. 
4000AnnnnE+AT, 

, 00000 OoOE+oOt 

,oooonnoOE*OA, 
.AOTOOOOAt+OA, 
.OOODOOnOE+OOt 
,OOOOOOOA6frAAT 
, oo^oOC'^i^E^Ort , 
.OOnoOOOOE*AA, 

4 0Ol 3O00A0E+0A, 
,000000006 +00, 
,<100000006 *00, 
^ 7ooo^oo 0 E +1 0 , 

.OO300000E+Ofi, 

.OOOnOonOE+QO, 

.OOODOOOfiE+AO, 


cooo^oaoF*oo, 

,000^00006*00, 
.AOOOOOOOE + riO, 
4000000006*00, 
.000000006*00, 
•OOOrOOOCE+oo, 
.OQOOOOOOE+00, 
.000OOOO0E*O0, 
4ono00Ooot*00, 

4 000 coo 00 E +00, 
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■3 EXAMPLE problem « 2, SINGLE SURFACE ANALYSIS CAPABILITY (CONTINUED) 


NJQB < 

Njoei < 

ALFA - . 

,onnnnorne»ijn, 
,aonoO'»f'ic*''n, 
."omDioOf +CC, 

HACHN 

.oani03r''!; + no, 
.o^oon^ooEtno, 
height . 

. innin<>ooE*''b. 

flapoj = • . 

,noaofi'if'nE*oo. 
.n'lnmoOf'E^Ho, 
AILOJ 

,i>''f'OOr'fl''E*OOt 

,POnlHno'iE*00, 

,(>pmnop''E'*''o, 

.nnmnTciPt *00, 

.0O'lom''OE »00, 
wCl =■ . 

.bnooooppt*r»o, 
. 15O0OO00F *0 1, 
.ftOomnooEtoo, 
.im0'5')OOE*01, 
. 15000 OOOE *01, 

Cleanf » 

IFL6 

* 1 , 
♦ 0 , 
n. 

SEND 


»1 1 

F<>< 

5CCnO!)OPE*01, 

.ccofioonoE+oo, 

.corroonoE*oo, 

.roopciocoE*or, 

,rpoc000OE*0fi, 

zcoorcrrE+OO, 

.oronooooE*r o, 
.(•rrooCinOE+oO, 
ircnforoEtos, 

, ippoofiooE+ns, 

. icoronr 0E*o5, 
3nnor''<TE*oi:, 

,000 coo OPE »r,o, 

.pnnononoc*oo, 

irOOTrp«E*'12, 

.coooonoC£*00, 

, 000000 OOE *00, 
.OrOOOono£«-r)n, 
.COoconnoE+oo, 

looooccne+oi , 

,T500000OE*PO, 
.n500000E*oi, 
. 800O0C00E*00, 
, 120COOOOE+01 , 
16fOOt)OnE»Cl, 

35300ncrE-02, 

♦0, 

♦A, 

♦ 5, 

* 1 , 


OQUGUOuOc.* JO t 

,ojuooJOjL«ao 
. JJ|;J(JU0 Jl*03 
. JjUOJJJ'JcI'OO 
, jOUuouujv^'OO 

ODjUuGJtJE *u J , 

> JuujJjbJu'OO 
lOujuuuilL*u:, , 

. lJUjJ J jOb^-Ob 

, iJJjjJ JUb«-05 
DO j • 

, uuOUUuijJL •'OO 
, UjJvl J JUvJt fOO 
IbJuJjjUb* > 

*ojOJ JJUuc«-DO 
, „s^OJ J J J,^c •'00 
. OJUJuJ o0c«00 

• OwOJ J JOOb pOO 

OOoUiJJJUlFUJ, 

, iuOJ jOCiJc-*01 

.40CIU juujl*oo 

. ijuJGUuJb»01 


f POoooioE^ao, 

.01000003E+O0f 

.OnOOOOOOE'»''n, 

.mooooooE+00, 

.31000000 E'FOO* 

ooorooooE+oo, 

.ooccooooE^on, 

IPOC’OOOEtOS, 

. ioioono"E*05, 

00 r v'-oooEtoo, 

.a30fiioon£*oo, 

.onOOOOTEFOO, 

. 00101 noiE ♦00, 
.nOOOOOO'JE*oo, 
.OMOOCOCEfOO, 

2SOnOP03E*OP, 

,12530C30E^Ol, 

.5C300000E»00, 

, inoooo.ooe^oi, 

.lAPOOOOOE^Ol, 


♦ 1, 

♦1. 


JObFLAG 1 2 3 A 

value I 0 16 0 


5 6 7 8 

I A 0 1 


9 lu tA«r«Fcc PRUdLEM NC. 2 - SINGLE SURFACE ANALVSIS CAPABILITY DEMONSTRATION 
0 ,> aLF-*^»»»»»* KALHNO^ .0000 PlAPO- ,.00 AILER0ND= ,01 ,13 ALTITUDE^ 


RING CeCMETRV 

*••**♦*♦*♦♦** 


SP&N 

RCjDT 

CM(]RQ 

TIP 

lhoro 

60.000 

IS.Ortr 

5- 000 

FLAP 

FLAP 

flap 

SPANl 

SPAN 2 

CHOKO 

. *>00 

.625 

.25?'' 


2Y/R Y XLE 


1 ml :il 

IIP 

InIST 

4KbA 

.Ouov; 

. jOOO 

oO'',>n 

mIlKu 

SPaIu 

aILHN 

SfAN2 

4RRK 

i,HQrtO 

. vc:? 

j j. 000 

,2500 

XU/*tJ 

aiiE 

xTt 


ASPECT 
RAT lU 

mean 

CHORD 

HGC 
(MAC 1 

6 ,1000 

|^^or>o 

10.833 

CIHFO 

1/OMGC 

SWFCP 

NO. SPAN 
VORTICES 

.001 

-,?Ort 

16 

i 

E 

SWEEP C/A 


YBAR 
I HGC) 

XBAR 

(MCCJ 

/BAR 

<MGC> 

12.53C 

-.000 

.000 

NO. SPAK 
UISCONT 

ND. CHORD 
VORTICES 

NO. CHORD 
DISCONT 

0 

A 

1 

OIHEC 

C 

CF 



-30.0CC 

-1.250 


sOO 


-.875 

-26.251 

-1.563 

• JUU 

J. 125 

^1 . b6 8 

-.TS'' 

-22.500 

-1.875 

. J L>J 

J. 750 

•J , 62 5 

-.625 

-18.75P 

-2. 188 


A. 375 

6,S6 3 

-.500 

-15.001 

-2.511 


3.000 


-.375 

-11.25'' 

-2. 813 

• JijJ 

5.625 

ri* A:^8 

-.25^ 

-7.511 

-3. 125 

..vOj 

6.250 

, 3 / 5 

-.125 

-3.75C 

-3.538 


6.875 

1' .312 

.noo 

.111 

-3.750 

,A>UU 

/.500 

1U251 

.125 

3.751 

-3.A38 


6.875 

1 >.312 

.25'' 

7.510 

-3.125 


6, 250 

.375 

.i75 

11.250 

-2.813 

a OU J 

5.625 

O.A3H 

.50n 

15.011 

-2.501 

• 0 JJ 

5. 330 


.025 

18. 751 

-2.188 

, JUJ 

A. 375 

0.563 

.750 

22.511 

-1.875 

, vOqI 

J. 753 

■>.62 5 

.875 

26.25: 

-1 . 563 

, J 

J. 125 

. 6U y 

1 .000 

3i.ni'i 

-1.250 

• JUJ 

b.5lO 

3.75.'' 



XA(1J/C 

XAli)/L 

AAl J 1 /C 

XAIAI/C 


.^'>00 

1 . JJ6J 

i.lOOO 

.111' 

Y 

2¥/ti * ZAlll/C* 

2A,^)/l 

AHI 5 1 /C 

7A(4)/C 

3''.00^n 

l*rnn« 

. uOjj 
. JUOU 



jnsfiAi; 1 

value 1 

2 3 5 5 6 7 b 

0 16 1 1411 

9 ij tXArtPLL PRUI LEf' NL, . 

0 ** ALI- >«••♦*♦♦♦ ♦'AC^*NO= . 


,0fp 

.n'^o 

.no 

.OOC 

5.311 

1.253 


.''OO 


. 0'>0 

6.251 

1,563 



."'OO 

. 00'* 

T.5H 

1.875 

.rtOti 


.000 

• O'^r 

8.153 

2,188 



*00"' 

• COC 

11.101 

2.530 

.00"' 

.000 

.000 

♦ OOC 

11.250 

2.813 

.00? 

♦ 00? 

,rtO0 

.ono 

12.511 

3.125 

, ono 

.00 0 

.000 

.OOC 

13.753 

3 . 43 a 

.?on 

,000 

.000 

.oor 

15.300 

3.750 

.001 

.on 

-00? 

♦ ^>00 

13.751 

3.438 


.000 

.OOrv 

• OOC 

12.500 

3.125 

.OO'I 


.00'' 

• oor 

11.250 

2.813 

.'^00 

.'>0"> 

. 000 

.OOC 

11.303 

2.530 


.00 Cl 

.?oo 

-OOC 

8. 751 

2.188 


. nrio 

,00'> 

*00 0 

7 . 5 m 

1.875 

.0?"' 

4 0'^0 

,nnO 

• OOC 

6.251 

1.563 


,000 

.000 

.non 

5.301 

1.251 


XA( 5J/C; 

XA( 6 I/C 

XAI7J/C 

XA| 81 /C 

XAI3I/C 

XAIini/C 

.1000 


,3133 

.000c 

.1011 

.01m 

2AI 5)2C 

ZAlol/C 

7A(7)/C 

2At 8) /C 

iAI9)/C 

2AU01/C 


- SINGLE SURFACE ANALYSIS CAPABILITY OEMONSTRATIUN 
OO-O J elAPU= .00 AILERUND= .00 ,oo ALT I TUUE =**•*«« 


J 

K 

y 

DY 

or 

US 

1 

1 

- 2 . B13+11 

3.751*01 

1 .4''6+ 3j 

> m^i 

2 

1 

-2.43 T.il 

3. TS " *11 

1.719+ij 

<J . ■•••* 

3 

1 

-2.:62t11 

3. 751*11 

2.331*ivi 

7«oi /-tajO 

4 

1 

-l.687«ll 

3.T51+C0 

2. 344* ''v» 

0 . iu 

5 

1 

-1. 312*11 

3.751*10 

2.656+o*j 

'»• 

6 

1 

-9. 375*11 

3 . 751*11 

2.969*1j 

4.. ii J»ui 

7 

1 

-S.625t'-1 

3.750*13 

3.281+ly 

im4L^ J*Oi. 

B 

1 

-1.875*11 

3. 750*11 

3.594 + iJ 

i.. 

6 

1 

1.375+11 

3.T51+H 

3.594*0., 

i » 

11 

1 

5,625*<'1 

3 . 151*03 

3.t«l+1u 

i •a.JU't'Ul 

11 

1 

9. 37 5*(' ’ 

3. T5"*ln 

2.963+Ij 

1. ii 

12 

1 

1.312*11 

3. 150+11 

2.656 + 06 

V* ^UiTUU 

13 

1 

1 .60 r+'^i 

3. 750*11 

2. 344*08 

6, 7u 

14 

1 

2,162*11 

3.750*11 

2. 131*16 

/.Oi /+UV 

15 

1 

2 .43 /+<'l 

3. 751*00 

1.719*16 


16 

1 

2. 813*31 

3. 751+11 

1 ,416*1J 
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6.3 EXAMPLE PROBLEM i 2, SINGLE-SURFACE ANALYSIS CAPABILITY (COHTINUED) 


1 

2 

-2.813»0l 

3.750+00 

1.406+00 

5.27^+00 

2 

2 

-2.437+01 

3.750*00 

l.Tl9+0y 

6.445+00 

3 

2 

-2. ^62+01 

3.T5C+0C 

2.031 *00 

7.61 / + 0u 

4 

2 

-1.667+01 

3.T50+no 

2.344+00 

o. 7u9+00 

5 

2 

-1. 312+01 

3.75C+00 

2.656+00 

V. 961+00 

6 

2 

-9. 378+00 

3. 750+ DO 

2.969*00 

1. iio+Oi 

T 

2 

-5.625+00 

3.75C+00 

3.2ei+0« 

1 « ^:lo+ 01 

8 

2 

-1 .875+00 

3, 750+00 

3.594+00 

1 . J4O+01 

9 

2 

1.875+00 

3.750*00 

3.594+00 

1.046+01 

10 

2 

5,625+00 

3 . 75‘' + Ot> 

3. 281+00 

1 « £00+ Jl 

ll 

2 

9. 375+00 

3. 750*00 

2. 969+00 

1. 11 J+Ol 

12 

2 

1. 3 12+01 

3.T5n+00 

2,656+Oy 

9.961+00 

13 

2 

1.687*01 

3.750*00 

2,344+Oy 

0. 7o9+oo 

14 

2 

2. '>62*01 

3.750*00 

2-031+00 

7.01 7+00 

15 

2 

2.437+01 

i. 750+00 

1. 719+00 

6. 4>.5+o0 

16 

2 

2.813*01 

3.750+-1O 

1 .406+00 

5.270+yy 

1 

3 

-2.813*01 

3. 750+or- 

1,4 06*00 

5.2/ O+Oo 

2 

3 

-2.437*01 

3.750*00 

1.719*00 

0. 440*00 

) 

3 

-2. '62*01 

3.750*00 

2.031*00 

7 . 61 /*oO 

A 

3 

-1.687+01 

3,750*00 

2.344*00 

a. 7o9+OiJ 

5 

3 

-1.312*01 

3.750*00 

2.o56+oy 

y, 961+00 

6 

i 

-9.375*03 

3. 750*00 

2.969*00 

i.llo+oi 

T 

3 

-5.625*00 

3. 750+00 

3.281*00 

l.iiO+Oi 

8 

3 

-1.875+00 

3. 750+00 

3.594+no 

1.046+01 

9 

3 

1 .875+00 

3. 750*00 

3.594*00 

1.046+01 

10 

3 

5,625+00 

3. 75C+00 

3.28l*Oo 

1.2O0+U1 

11 

3 

9.375*0'4 

3. 750+00 

2.969*00 

l.iiO+Ul 

12 

3 

1.312+01 

3.750*00 

2.656*00 

9.961+00 

13 

3 

1.687*01 

3 , 750+00 

2,344*00 

o. /8y+ UO 

14 

3 

2.062+01 

3.7SC+0O 

2.031+00 

7.01 7+00 
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PACE 
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1 0 lo 

0 14 
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, 44te **=♦»♦»♦• f'ACHNO* .0000 FLAPO* 

.90 AILER0NQ3 .99 

.09 

ALT! TUOE-*»‘ 

A 

J 

K 

Y 

OY 

oc 

\J^ 









15 

3 

2.437+01 

3. 750+00 

U 719+00 










16 

3 

2+.813*0l 

3- 750^00 

1.406+Ou 

3.27 j+yj 









1 

4 

-2.813+01 

3. 750+00 

1.436 + Ou 

3,473*00 









2 

4 

-2.437+01 

3. 75^*00 

l.719*-ni> 

U.445+ Ju 









3 

4 

-2.062+61 

3. 750+00 

2.031*90 

7 . ui /*Oij 









4 

4 

-1.687+01 

3.750+00 

2.344+00 

o. 7oy+yy 









5 

4 

-1.312+01 

3.750*00 

2.656+Oy 

9,961+OU 









6 

4 

-9*375*0r> 

3, 750+00 

2.969*00 

1, 1L3*I>1 









7 

4 

-5. 625+00 

3. 75C+O0 

3.28l + Oy 

i « 









8 

4 

-1.875*00 

3. 750+00 

2,594+00 










9 

4 

1 .8T5*m 

3. 750*00 

3.594*00 

1.340+U1 









lf> 

4 


3.750*00 

3.281*00 

I.Z.>O*0i 









11 

4 

9.375*00 

3. 750+00 

2.96940U 










12 

4 

l.312*^l 

3. 750+00 

2.656+00 

V.9t>i*00 









13 

4 

1 .687*01 

3. 750*00 

2.344+Oy 

o. 7yy+i>y 









lA, 

4 

2.062*01 

3. 750+00 

2. 031+00 

7.oi 7+yy 










4 

2.437*01 

3.750*00 

1.719+00 

6.446+00 









16 

4 

2.813*01 

3. 75C*00 

1.406+00 

5.2?J*0y 









J 

K 

JiV 

YV 

zv 

xXV 

lYV 

UV 

AN 

YN 

ZN 

IXN 

LYN 

12N 

1 

1 

-9.375-01 

-3.000*01 

0,0<10 


9,981-01 

0.000 

-3,516-01 

-2 .8 13+ni 

9.000 

0,090 

O.POO 

1.009*00 

2 

1 

-1.172*00 

-2.625*ni 

o.oon 

-o- xlJ 0-04 


^,000 

-4.297-91 

-2.437*'U 

o.ooo 

n.noo 

0.000 

1 . 090*09 

J 

1 

-1 ,4n6*00 

-2.250+01 

n.cno 

-O. 2JO-02 

9.981-01 

0,000 

-5.078-01 

-2.062+01 

0.000 

o.noo 

0.000 

1 . 009*00 

4 

1 

-1.641*no 

-1.875+01 


-o, 436—1^2 

9.981-01 

0.000 

-5.8 59-ni 

-1.687*91 

o.noo 

9.000 

0,000 

1.000*00 

5 

1 

-1.875*^0 

-1.500*01 

9,00^ 

-O, 4.>6-U4 

9.9BI-01 

O.non 

-6.641-91 

-1.312+01 

0.090 

n.onn 

0.000 

1.090*00 

6 

1 

-2. 109 ♦0'' 

-1.125+01 

O.oro 

— O • 4 J b-Ox 

9,981-01 

0.000 

-7.422-91 

-9.375*00 

o.DOO 

O.Ono 

0.090 

1.009*90 

7 

1 

-2.344*00 

-7, 500+00 


-a, 4 ^o“02 

9.981-01 

0.000 

-8.2C3-91 

-5.625+00 

o.oon 

0.000 

0,000 

1.000*00 

a 

1 

-2.578+n-i 

-3. 750+00 

n,of>0 

-•O. 4>b-*u2 

9-981-3 1 

0.00^ 

-8.904-91 

-1.875+09 

o.noo 

o.oon 

0-900 

1.000*00 

9 

1 

-2.ai3+0‘> 

0* 100 

0.000 

o,4^a-04 

9.981-01 

0,000 

-8.984-^1 

1 .875+00 

9.090 

9.009 

0.900 

1 .900*00 

10 

1 

-2.570»OO 

3. 

n.oco 

o- 2Jb'*b4 

9.981-01 

0,000 

-8,203-ni 

5.625+90 

0.000 

o.noo 

9.000 

1.000*00 

11 

1 

-2. 344*00 

7.5on*no 

O.nnn 

O. x.>0— 04 

9.981-01 

0.000 

-7.422-01 

9.375*00 

0.000 

0-000 

n.ooo 

1 .000*09 

12 

1 

-2. lC9*0n 

l. 125+01 

0,090 

6.236-02 

9.981-01 

0,000 

-6.641-01 

1.312+91 

o.noo 

o.noo 

0,000 

1 . 000*09 

13 

1 

-1.875*00 

1.500*01 

o,ron 

l»m <.J 0-^04 

9.981-01 

o.noo 

-5.859-91 

1.607+91 

0,000 

0.900 

0,000 

1 . 000*09 

14 

1 

-1.641+00 

1.875*01 


6.236-02 

9.981-01 

0,000 

-5.078-01 

2.062+01 

0,000 

0.900 

0.090 

1.009*09 

15 

1 

-1.4'ie+oo 

2.250+fU 


6.438-04 

9. 981-01 

0.000 

-4.297-91 

2-437*01 

n.noo 

0.009 

a. 000 

1.000+09 

16 

1 

-1. IT2^00 

2.625+01 

0.000 

6, 4.>b-04 

9.981-01 

0.000 

-3.516-01 

2.813+01 

0.000 

0.000 

0.000 

1.000+09 

1 

2 

3.125-01 

-3,000*01 

(1 

4, 06^-04 

9.990-01 

0,000 

l.'i 55+90 

-2.813+01 

0.000 

0.000 

0,000 

1. 000 +00 

2 

2 

3.906-01 

-2.625+01 

0.000 

4. VJO J— O4 

9.998-01 

0.000 

1.289+09 

-2.437+91 

0.000 

o.nno 

o.ooo 

1 . 000*09 

3 

2 

4.6BB-01 

-2.250+01 

O.^'OO 

4. 0b.x~O4 

9.998-01 

0.000 

1.523+00 

-2.962+01 

0.000 

0.900 

0.000 

1.000*09 

4 

2 

5.469-01 

-l.075^Ol 

0,000 

2.063-02 

9.998-01 

O.OQO 

1.758*00 

-1.607+01 

0,400 

0.090 

0.000 

1.900*00 

5 

2 

6.250-01 

-1.5CO+01 

0.000 

4.06 ^-^04 

9. 998-01 

O.OQO 

1.952*00 

-1.312*01 

9. coo 

o.non 

O.OnO 

1.009*09 

6 

2 

7.031-01 

-1.125+01 

<^,000 

4. Oob— il4 

9.998-fll 

0.000 

2.227+00 

-9,3/5*90 

0,000 

0.000 

0.000 

1 . 000*09 

7 

2 

7.813-01 

-T.50C*flf» 

0-000 

2 . U63-02 

V, 999-01 

0.000 

2.461*90 

-5,625*90 

9.000 

0.990 

0.090 

1.000*00 

8 

2 

8,594-01 

-3. 150*00 

0.000 

2. 063-U2 

9.990-01 

0,000 

2,695*00 

-1.875*90 

9.909 

0.900 

0.000 

1.000*09 


7 

o . 

rt.Ortrt 



a. ooOwA 1 





“ 

■ “““r^ 

li 


i 



-4. 08 3-04 

9.998^1 

0,000 

2,227+no 

9.375*00 

0.990 

n.oon 

o.onn 

1 . 009*00 

12 

2 

7.031-01 

1.125+01 

0-COO 

-4,Oo3-04 

9.998-01 

0,000 

1.9 92*00 

1,312*01 

o.coo 

0.900 

0.000 

1.090*99 

13 

2 

6.250-01 

1.500+01 

o.roo 

-2.083-02 

9,998-01 

0,000 

1.7 58*00 

1.687*01 

0.009 

0.900 

0.000 

1.009*09 

14 

2 

5. 469-01 

1,875*01 

^.COO 

— 4 . Oti J -64 

9. 998-01 

0 .000 

1.523+99 

2.062*01 

0.099 

0.090 

0.090 

1 . 000*90 

15 

2 

4.688-71 

2.250*01 


— 4.00J— 04 

9.998-01 

0,000 

1.289*90 

2.437+01 

9.090 

0.000 

0.000 

1.900*00 

16 

2 

3.906-71 

2.625+ni 

O.roo 

-4»yo J-04 

9,998-01 

0,000 

1.055*00 

2.813*01 

0,000 

o.ono 

O.OOO 

1. 000 +00 

1 

3 

1.563+CO 

-3.CO0+O1 

0.000 

i ,0jc3-ui 

9,9A6-01 

0.000 

2.461+00 

-2.813*01 

0.000 

0.090 

O.OOQ 

1.000*00 

2 

3 

1.953+00 

-2.625+01 

r.ooo 

1 .03O-k)l 

9.9A6-01 

a. 000 

3.000*90 

-2.437*01 

0.009 

0,900 

0.000 

1. 000 +00 

3 

3 

2. 344*00 

-2. 250+01 

C.OOO 

4*030- L>1 

9.946-01 

0,000 

3.555*00 

-2.962*01 

0.000 

0,090 

0,000 

1.000+00 

4 

3 

2.734+00 

-I.tl5+Cl 

r,of*o 

i.U^o-oL 

9.9-*6-0i 

9.030 

4.102*99 

.6B7*DL 

0.090 

0.090 

0,000 

1.000*00 

5 

3 

3. 125+00 

-1. 500+01 

o.noo 


9.946-01 

a, 000 

4.648+90 

-1.312+01 

n.cno 

0.090 

9.000 

1. 000+00 

6 

3 

3.516+03 

-1.125+01 

n.oof) 

1.J3O-01 

9.946-01 

0.900 

5. 195+90 

-0.375*00 

9.999 

o.onn 

0.900 

1.090+09 

7 

3 

3. 906+00 

-7,5or**oo 

o.coo 

A.03<i-0l 

9.946-01 

0.099 

5.742*99 

-5.625*00 

0,009 

6.000 

n,o?n 

1.090+00 

a 

3 

4. 297+00 

-3. 

O.ono 

i..03i>-i}i 

9.946-01 

9.39'' 

6.289*99 

-1.875*00 

9.000 

0.000 

9.009 

1.090+09 

9 

3 

4.68 8+00 

0. <^00 

O.Ono 

-1.03O-01 

9.946-01 

o.om 

6.289*00 

1.875*09 

5. 000 

0.000 

9.000 

1.099+00 

10 

3 

4. 257+00 

3. (50*00 

n.non 

-1.03 6-01 

9.946-01 

0,0^>0 

5.742*00 

5.625*00 

9.090 

0.009 

0.900 

1.090+00 

u 

3 

3. 906+00 

7.50C+00 

n.ooo 

- 1 .0j6-01 

9.946-01 

9.000 

b. 155*00 

9.375*09 

0.000 

0.909 

n,oni> 

1 .909+00 

12 

3 

3. 516+00 

1.125+01 

0,000 

-i «046**0i 

9.946-01 

0.000 

4.648*09 

1.312*01 

0.001) 

0.000 

0.090 

1.900+00 

13 

3 

3. 125+00 

1.500+01 

n.oon 

-1 .oJo-ol 

9.946-01 

9.000 

4. 192*99 

1.687*01 

9.090 

0.000 

0.900 

1.090+90 

14 

a 

2.734+00 

1 ,875+01 

0.000 

-1.03 6-01 

9.946-01 

3.000 

3.5 55*00 

2.062*91 

O.COO 

0.000 

0.900 

1. 000+00 

15 

3 

2, 344*00 

2.250+01 

8.000 

-1 .03o-01 

9.946-01 

9.000 

3.098*00 

2.437*01 

9.000 

0.900 

n.noo 

1.090+00 

16 

3 

1.953*00 

2.625+01 

o.oon 

-I.O30-OI 

9.946-01 

3.000 

2.461+90 

2.813*01 

0.090 

0.000 

0.999 

1 . 090+00 
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6.3 EXAMPLE PROBLEM it 2. SIN6LE SURFACE ANALYSIS CAPABILITY (CONTINUED) 


1 

4 

2 .8l3*ei 

- 3 . 000*11 

o.ono 

1 .SA 3 -J 1 

9 . 329-01 

0.000 

3 . 867*00 

- 2 . 813*01 

0.000 

0.100 

o.ooo 

1 . 000*09 

2 

4 

3 . 51«»00 

- 2 . 625*01 

i^,.oon 

1 . 8 A 3 - 01 . 

9 . 829-01 

i.noi 

A. 727*00 

- 2 . 437*01 

0,010 

0.000 

0.000 

1 .001 + 00 

3 

4 

A. 219 *oo 

- 2 . 250*01 

o.r HP 

i A-Ul 

9 . 829-01 

i.'ino 

5 . 536 *i |0 

-2.062*11 

n.no 

0.000 

o.ooo 

1 .000 *11 

A 

4 

4 . 922 *oo 

- 1 . 875*01 

O^^nn 

l.B+J-Ul 

9 , 829-11 

i.noo 

6 .AA 5 +C-) 

- 1 . 687*11 

0.000 

0.000 

O^'^oo 

i.ono+01 

5 

4 

5 . 625*01 

- 1 . 501*151 

O.'ipp 

1 .O'tx-ul 

9 . 829-01 

'.<•000 

7 . 3 O 5 *O 0 

- 1 . 312*11 

o.rco 

0.010 

o.ooo 

1 . 900*01 

6 

4 

6 . 328*01 

-1 . 125*01 


1 .OSX-lJl 

9 . 329-01 

0.000 

8 , 16 A +00 

- 9 , 375*00 

0, no 

0.000 

0.000 

1 .100*01 

7 

4 

7 . 031*01 

-T, 500*00 


i * ji '' 1/ L 

9 . 329-01 

■1 .in 

9.023 + 1 '- 

- 5 . 625*00 

1.000 

1.000 

n.ooo 

1 .0')0 + 11 

6 

4 

7 . 7 JA* 0 o 

- 3 . 150*00 



5 . 329-01 

1.0 no 

9 . u 83 *on 

- 1 . 975*10 

0.000 

O.ooo 

O.POO 

l.oooni 

9 

4 

8 . A ie*’'o 

1 , oop 

O.oan 

-1 • 04 J-Ul 

9 .o 2 9 -'U 

1 .001 

9 . 883+01 

1 . 875*10 

o.flOO 

0.100 

O.OPO 

1 . 110 + 1" 

10 

4 

7 . 73 a* 0 'i 

3 . 750*00 


“1 * 04 0- VI 

9 . 329-01 

■1.100 

9 . 023+00 

5 . 625*00 

o.ooo 

0,000 

n.oo^ 

1 .O0O+01 

11 

4 

7 . 131+00 

7 . 5013*00 


- 1 ♦ 04 J “|«7 1 

9 . 829 -<)l 

0 .10'' 

8 . 16 A +10 

9 . 375*00 

1.000 

0 . no 

o.oon 

1 .0')1*11 

12 

4 

6 . 32 fl*oo 

1 . l?S*')l 

o.r''P 

-1 • 04 J-C/i 

9 . 629 - 11 

0,100 

7.305*01 

1 . 312*01 

1.010 

0,000 

n^ono 

1 .111*10 

13 

4 

5 , 625 * 0 ') 

1 . 500*01 


* i * o«* J — u 1 

9 . 829-01 

.1.010 

6 . AA 5 +'>fi 

1 . 687*01 

0.000 

r.lin 

0.000 

1 . 110 + in 

LA 

4 

A. 92 2 * 0 -) 

1 . 875*01 


- 1 #o 4 j- 1>1 

9 . 829-01 

1 .001 

5 . 5 « 6 *o 0 

2 . 162*01 

0.000 

0.000 

o*ono 

1 , 101*11 

15 

4 

A .2 19 * 0 ) 

2 , 250*01 

o.r 

- 1 . 04 

9 . 829-01 

n ,m 1 

A. 727+00 

2 .A 37 *oi 

1.011 

0,100 

n.ono 

1 .010+11 

16 

4 

3 . 516+01 

2 . 625*01 

o.oon 

-l* 04 j“ul 

9 .B 29-' 1 

0 .001 

3.8 67+00 

2 . 813*01 

■1.000 

O.lflO 

0*00^ 

1 ,')ii*ni 
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VALUE 1 C 16 1 A P 1 p V 4 lFA= j, 03 KACnNU' , 2 ;'no FIAPD- 3^.00 AILEBOND= 11.00-15.0') ALT I TUDf = ♦*♦♦♦♦ 6 


LIU UISTRIHUTIUN DhTAlL 

********<*************** 


4 

K 

P< xt 

PI VI 

PC 7> 

At\C M 

CPN 

G(K1 

6t Y) 

cm 

VI IXI 

VIIVI 

VI il\ 

GAPA 

1 

1 

-1.055 

-ZB. 125 



1.3Z7d 

,10852 

."'life 

.99C82 

-.10390 

-.00161 

101 74 

-• 9909*01 

1 

2 

.352 

-Z8. 1Z5 



.3Z12 

. HJ97A 


.9933A 

-.112 71 

-.00383 

.04741 

-.2273*10 

I 

3 

1.758 

-28,125 

.000 


'.0919 

.ISIZI 

-,00315 

.99150 

-.11017 

-.00011 


. 6982-01 

i 

4 

3.155 

-Ze. 125 

-.070 

J.4./ J*T 

-.674^ 

.n7A8 

."^2804 

.97888 

-.11176 

-.00031 

-.ozieo 

.9762*13 

2 

1 

'1.28*1 

-ZA.375 


<**t**'jj 

1*9113 

.27112 

. ■‘1694 

.98863 

-.10619 

.10695 

-.18449 

-. 1658*01 

z 

2 

.^3'^ 

-2A.3T5 


O. 44>.^ 

, 473rt 

.15538 

- .00115 

.99192 

- . 10518 

-.11127 

.03176 

-.9108*01 

z 

3 

Z.iAd 

-2A.375 

.orj 

4i. 4** llJ 

-.09 7‘j 

.1AH9 

-."‘0419 

.99112 

-.01191 

-.01159 

.04675 

.8913-01 

2 

4 

3.853 

-2A.375 

-.111 

a. 

-.9292 

• 1270 3 

.r?447 

.97831 

-.10219 

-.01716 

',04174 

. 7159*11 

3 

1 

-1.523 

-20.625 

*OP(i 

/* OL Jr. 

2.7622 

. A1H91 

,0261b 

.98731 

-.11G63 

,15067 

33Z56 

2836*01 

3 

2 

.50d 

-2'). 625 

.''Ow 

7,ul7^ 

,6144 

.173A6 

-,''0153 

.98927 

-.105B8 

. 13973 

,0136a 

-.6317*01 

3 

3 

2 .539 

-2". £25 

* rin^ 

/.ui. 7.L 

-.0922 

.12A38 

-.00254 

.98661 

-.11223 

.11929 

*06264 

. 9935-01 

3 

4 

4. 5b 5 

-2". £25 

-.074 

/. Oi Jr. 

-*S9bl 

.15A91 

- *05006 

.97 J36 

-.10151 

.01329 

.0313"! 

.6189*10 

4 

1 

'1-75 3 

-16.875 

*00u 

u. 7o9i 

1.043d 

.13108 

.'^0194 

1.01915 

.00983 

.081 52 

*05601 

121.3*01 

4 

2 

. 5tio 

-16.875 


o« /oVi 

l*3b4l 

-.11785 

,O^0lb 

1.00239 

.10762 

.05801 

-09501 

-. 1232*01 

4 

3 

2.93^ 

-U.e75 


4>. Jo^i 

1 . 2 399 

-.1)719 

."rr T5 

l.'‘C192 

.11391 

.03621 

.09439 

-. 1999*01 

4 

4 

5.ZZ5 

- 16. B75 

- 23^ 

0 . lo^i 

1.7737 

-. 1A609 

-.09182 

.97910 

-.IO 3 IH 

-.02713 

.23280 

2089*01 

5 

1 

-1.942 

-13.125 


9. 9009 

1. 401t? 

. 188 1 1 

*ro55l 

1.00628 

.C09AO 

.19291 

-.00113 

1896*11 

5 

2 

.664 

-13.125 



U14J0 

-.''1355 

• cror? 

1.1067A 

.01129 

.32523 

*09070 

-, 1506*01 

5 

3 

3.32P 

- 13. 125 

. OPj 

V. 

1.3299 

-.12116 

."•0220 

1.1175A 

.12737 

.10497 

, IP343 

-. 1725*11 

5 

4 

5.8H8 

-13.125 

,33.. 

9. yuot 

2.163 7 

21911 

-•05619 

.9786A 

-.00911 

-.05307 

.sosoo 

2886*11 

6 

1 

-2.227 

-9.375 

. 000 

A 1, i .><.0 

l.6 60<. 

.13176 

,00817 

l.T 0A33 

.30822 

.12996 

-.04386 

-. 2935*11 

6 

2 

. 742 

-9.375 


X i. i.>4.0 

1, 1&34 

.11565 

- , ^0012 

1.01691 

.11128 

.01 716 

.08151 

-. 1715*11 

b 

3 

3.U1 

-9,375 

,0(\o 

xl. 1.1 A.O 

l*2b9:> 

-.1211A 

.00219 

1.01875 

.12821 

•10125 

,1083ft 

1038*11 

b 

4 

6.56P 

-9. 375 

. 371 

X X. 1.1x0 

2, 1333 

-.22A6A 

-.05500 

,97573 

-.?mi 

-.19135 

.31192 

-.3191*11 

7 

1 

-2.461 

-5, £25 

..■>00 

lx. 7 

1.619* 

. 12925 

* ooBoe 

1.00A69 

.10890 

.13291 

-,04234 

-.2639*01 

7 

Z 

.82'^ 

-5.625 


XX. 

1,146* 

.•1D319 

-.nn''07 

1.01723 

.11175 

.02309 

*ft8396 

-.1866*01 

7 

3 

4. 1^2 

-5. £25 

*00o 

1Z..104/ 

1.233U 

-.12213 

* rvtzz^ 

1.11816 

.12871 

.11185 

4 10940 

-. 2113*01 

7 

4 

7.273 

-5. £25 

,41U 

lx. Jii4/ 

2. 1 Jb • 

-.Z2lo7 

-.05523 

. 9731 A 

-.00957 

-.12-177 

.31074 

-.3536*11 

8 

1 

-2. 645 

-1.875 

* nrsj 

1 J. 4?0o 

1.3190 

.16572 

,00411 

l.o0fZ5 

.11069 

.11801 

.02131 

-.2352*11 

8 

2 

*898 

-1.875 


U. H / <jo 

1.1612 

.11127 

-.ocool 

1.11839 

.31265 

,11376 

,08t>88 

-. 2169*11 

b 

3 

4.492 

-1.875 


4 -.3* 4 Zoo 

1 . 32b2 

-.11313 

*00137 

1.11972 

.12985 

,11782 

. 10036 

-.2329*11 

b 

4 

7.966 

-l.£75 

*44-» 

1^*4 / <JL^ 

2 - I70.i 

-.21373 

t5o59 

.9738') 

-.10682 

-.10857 

.3038'^ 

3937*01 

9 

1 

-2.695 

1.8 75 

.OPJ 

4 J.H 7ciO 

1,3423 

. 169 1 1 

-.00432 

1.0 0608 

.11081 

-.11657 

.'’1 792 

2393*11 

9 

2 

.898 

1.875 


13.4 7oi> 

1, 169 J 

.lip 7 9 

.Ono'ii 

1.01829 

."1257 

-.11951 

-08637 

-.2083*11 

9 

3 

4 .492 

1.8 75 

, or j 

i J.n 7l>o 

1.3301 

-.ni29A 

-.^0135 

1.01933 

.12978 

-.01083 

,10017 

-. 2332*01 

9 

4 

7.9b6 

1.875 

. 44 7 

X 4 7 00 

2. lo77i 

-.212A5 

,05662 

.97198 

- ,01711 

-.01163 

.30346 

-. 3939*01 
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VALUE I 0 16 O 1 A '■ 1 6 , >.00 pAC.INC- .eop'’ FLAPD- 3'i.OT AILERCNO- 10.00-15.00 ALT I TUUfi = ♦♦♦♦♦♦ T 


J K PIXI P(YI 

10 1 - 2 .Aol 5. £25 

10 2 .tS 20 5 .L 25 

10 3 A . 102 i .£25 

TO A 7.273 5.625 

11 I - 2.227 5.375 

11 2 . 7 A 2 9.3 75 

11 3 3 . 711 9.375 

11 A 6 . 58 ) 9.375 


12 1 - 1.952 13 . 125 

12 2 .66 h 12.125 

12 3 3.321 13.125 

12 A 5 . 88 B 13.125 


13 1 

13 2 

13 3 

13 A 


- 1 . 75 M 
,586 
2 . 93 " 
5 .219 


16.875 
16.675 

16.875 
lb . 873 


lA 1 
lA 2 
lA 3 
lA A 


- 1 .SZ 3 
.508 
2.539 
A. 557 


20 , 625 

21. 625 

20.625 

20.625 


15 1 - 1 . 2 U 9 2 A .375 

15 2 .A 30 2 A . 375 


P<£1 


CPA 

G1 At 

G( Y| 

GI Z ) 

,"')o 

x2. .>J4 / 

1 .l.'jl 

. 19''-61 

11879 

l.f "A33 

. II 0 

1^4 JJ4 7 

i.ir/i 

. 11997 

. -ir 0 1 1 

1 .'■0692 

. H’vl 

Xx* >Ot f 

1 .2671 

-."2129 

-."1222 

1.11759 

.9lj 

ix, J J4 7 

2. 132'J 

-.21999 

."553b 

.9 7-J62 

. ')')» 

1 i • L^CO 

1 .831" 

, 15552 

-. 1''972 

1.11361 

■ ')1> 

i 4 , x>^o 

1.216/ 

."1H6 

.If 121 

1. 1062 2 

. 11u 

i. i ■ i ,>xu 

1.2826 

-.11862 

- . 1 19 A 

1.'’! 7b8 

. 37> 

XX, i^xc* 

2. 12/5 

22111 

. 15529 

.97216 

. 11./ 

*#* 4tpx;y 

l.BObA 

. IA 088 

- . ')3918 

I.1C1910 

. ""u 

y- Vy b’/ 

1.2385 

.11793 

.I'm 7 

1.11573 

.li> 

V. x> » 

1.3232 

-.11739 

- , 1"181 

l."l£93 

.33^. 

y. yy^y 

2.191;/ 

-.21311 

.i':569 

.97391 

.iij/ 

0 . 7oV i 

1 .7301 

,13515 

-.1)189 9 

1.11983 


0 - Jo'ii 

1.216/ 

.••33799 

. miT 

1.11 315 

. 11 u 

0 , / oyi 

1.282 

-.''1112 

- . )1 11 5 

1.-1027 

.267 

0 , 7uVx 

1 .963r. 

1871 3 

. '71AJ 

.97'<1 1 

. I' b 

7.4i7x 

2 .9 35 • 

.29151 

'1822 

.95539 

. 

7. ox 7x 

1.0 37 7 

.■)9128 

. "1186 

.99699 

. 1')J 

7* 01 7x 

. / 2 > .1 

.1)196 

. If 12" 

, 95599 

.119 

/« Oi /x 

. ') 799 

-.19707 

.35259 

. 97719 

. oij 

i>, 445 J 

2. ."229 

.22991 

- . " 1 A." 6 

.99512 

. 11., 

0 . 44?.> 

.9A9-, 

."3329 

. If "69 

.99626 


6-26 


V!(*l 

VI I Y! 

VH2) 

GAPA 

."1811 
.11195 
.'!2HA5 
-. mzi 

-.13168 

-.02992 

-.11537 

.10951 

-.05372 

.18219 

.11856 

.31953 

-.2/73*11 
-.1911*11 
-. 2032+H 
-. 3593*11 

."0758 

."1063 

.■12769 

-.11122 

-.12875 
-.11896 
-, 11625 
.12591 

— .1 68b 7 
.07719 
.11588 

. 319/9 

-.2/.03HI 

1795*11 

1861*01 

-.3193*11 

,11775 
."1123 
. " 2 6 86 
-.'1152 

-.03381 
-. 32138 
-.'>0597 
.135)2 

-.061"1 

.17922 

.K’959 

. 31577 

2385*11 
1635*11 
1 7 19*11 
2572*11 

.11731 

.11796 
.11976 
- .:'1921 

-.15286 
13768 
-."2193 
. 12739 

-,"9U lb 
."/921 
.19329 
-27965 

-. 2122*':i 
-. 1921*01 
-. 1982*11 
-.2321*11 

-.11196 
."3119 
.33658 
- ."1552 

-.19161 

-.12813 

-.11385 

."2129 

-.21991 
,19 58b 
. 185 19 
. 1 9'. 99 

2981*01 
105 7*11 
7362*0 
1111 ♦01 

- ."1105 
.09138 

-.01967 
-. 019 07 

-.13919 
,0 5386 

-. 1793*01 
dl99*in 
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6.3 EXAMPLE PROBLEM j> 2, SINGLE-SURFACE ANALYSIS CAPABILITY (CONTINUED) 


15 

3 

2.148 

24.375 

• npu 

0.4453 

.6917 

.00864 

. 00090 

.99439 

.00294 

.00605 

.07847 -.5946*00 

15 

4 

3.861 

24. 375 

.073 

6. 44 53 

.8318 

-.06429 

.02005 

.98029 

-.00353 

.02554 

*.15173 —.7167*00 

16 

1 

-1.055 

28. 125 

.000 

5. 4734 

1.4994 

.15883 

-.00993 

.99432 

.00125 

-. O1310 

-.07198 -.1056*01 

16 

2 

.352 

28. 125 

.OPJ 

3.2734 

.7532 

.02289 

.00048 

.99731 

.00140 

-.00333 

.06426 -.5309*00 

16 

3 

1.758 

28.125 

.000 

3.2/34 

.5929 

.00547 

.00057 

.99454 

.00297 

.00725 

.08165 -.4169*00 

16 

4 

3.160 

20.125 

.052 

5. t /34 

.7185 

-.05405 

.02202 

.98285 

- .00088 

.02528 

.14133 -.5052*00 


S£CTIC^ LIFT COEFFCIENTS 

*♦♦*♦»**•♦***••**••*•»•• 


2T/H 

Y 

L 

6LL 

SClC/b 

DLIFT 

SCM( c/4] 

-.9375 

-2B.125 


.2257 

.0212 

-0079 

.1592 

-.8125 

-24.375 

u.o7:> 

. j818 

.0436 

.0164 

*2064 

-.6875 

-20,625 


. /3^a 


.0373 

-2109 

-*5^25 

-16.875 

9.3/5 

1.2801 

.2000 

.0750 

-.3138 

-.4375 

-13.125 


1.5128 

.2679 

.1005 

-.3603 

i ^ 5 

6 7 8 

9 10 tAAHPLt. PRUbLEM NC. 2 

- SINGLE 

SURFACE an. 

lb 0 1 

4 0 1 

r •* al*-a9= 

5.00 

PACHNQ3 , 

2000 FLAPD= 30.00 

2 Y/e 

V 

c 


SCLC/6 

DLIFT 

SCHI C/41 

3125 

-9.375 

ll.<,7a 

1.5560 

.3080 

.1155 

-.3400 

-.1075 

-5.625 

13.1.-5 

1. 5411 

,3371 

.1264 

-.340 3 

-.062 5 

-1.875 

14. 3 /> 

1.4982 

.3590 

. 1346 

-.3652 

.0625 

1.B7S 


1.5059 

. 360 8 

.1353 

-.3641 

. 1B75 

5.625 

13.1^5 

2.5699 

.3434 

.1268 

- .3375 

.3125 

9.375 

11. 0/5 

1.6155 

.3197 

.1199 

-.3326 

.4375 

|3.125 

10.425 

i«o2B6 

.2884 

. 1082 

-.3392 

.562 5 

16.875 

•i.il-J 

1.5505 

.2423 

-0<iO9 

-.3139 

.6875 

20.625 

d. ic;:j 

1.3050 

. 1767 

,0663 

- ,0965 

.8125 

24.375 

O.U/5 

1.1281 

.1293 

.0485 

-.0910 

.9375 

28.125 

5 « 'J 

.0927 

.0837 

.0314 

-.0088 


iXL 

-.2090 

-.2882 

-.9021 

.0988 

,0950 


IVL 

. 0039 
.0078 
.0351 
.0319 
.0188 


IZL 

-.9779 

-.9575 

-.9199 

-.9983 

-.9977 


JOBFLXG 1 
VALUE 1 


I 1 
12 
13 
19 
15 


AILEftONI)= 10.00-15.00 ALTI TUDE-****** 


IIL 

.0978 

,0989 

.0679 

.0660 

.0922 

.0327 

.0351 

.0239 

-.1265 

-.0975 

-.0616 


IVl 

.0167 
.0171 
.0199 
.0197 
. 0167 
. 0156 
. 016C 
.0207 
.0018 
.0023 
.0005 


UL 

-.9987 

-.9987 

-.9975 

-.9976 

-.9990 

-.9993 

-.9993 

-.9995 

-.9920 

-.9952 

-.9981 


****** 


LmjR.^6lSe PREiSOne CISTRI8UTI0N OHTAIL 

************* CHORD STATION IX-XLEI/C ♦♦*•**♦*♦ 

.inon;i ..auuti .30000 .40000 ,5O0<'0 .60000 .70000 


«**««**•** 


2Y/B 

SCL ♦ 

» « 4 4 « 

» 4 » ♦ 

4 4 4 4 

-.93750 


-CCOOO 

1. 1472U 

« 

-.81250 

.372 76 

.00090 

l.6543> 

1. U1253 

-.68750 

.69553 

.roono 

2.3018U 

i.4^tia.> 

-.56250 

1 .26758 

.COOOO 

1.05079 

1, 66378 

-.43751 

1.49499 

.rjoooo 

1.36325 

1 . flO 4> / 4 

-.31250 

1.5417C 

.00000 

1.57349 

i. 

-. 18751 

1. 52661 

.OOOOO 

1.54483 

|.^44i>J 

-.C6250 

1.47994 

.ncooo 

1.3^16/ 

i,^474^ 

.06250 

1,48758 


1.32153 

1 .2u6 /5 

,18751 

1.55654 

.ooooo 

1.61640 

1 . 55604 

,31250 

1.60371 

.orooo 

1.73140 

i .**7 V 

.43751 

1.61626 

.oooon 

1.71431 

1.47ol>4 

.56250 

1, 54065 

.coooo 

1.65210 


.68750 

1,30395 

.noooo 

2. 1934s 

1. 50006 

.81251 

1 . 12801 

.00000 

1. 03631 

k m 

.93750 

.89240 

.00000 

1.37075 

1.64510 

(EOF PLOT 

^ TILE S Z 

FILE 2)* 

= cnoRDWisv: PTmssuEi 
(yOm*EX^lATPJCE 

JOBFIAG 1 

2 3 4 

5 6 7 

8 9 lU 

bXMrtPi 

value 1 

0 16 0 

1 4 « 

10 4 

Al(-4- 


.80000 .90000 1,00600 

************* 


.35283 
.51954 
.68589 
I .05 704 
1.15630 
1.18521 
1.16737 
1.17273 
1.16122 
1,19584 
1.24273 
1.26257 
1.23849 
1,08733 
.98329 
.77990 


. 16668 
.248 24 
.26519 
I ,03363 
1.06851 
1.042 15 
1 .026 16 
1.08654 
1.092 75 
1 .04465 
1.07424 
1.10782 
1.09829 
.78122 
.74549 
.61449 


.0344 2 
.06495 
.04147 
1.09592 
1.13271 
1,07302 
1.06334 
1.13702 
1.1420 8 
1.07727 
1.09775 
1.13857 
1.12230 
.68276 
.66446 
.563 7 7 


-.20002 
-.23406 
-.19268 
1.37696 
1.51927 
1.45926 
1.44846 
1.51517 
1.51807 
1.45764 
1.469 73 
1.50812 
1.44227 
.78758 
.73445 
.63191 


-.52180 
-.63718 
-.47385 
1. 76307 
2.07141 
2.02268 
2.01846 
2.07175 
2.07118 
2.02099 
2,02303 
2.05036 
1.90 8 8 9 
.98184 
,86575 
.74796 


-.67879 
-.83396 
-.60139 
1.79613 
2.17831 
2. 14759 
2. 14 869 
2.18523 
2. 18224 
2. 14628 
2.14143 
2.15590 
1.98277 
.99991 
.85238 
. 73675 


-.46203 
-.56809 
-.4062 7 
1.12427 
1.37405 , 
1.3 5966 
1.36166 
1.38017 
1.37772 
1.35896 
1.35431 
1.36009 
1.24683 
.62768 
.52803 
.45646 


.ooono 
.00000 
.00000 
.00000 
.00000 
.oooon 
,00000 
.OOOon 
.00000 
.00000 
.00000 
. 00000 
.00000 
.00000 
,00000 
. 00000 


i.OO FACHNO- .2000 FLAPO= 30.00 AILEROND= 10.00-15.00 ALT I TUDE 


SPANkIaE section lift OlSTPteUTtQN DETAIL 

************ ******* ************ ********** 


kITH LL SUCTtUN 


NO LF SUCTION 


FLAP7A1LERUN 


-30.000 
-28.500 
-27.000 
-25. 500 
-24.000 
-22.500 
- 21.000 
-19.500 
-18,000 
-16.500 
-15.O0C 
-13.500 
- 12.000 
-10.500 

-9.000 
-7.500 
- 6.000 
-4. 500 
-3.000 
-1.500 

-.000 

1.500 

3.000 

4. 500 

6.000 

7.500 

9.000 

10, 500 


2V/0 

■l.OCCOOP 

-.9S00P0 

-,9C<'OO0 

-.850000 

-.BCOOOo 

-.750000 

-,7COFOO 

-.65CO0C 

-.600000 

-.550000 

-.500000 

-.450000 

-.400000 

-.350000 

-.300000 

-.250010 

-,200000 

-.isroop 

-.100OO1 
-.050OC0 
-.opon»'o 
.050000 
. lOOOOO 
.150000 
.270000 
.250000 
.300000 
.350000 


SCL 

.OQOfiOO 
,211350 
.262320 
.31992 0 
. 392975 
.494723 
.646929 
.865756 
1.110079 
1.309 547 
1.426180 
1.485347 
1.517628 
1.535604 
1.542 580 
1.540784 
1. 530501 
1.512358 
1.491912 
1. 4T7241 
1.474079 
1.483564 
1. 505680 
1.534 92 6 
1.563015 
1.58466 5 
1.6C0502 
1.611 605 


Slp 1 

■ Oulij JD 

,U2l09^ 
.033921 
. J99784 
, ^ULUVT 
.245947 
. 1443 03 
.047/16 
,201715 
• 2403 ail 
. i.3 M 34 
.21/359 
.211044 
.200399 
.206790 
. 2WO-J99 
.2L30O3 
.4.^3130 

..;3313d 
.233541 
.23184/ 
.222342 
.210333 
. 2uOo 75 
. l930ol 
. 1937 /3 
.192201 


.OOODOQ 
. 157826 
. 163420 
.1/9243 
.218600 
.264024 
.238232 
.072602 
■ .166 264 
-.342695 
-.3878 15 
-.363598 
-.340768 
-.335373 
-.335356 
-.333884 
-.334714 
-.34204 3 
-.353260 
-.362353 
365161 
- ,361480 
-.35189 1 
-.340097 
-.331385 
-.328312 
-.328111 
-.327940 


SCL 

SCDI 

SCMIC/4) 

FCN 

FCX 

FCH 

-100000 

.OOOOCO 

•OOPCCO 

.000000 

.000000 

.000000 

,255351 

,021873 

.1699 23 

667522 

.065703 

.166BB1 

.304245 

.02 7894 

. 174946 

-.697576 

.047773 

.174394 

.379079 

.034834 

.1955C8 

-.752306 

. 115413 

.188077 

.513978 

.043915 

.251866 

-.863516 

.099693 

.215879 

.712633 

.15 7C87 

.323933 

-.954174 

,054842 

.233544 

,919462 

-077707 

.313158 

-.735714 

.030169 

.183928 

1.0 78 728 

.108530 

.131153 

.044270 

.173504 

-.011067 

1.192642 

,145766 

-.143566 

1.111887 

.174742 

-.277972 

1,293113 

.182 199 

-.347213 

1.924460 

.294011 

-.481115 

1,394953 

.211302 

-.396400 

2.20 2364 

-39B99T 

-.550591 

1.479298 

.227870 

-.365261 

2.181211 

.4 72546 

-. 545303 

1 .526280 

.227974 

-.338389 

2,132749 

.5<!2063 

-.533187 

1.54inif* 

.217465 

-.333886 

2.128010 

,49947? 

-.532002 

1.541399 

.217 196 

-.335661 

2.134788 

.489267 

-.533697 

1.538536 

.204129 

-.334502 

2,133996 

.486293 

-.533499 

1,530 064 

.207 580 

-.334834 

2.133683 

,486540 

-.533421 

1.512993 

.215817 

-.341069 

2.143509 

.464450 

-.535877 

1.492323 

.225626 

-.353167 

2.160066 

.479833 

-.540017 

1.4 77140 

.233037 

-.362331 

2.1T3242 

.475508 

-.543310 

1.473834 

.235250 

-.365228 

2.176532 

,473209 

-.544133 

1.483489 

.231758 

-.361501 

2, 170549 

.4T337T 

-. 542637 

1.505925 

.222633 

-.351824 

2.157114 

.476057 

-.539278 

1.535278 

.210748 

-.340001 

2.14145B 

.479846 

-.535365 

1,562794 

.200 400 

-.331449 

2. 13D541 

.482603 

-. 532636 

1.583 492 

. 194 469 

-.328635 

2.127422 

.483403 

-.531856 

1.599889 

,193047 

-.328280 

2,127567 

.4E3683 

-.531892 

1.614407 

.195589 

-.327170 

2.126671 

.484741 

-.531668 
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6.3 EXAMPLE PROBLEM i 2. SINGLE SURFACE ANALYSIS CAPABILITY (CONTINUED) 


12 .con 

.4P0000 

1.617052 


-.329650 

1.021535 

.198 772 

-.32851 7 

2.130055 

.585090 

-.532515 

13. 50“ 

.450^00 

1.615B68 


-.337517 

1.611735 

.19705L 

-.333279 

2. 157656 

.577286 

-.536915 

15,000 


1 . 509256 


-.355630 

1.503082 

.190016 

-.359077 

2.159363 

.555058 

-.537351 

16. 500 


1.557017 

• ioo^ 7> 

323670 

1.5585"5 

.176166 

326010 

2.027192 

.358729 

-.506790 

Ifl.Of 0 

.brc^'f'r 

1.57721 1 

« Lsjoi 

-.«:535He 

1.520269 

.15 7898 

-.238651 

1.6860X5 

.253753 

-.522005 

19.500 

.6t>r‘C^>o 

1,375936 


-.152 782 

1.590 no/, 

. 138966 

-.121522 

1.255076 

. 1 70199 

3U569 

2 1.900 


1.2B3082 

-• Uoij7 if 

-.085713 

1.530798 

.125210 

-.051903 

.920555 

.000987 

-.2301 39 

22. 5fiC 

♦7500^0 

1.212552 


-,OT23n 7 

1. 357526 

.115552 

-.032520 

.819186 

.051587 

-.205797 

25.00,0 


1. 15632 7 

U4. 1.10 4. u 

-.087016 

1.2 55655 

.in9213 

-.056962 

.820528 

.053268 

-.207107 

25. 500 

.U^cr*r 

1 . 065559 

« 

-.096557 

1.155708 

.101 167 

-.075685 

.821118 

.055592 

-.205280 

27.000 


. 569372 

• Ui.oVip:> 

-.095155 

1.029906 

.09^885 

-.077502 

.770320 

.057531 

192560 

2 B. 500 


. 866550 

» U.L J'V 1 '/ 

-.086750 

.913553 

.079632 

-.073852 

.730636 

.026 763 

-.175159 

33.000 


. onorOO 


.OOOxOO 

.non 060 

.000000 

.onor/'n 

.000000 

.ociOOO 

.oonn^o 


ItOf PL at FItE 3) " — 'FILE S S = LIFT, lEWCKD DRAG, ASD PITCHIRG m&'NT SECTION COEFFICIENTS 

(VORTEX-LATTICE SOLUTION) 


JOBflAli 12 3 

VALUE I 0 In 


5 6 r 6 V ij 

I i, n I o 4 


LAtMPi-L PKObltM NL. 2 - SINGLE SURFALE ANALYSIS CAPABILITY CEHONSTRA TION PAGE 

ALFrt- 3.00 PALrihGi .2000 FLAP0= 30.00 AILERONO- 10. 00-15, OO ALT 1 TOOE 10 


«ING AIPLLAD COEFFICIENTS 

*AA«»*«** 4 A** *«»**»*«« AAA 



kCL 

hCUI 

itcnF 

hCPH 


IXL 

lYL 

IZL 

DEL TA 

SCALE 

klTH LE SUCIinN 
NO LE SUCTION 

1.32953 

1.39753 

.13547 
.2 15y„ 


.05229 

.05171 

--0’)02H 

. 015089 
.066015 

. oocooo 

-,sss9ru 

-*9S7ai9 

-4971+35 

-1661-'^! 


A DIVIDE CHECK AT C51A2S 
A divide check at 051525 


/ 


OK TO IGNORE 


SCLunUN MITH LE SUCTrON 

«( «« «*#«»»»««. *9 «««***«*«4r 


ALFA 

alFako 

wCL 

WCL 

SLOPr 

CMP 

sllpe 

CMP 

SLUPE 

5. con 

-il.Of 

1.3294 

. D7BB6 

,oon22 

. 00'^04 


V 

2V/8 

sclai 

SCLB 

SCL 

SCMI 1/51 


-i. jjuin 

-OoOt’O 



.00000 

-2U-UJU 

-.93A33 

.yiae*. 

-.99">7H 

.2=049 

.15013 

-2<>*.0wu 

~ - oooo 7 

l .C -414 

-l.f^33^V 

. J01B4 

. 16816 

-24- 

--ttUjQO 

l - “iu4 36 

-1.01915 

.395U4 

.21579 

-22.0^0 

/j^j3 

1 .0^5^>2 

-.90133 

.54179 

.25683 


-* coc«6 7 

1 .vim 

-.64442 

- 7U630 

. 12275 

- 1 6»U\/ J 

--C.UJOO 

k 

-.29947 

1 .l'^3^4 

-.19570 

" 16 . 

— • j 3 3 

l.Of U2 

-.^>3H79 

1.34531 

39282 

- 14*5/Cu 

— . Voo6 7 

i -0^89b 

.07693 

1.44814 

-.37730 


CMY 

00005 


JUBFLAG 1 2 3 ^ 

value 1 0 16 0 


5 6 f b 5 iu 

1 4 ‘Y 1 r- 4, 


la^HpLi: PKCt LL^ NL. 2 - SINGLE surface ANALYSIS CAPABILITY DEMONSTRATION PACE 

«LFA- J.O) MACFN(J= .2'''T0 FLAPD= 30, OO AlLE«ONU== 10.00-15.09 ALT I TliDE =♦*•*•* 11 


1 


^.yy 6 

SCLAX 

SCL 8 


SCL 

SCMI 1/51 


- 12 . 

,KjJO 

-• f 

l.P:5l43 

.13590 

1 . 

740624 

-.33519 



.L/JU 

— b 1 3 

1 . 1 4 7 Z 

. 1 7855 

1. 

r42754 

-.32886 


-y. 

. J V V 

-* 4.oufi7 

b9‘ii54"* 

.20737 

1 ( 

b530B2 

-.31650 


- 6 . 


-• 'IC 

.9720^5 

.22u77 

1 

-419J4 

-.3^583 


-4, 


l 

-93920 

.25520 

1 

*49391 

-.32902 


- 2 . 

ts)V5j 

— . Ooutj 7 

.4 bui 

.26150 

1 

,46944 

-.36917 



> UkjU 

-.yjjro 

-B-J622 

.27103 

1 

,4oZ49 

-. 30720 


2 . 

t JyJO 

• 0006 } 

-9 *675 

.27261 

1 

,47007 

-.37155 


4. 

, Ui.7 J 

• j j 


.26758 

L 

.41317 

-.32912 


6 , 

t 


-96977 

.26226 

1 

b 5 4 1 4'“' 

-.30330 


u, 

1'', 

> u Ju 

• ^5>o 6 / 

.9 /244 
i.pim 

,25959 

.25239 

1 

1 

-47897 

.496a6 

-.31719 

-.33131 

ORIGINAL PAGE IS 

12. 

I UnPW 

• f 

1.02966 

.2 3c58 

1 

-u0544 

-.32956 

If. 

16. 

1 iJ jsi 
1 OnmU 

. 4uuCs f 
• 4 ^ j .1 3 

1.^42^2 

1 

.21569 

.16639 

1 

1 

,49999 

-4(f239 

-.35663 
- .35687 

OF POOR QUALITY 

lu. 

* J ^ b 

. 

l-r,> T6j 

.05/86 

1 

-4o749 

-.26597 


20. 


« Ofj {j u 7 

i.'*wai4 

1 ll-og 

1 

,33444 

- .11039 


22/ 

AO^V. 

♦ ? 4 

l .f y2o4 

-.22383 

L 

.226 74 

-.06590 


24. 

. J-J'j 

• L U 0 C 

1 .'■‘o7 

-.27817 

1 


- .09538 


2tJ. 

1 U Jw 

. UsiCi □ 7 

l.f 471 

-. JOol/ 

L 

,r'2942 

-.11157 


20. 

A Ja/L/ 

. y-iJ33 

.91614 

-.32525 


,89636 

-.10368 


3'>. 

1 UulkP 

1. uJjOO 

.CK-iVO 

.oo-ior. 



.Of 06-1 



JOBFLAC I 2 3 

VALUE I o lo 


5 6 

L 5 


It 9 ij cA«riRH. FRGnLEI' AC. 2 - SI.3CLE SUKFACF ANALYSIS CAPABILITY DEMONSTRATION PAGE 

I " «LFA= 3.30 PACIiNO* FLAPO 3''.00 AILFBflNI)= lO.OA-ls.in ALTI TUDE=^a**«*a 12 


12EU SLLOI IJN WITH Lfc SUCTION 

« 94^9 « 9999 ^ 9999 ^ 999999 


ALFA MLruh(/ 


kCL CMP LMH Cmy 

SLOPE SLOPE SLOPE 



.00(122 .9onri<, .SnrOS 



J'lWFLAC 1 
VALUE I 


2 3 5 5 0 7 

P Ic o 15 0 


tA^rlPLt PRloLEP NC. 2 - SINGLE SURFACE ANALYSIS CAPABILITY GEMONSTKAT I ON PACE 

MLFrts 3 . ID PACHNU= . 2 'oo FLAPD= BT.'O AILFRflNO= lO.Ofi-lS .oo ALT lTunp = »»»»** 13 


LlNLMnl2Eu SCLUTICN klTH LE SUCTION 

C«4*«*«* 4k ****•**•«* »»««« 
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6.3 EXAMPLE PROBLEM # 2, SINGLE- SURFACE ANALYSIS CAPABILITY (CONTINUED) 


JOBFLAC I 
VAIUF I 



23^ 56 789 iu LAAH»<i.t PROBLEM NC. 2 - S INCLf SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
0 lo 0 I A 0 I 0 <. ALhAs J.OO MACMNO- .2030 FLAPD- 3<1.P(J AILERONO- 10. 00-15. 00 ALTI TUDE 


PACE 

16 




JOBFLAC 1 2 J 

VALUE 1 O lo 


5 

1 


6 7 8 9 iU 

A 0 1 0 <. 



tAAMPLt PROBLEM NC. 2 - SINGLE SURFACE ANALYSIS CAPABILITY DEMONSTRATION 
«lFA= a. 00 PACHNO= .2000 FLAP 0= 30.00 AILEROND» 10.00-15.00 ALT I TUDE» 


PAGE 

20 


LJnc.AKl2ED SCLUr ICN UlTH LE SUCTION 

»*****•***************+****** 


ALFA 


WCL 

WCL 

SLOPE 

CMP 

SLOPE 

CNR 

SLOPE 

CMY 

13, 5*?3 

-iA,o>v 

2,0000 

.07886 

-00022 

.0OCO5 

. 00005 




Ml Trt 

LE SULllUN 

NO 

LE SUCTION 

FLAP/AILERQN 

V 

2Y/H 

SCL 


>CMlL/5> 

SCL 

SCDl 

SCMIC/51 

FCN 

FCX 

FCH 

-3r'*0D0 

-1-000000 

.000050 

. ^L(Ocr^JO 

.000000 

.000000 

.oonooft 

.oooroo 

.000000 

.000000 

.000000 


-.922533 

. BA 8498 


.161355 

.958306 

,179*^93 

.189353 

-.509958 

.021626 

.127590 

-26*00ri 

- . 8 1 666 7 

.975183 


.171091 

1.091802 

.201369 

.203150 

-.558887 

.056085 

. 137222 

-2<i-000 

--8O0O0C 

1.109572 


,216524 

1.398 895 

*400929 

.2960 68 

-.662513 

.028698 

. 165605 


-.733333 

1.289 711 

. 072117 

.267635 

1.861353 

.75347J 

.530532 

-.715877 

-.039961 

.178969 

“2'>-000 

— ,666^6 7 

1.508 509 


.151275 

2.100656 

.783659 

.315267 

-.110550 

.055358 

.027610 

-lU.nOO 

-.600000 

1.810551 

* lo79j/ 

-.156758 

2.003065 

.386527 

-.093522 

1.157260 

.358593 

-.289315 

-16*ono 

-.533333 

2. 05155 6 


-.350218 

1.965215 

.136476 

-.371362 

2.039362 

.663232 

-.509651 

-14-000 

-.466667 

2. 165 8 2 0 


-.365573 

2.115328 

.205 799 

-.375333 

2.173559 

.855779 

-.553390 

-12-oon 

-.4C0OOO 

2.197950 

« 4.olao*f 

-.135930 

2.2L99B5 

. 29 2 43 1 

-.329923 

2.109685 

•9C8632 

-.527521 

-10-J)00 

-.133333 

2.207985 

*^QV*fr.>/ 

-.330583 

2-215 269 

.295^25 

-.328598 

2.106126 

.9C0286 

-.526531 

-8*000 

-.26666/ 

2.198371 


-.315216 

2.192250 

. 29 a 401 

-.3368B7 

2.126665 

.891915 

-.532166 

-6*000 

-* 2 Corco 

2. 170 6 60 

- 

-.351592 

2.169756 

.321727 

-.351896 

2.153098 

.853871 

-.535775 


-.133333 

2. 123763 


-.355769 

2.125530 

.340316 

-.355315 

2.126333 

.882309 

-.531583 

-2*f'00 

-.066667 

2.078728 

. J046 ^*9 

-.356673 

2.378827 

*364948 

-.356855 

2.093673 

.873206 

-.523518 

-*000 

-.oocron 

2.063 585 

m 

-.355593 

2.062856 

.373147 

-.355759 

2.075288 

.852506 

-.518572 

2-000 

.066667 

2.086U5 

. .poVoUo 

-.355 100 

2.086180 

.369633 

-.355082 

2.063681 

.856071 

-.520920 

4*000 

.132333 

2. 151755 

• Jj4> 

-.353153 

2.152637 

•354385 

-.352911 

2.119630 

.8 7 2 627 

-.529907 

6*000 

.200000 

2.2C179B 

* 

-.33/3/8 

2.201258 

.334192 

-.337529 

2.135361 

.8E5108 

-.533855 

8-OOn 

*266667 

2.245575 

. ^4. loo2 

-.325535 

2.251590 

.318140 

-.326255 

2.107132 

.879660 

-.526783 

lo-n^^o 

.323333 

2.275009 


-.319168 

2.278538 

.313152 

-.317198 

2.085673 

.875953 

-.521168 

12*000 

.400000 

2.295901 


-.321529 

2.306565 

.3? 6 765 

-.316597 

2.096136 

.877257 

-.525035 

14.000 

.466667 

2.298 736 

. 2 O 1 > 

-.329975 

2.279681 

.253726 

-.335215 

2.115851 

.861008 

-.528710 

16-000 

.533333 

2.268053 

* 40*I>7 J4 

-.316 /65 

2.232 0 36 

.221972 

-.326665 

2,051261 

.783673 

-.510315 

18*000 

-6CCOOO 

2. 183 553 

,^^.V>74 

-.236087 

2.285982 

*351015 

-.207927 

1.712967 

.583816 

-.52 8252 

20*^00 

« 6 6666T 

2.065215 

« 1o><M>9'» 

-.122818 

2.382999 

*566068 

-.035551 

1.257705 

.339551 

-.315526 

22.000 

. 733333 

1.981450 

. Iuu9*i. 

-.072108 

2.325256 

.599061 

.1)27916 

1.015716 

.212299 

-.255929 

24.000 

.800^00 

1.656552 

« lMbl4> 

-.079658 

2.116573 

.474832 

- .008186 

.985185 

.156913 

-. 256296 

26.000 

.666667 

1. 703253 

, i/7:>**/ 

-.086385 

1.875522 

.330024 

-.039026 

.952355 

.167565 

-.235586 

28.000 

.933333 

1. 512"3 e 

. i<»72>0 

- .085675 

1.635103 

. 332212 

- .057316 

.055500 

.161215 

-.213850 

30,000 


.ooonoo 


.000000 

,000000 

.«orooo 

.oooroo 

.OOCOOO 

•oconoo 

.000000 


with LF SUCTIQM Wi.L 

= ^ • J 1/ 

JJO / WCCl 

= .25831 

/ MCMtC/5l- -.26917 / L/0^ 

7.75255 



NO Cf SUCMCN 

Ai*iu64L / 

.52297 

! 

-.22522 / 

5.15597 
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value I 0 16 o 


5 
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6 7 8 9 10 caaMPLQ PRCBLEP NO. 2 - SINGLE SURFACE ANALYSIS CAPABILITY CEMONSTRA TI ON 

I n .. Ak.EA= >.00 «4CflN0= .200P FLAPU= 30.'’? AILERONO- 10,00-15.00 ALT ITU0E35****t 


Hhi:A«12ED SCLUIICN WING COEFFICIENTS 

»« «*.p»a«***** *«**«***•**»*»»**« 

(.llfl LE SUCTICN NO LE SUCTION 


I EOF PLOT FILE 


ALFA 


wcu 

WCMC/5) 

wCL 

WCO 

WCMlC/5) 

-la.OO'l 

-*oLi^ 

,015b 

-.2 759 

-.0322 

,0299 

-.2810 

- 11 , non 

. uu / / 

.0162 

-.2757 

.0569 

.0307 

-.2808 

- 10.000 

. iHOO 

.0175 

-.2755 

.1266 

.0326 

-.2803 

“9. OOO 

• 

.0196 

-.2752 

.20/0 

,035B 

-.2797 

-e. 

m 

.0225 

-.275? 

.2879 

.0502 

-.2/90 


m Ji 

,026C 

-.2738 

.3695 

.0558 

-.2780 


.40^0 

.0303 

-.2735 

.5517 

.0526 

-.2770 

-5.000 


.0355 

-.2733 

. 5356 

.0607 

-.2757 

-4. 0'^'^ 

.0197 

.0512 

-.2731 

.6181 

.0700 

-.2753 

-3.^00 


.05/3 

-.2729 

.7C21 

.0805 

-. 2728 

-2,r»oo 

. 7/7t 

.0551 

-.2726 

. 7B69 

.0922 

-.2711 

-l,rtr»r> 


.0632 

-.2725 

.8722 

.1051 

2692 

. oon 

- Vj>1 

.0721 

- .2722 

.9582 

.1193 

-.2672 

i.f'on 

i . iix 4U 

.0817 

-.2720 

1.0558 

.1357 

-.2650 


i* 09^ 

.09 20 

-.2/18 

1.1320 

. 1513 

-.2626 


i.i/1/ 

.1932 

-.2715 

1.2198 

.1691 

-.2601 

4*nno 

i*2>0u 

.1150 

-.2713 

1. 3003 

.1681 

-.2575 

5* 000 

i , JX 9-# 

.1276 

-.2711 

1.3975 

.2085 

-.2557 



.1510 

-.2709 

1,5872 

.2299 

-.2517 

/.f>00 

1 . 40 / i 

.1551 

-.2706 

1.5775 

.2526 

-.2585 

a.ooo 

1 • do ou 

-1700 

-.2705 

1.6685 

.2765 

2552 

9.000 

1*0444 

-1856 

-.2702 

1.7601 

.3016 

-.2518 

10, oor 


.2C20 

-.2 790 

1.8 52 3 

.3280 

-.2382 

11. oc>o 

i. . 

.2191 

-.2697 

1.9552 

.3556 

-.2355 


X. Ob 14 

.2370 

-.2695 

2.0387 

. 3855 

-.2305 


1 *9uu.a 

.2556 

-.2693 

2.1328 

.5155 

-.2263 

14.000 

£ 

.2750 

-.2691 

2.2275 

.5556 

-.2221 

15.000 

ildJ 

.2952 

-.2688 

2.3229 

.5781 

-.2177 

16.000 

<1, 1404 

.3161 

- ,2686 

2.5189 

.51 18 

-.2131 

ir.ooo 


.3377 

-.2685 

2. 5 155 

. 5567 

-.2085 

18.000 

C. J>4o 

.3601 

-.2682 

2.6127 

.5828 

-. 2035 


Fits ft 3 
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6.4 EXAMPLE PROBLEM i 3, NORTH AMERICAN X8-70 AIRPLANE 


SUQSONIC-FLOW LlfTlMC SURFACE ANALYSIS PRDCRA^ HAOLDB 
TRW SYSTEMS INC,, HOUSTON OPERATIONS 
HOUSTON, TEXAS (7705B) 


JOBS INPUT LIST 

7 XtlT NSURF 

Example problem no, 3 - xb-70 airplane subsonic aeroqynamic analysis 

TaSk TZ2. project 3303a, HJO 1A7033. AERODYNAMIC ANALYSIS AND DESIGN 
SubSONIC-FLOVI lifting surface analysis, TRW program no, HaQIQb INSURF) 

A, V. GOMEZ/ 6 JULY 1972 

JINPUT 

NjIMC=3,NVtaIL=-1» GSCALE=0, 063333, C0L0CP»Q,8D, 

HWINC=1 I 

NSS( D = 7,NcS( ns?,'lFLG(l)*22.NFLC(6)=6,X0c<l»ll»U,D,liai 
X{1) = -SO,‘^,-50.5> -50.5,-iU.5,3»0,0, XOCR( 1 > *7»l , 0. 

VI 1)=0. .57.27, tl4.3A,l7i,ei,229.Qa»Aao,9P**2PiP7, 

2( 1 )32«0. I'i, 0, A4l.U,662,3«D,0, 

E(l)=?*D.n.-o,6,-l,0.'l,9,-3,0,-3.0, 

C( I )=1413-C8.1?6l.5l«, 1110. 496,96 a, 3P4,90B.632,533,6A7,26.4, 

HCANflO^-l 

NSS<2)=9,NcS(2)s3,nFl6(2)=6,NFLC|7)«2,XOC11,2)»0.0,0,5,1,0, 

X<B) = -172.3.0,-1 723.0, X0CR(B) = 0, 55, 0.31532, 

Y(6)=0.0,).71.ei, 

Z(8)=-73.n,-73.:. 

E(6)»2»3.0, 

C(8)=249,5,96.7l, 

ZOC( 1.6)=P.Q,0.O,C.0flB16. 

Z0C(l,9)=n. 0.0,0,0.08816, 

MFUS»1, 

NSS(3)«ll.HCS[3)«2,NFLC(3)B2,NFLG(8)=3,XOCtl,3)=0.0,l,0, 
X(10)=-i<63.08,-13l2.01B, Y( 10 ) = 0 , , 57 . 27 , 2( ID >«2«0.0,E<1D >»2«D ,0. 

Cdol =740. 0,64c ,0 •XOcHHO)''! , 0 . 1 . 0 , XOc< 1 • 3 ) = 0 , , 1 . 0, 

MflNS=l, 

NSS<4) = 13. NC5M) = 2> NFLC<4)»3, NFLC<9)»2, XDC 1 1 . 4 ) =0 .0,1 . 0 , X0CRd2)*241.0, 
X<12) = -50.5,36.0, Y<12> = 2»171,81, Z ( 12 >«0 , 882 , -17 i .81 , £< IZ >=-l , 0 , -1 , 0 . 
C<12)*328. 1313, 83.07, 

XCG = -725.o, ZCr. = 5.5.YCC.0,j, rEFss906B83 ,0 , rEFC’942 . 38, rEFB*1260.0, 

NJOasj, ALFA=1 , MaCHN= 0.20, NS0LV=l . 1 , 1 , 2 , 1 . 4 , 

KT2= 6, NFLCtl9)= 1, 0, 

*£NO 

SENdJObS 
7 XOT NSURF 


JOBFlaG 12345678 
Value 22 6230623 


S I NPUT 
KOUT = 

KTl = 

KT2 = 

KT3 = 

LI NX = 
NWIMg = 
NVTaIL = 
NFUS = 
COLOcP = 
CUTOpl = 
CUT0 f2 = 
LFLAP 
CSCALE = 

NSS = 

♦ 0 , 

NCS = 


* 6 , 

* 1 , 

+», 

♦ 3, 

♦ 56, 

+ 3 , 

- 1 , 

♦ 0 , 

."GOOCDODE+OD. 

.10COCDOOE-U3, 

.7900C3DD£-a2, 

♦ 0 , 

. IOC '.‘00 DOE ♦01, 

♦Z. 

♦ 2. 


9 10 11 12 13 14 15 16 17 IS 19 20 EXAMPLE PHOBLE-M NO, 3 - XR-70 AIRPlANE SUBSONIC aEHOO PaCE 
2000000001 10 ALFA* .00 MACHNO= .0000 ALT1TUDE»»*»»»» 1 



. 42o83i54f +01 
. l4398276F+n 


VCC 

ZCG 

REFS 

REFC 

REF0 

NJOn 

ALFA 

.ooono: 

.COOOQ 
.00000 
.00000 
. onooo: 
macrn 
. DOooo: 
, onooo: 
height 

•lOOOO, 
.10000: 
FLAPOJ 
. 00003 . 
TABOJ 

.ooooo: 

AIlOj 

• ooono; 
■ooono; 
nflc 


• OOE+QQ 

■ OOF+OO 
OOt+00 

■ OOF+OO 

OOF+CO 

OOL+OO, 

OOF.+OO, 

ODE+osi 

nOF+D5, 

DDF+00, 

OOF, DO. 

COF+OO. 

OOE+DDi 


,420831646+01, 

I . 00 nnnr, 2 j^^^^___ 

,UJE*0C. 

;ooooE+oo, 

,6:'49i424E*02, 
fuC:C000E>00. 
A 5833150 E+OD, 
629774«iE+04 , 
78531351E+02, 

1 0499958E+U3, 

♦ 1 . 

lOTroaooi^+oz, 

.ODUODODDE+OC 
. OODOODDDE+OO 
, . OOOTOODOe+DO 

I .:UUJD0D3E+DC 


. 2 : 3' 


DOOOE+00. 
.3OOJOO0OE+OC 
. 3033000 3E+30 
COOOE+O5, 

. 10030003EY05 
, l0Ui’0030E+05 
:OOOE+O0. 
.30030000E+CIC 
33C0E+30 . 

. DDD30D03£*0D 
J300E*00. 

. 300000C3E+03 

.3oooaaojE*o: 

♦22, 


. 1250O000E403 
.12900000e*QO 


OCOOOOOOF+OO, 

.OOOOOOOOb+03 
,OCOOOOOOt*OJ 
■OOOOOOOOe+OO 
.OOOOOOOOt+0 J 

ocoaocooE+oo, 

. OOOODOOOfc+OO 
.OaODODOOt+03 
1E3COOOOE+05, 

.lOOOUOQOb^OS, 

•IOOOOOOOe+QS, 

OCDCOOOCE+OO, 

OCOCOOOOB+OO. 

CCOCOCOOE+CO, 

. 0 0 000-30 Ot* 00, 
. OOOOOOQOt+OJ. 

♦6, 


'UUU00e*00, 
■12500000E40Q, 
.12500000E4Q0, 


oooooonoF^oa, 

iQQOOOOOOE+00, 

•OOOOOOOOE+OC, 

.OOOOOOOOe+00, 

.OOOOOOOOE+OC, 

(jOOOOOODE+00, 

• ooooooooE*ori, 

lOOOOOOQE+05, 

.10aOOOOOE+D5, 

OOQOODOQEaOO, 

ODOonODOE+OD. 

OODCDOOOE+OQ, 

.QODQOOQOE^OD, 

* 2 , 


nSdlv 


+6, 

♦ 2. 

+3, 

*3, 

♦ 0, 

*0, 

♦3, 

+0, 

*0, 

♦li 

+1. 

*0r 


♦1, 

♦1, 

+ 4. 

♦ 0. 

♦Oi 

♦0, 

♦ 0, 

♦0, 


+ 3 < 
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6.4 EXAMPLE PROBLEM i 3, NORTH AMERICAN XB-7D AIRPLAHE (CONTINUED) 


_____ _____ ] — 

jOaPLiC 1 2 3 4 9 6 7 a » 10 U 12 13 14 13 16 17 i« IV aO EXAMPLE PROBLEM NOt 3 * XB'70 aIRRLANE SUSSONtC AEROO 


VALUE 22 

6 2 3 0 

6 2 3 

2 0 0 

0 0 0 0 

001 

1 0 

ALF*« 

•00 MACHNO> ,0004 

AUTlTUoe* 






LJFTINO aURPACE N0» l'^ 

SURFACE 

If ; - wm 




SPAV 

BOOT 

CHORO 

Tip 

CHORD 

ROOT 

TWIST 

TJP 

TWIST 

AREA 

A9PCCT 

RATIO 

mean 

CHORD 

KGC 

IMAC) 

VBaR 

IMOC) 

XBAR 

(HOC) 

ZB*R 

(MCC) 

104.995 

117.756 

2,200 

.DDCO 

-3,0000 

6196,46 

1.77V0 

99.019 

76,777 

17,943 

- 99,772 

,970 

FL4° 
SPAN! 
• :oo 

FLAP 

SPAN2 

,600 

FLAP 

SPANS 

l.DOO 

FLAP 

deflec 

.000 

Tab 

deflec 

iDQD 

L,aIL 

deflec 

.000 

R.AIL 

DEFLEC 

,000 

DIHED, 

McC/4 

,000 

SWEEP 

McC/4 

94,799 

NO, span 
ELEHENT9 
22 

NO, CHORD 

elements 

6 

NO, CHORD 

oiscont, 

0 




FUS '5TA 
X(CC) 
-60,491 

WInC sta 
y<cc> 
,000 

Ml sta 
ZICO) 

. 49 a 

AREA 

SICS) 

6297,744 

CHORD 

CICOI 

7»,931 

SPAN 

StCC] 

109,000 





ws 

Y 

Z 

XILEJ 

X<C7«) 

XITE} 

TWI8T 

0]HE(C/41 

8WEPIC/4) 

C(WtNO) 

CI^LAP) 

CITaSI 

- 52.494 

-52,497 

.000 

-2,200 

•1,650 

,000 

-3,000 

,000 

-98,795 

2,200 

,950 

,279 

-47.246 

-47,247 

.000 

-13,756 

•10,317 

.000 

•3,000 

,000 

-98,795 

13.794 

3,439 

l,7l» 

-41.999 

-41,99# 

.000 

-25,312 

-18,984 

.000 

-3,000 

.000 

-98,795 

25,312 

*,3|6 

3,184 

-36.749 

-36,74# 

.000 

-36,86? 

-27i651 

.000 

-3.000 

.000 

-<l8,795 

38)8*7 

9.21’ 

4,606 

-31.499 

-31.49# 

.000 

-48,423 

-36,3i7 

,800 

•2.850 

,000 

-96,795 

88,423 


6,093 

-26.249 

-26,24# 

.000 

-59,979 

*44,984 

,000 

•2.290 

.000 

-98,799 

99,979 

18,999 

7,497 

-20.999 

-20,99# 

.000 

-71,535 

-53,651 

.000 

•1.700 

,000 

-98,795 

71,539 

17,8*4 

8,942 

-19.749 

-15,749 

.051 

-83,090 

-63,054 

-2,946 

-1,150 

-.882 

-81,878 

80,148 

20.03* 

10,01* 

-10.500 

-l'',499 

.044 

-94,645 

-72.03* 

-*,2oa 

-.800 

.441 

-98,795 

90,837 

22, *0’ 

11|30> 

-5.250 

-5,250 

.00* 

-108,075 

-B2.10* 

-4,20« 

-.090 

.441 

-83,183 

103, a*7 

29,9*7 

12,983 

.000 

.COG 

.□00 

-121.965 

-92,525 

-4,208 

.000 

,000 

*3.260 

117,798 

29,839 

14,720 

5.250 

5 , 25 c 

.004 

-108,075 

-B2,109 

-8.208 

-.050 

-.441 

♦3,185 

103,867 

29.9*7 

12,983 

10.500 

10,499 

.044 

-94,645 

-72,03* 

•8,208 

-,*00 

-.441 

98,795 

90.837 

22. *0’ 

ll,3fl9 

15.749 

15,749 

.051 

-83.090 

•63,054 

-2.946 

•1.150 

.882 

*1,878 

80,184 

20,036 

10,018 

20.999 

2 C 

.000 

-71,535 

-53,651 

.000 

-1,700 

,OQD 

56,795 

71,935 

17,884 

8,942 

26,249 

26,24# 

.000 

-59,979 

-44,984 

.000 

-2,250 

.000 

98,799 

99,979 

18,999 

7,497 

31.499 

31.49# 

.000 

-48,423 

-36, 31? 

■ 000 

-2 . 800 

.000 

56,799 

48,423 

12.10* 

6,093 

36.749 

36.749 

.300 

-36,667 

-2T.651 

.000 

•3.000 

,000 

98,795 

38,8*7 

9,2l7 

4,6g8 

41 .999 

4j , 990 

.000 

-25.312 

-1B,9B4 

.000 

•3.000 

,000 

98,795 

29.312 

6,328 

3,16* 

47.246 

47,247 

.000 

-13.756 

-10,3l7 

.000 

•3.000 

.000 

98.795 

11.79* 

3,8>9 

1.9l* 

52.498 

52,497 

.000 

- 2,200 

•1,650 

,000 

-3,000 

.000 

98,799 

2.200 

.990 

)27* 


JO 0 FLAC 1 

2 3 4 5 

6 7 8 

9 10 11 

12 13 14 15 

16 17 IB 

19 20 example problem NO, 3 - 

XB-70 airplane subsonic AERDO 

value 22 

6 ? 3 0 

* 2 3 

2 0 0 

0 0 0 0 

0 0 1 

t 0 

ALF** 

,00 MAcHNO 

« .0000 

altitude* 




XAUJ/C 

XAt2)/C 

XaI3)/C 

XA«4>/c 

Xa<5>/C 

XAt*>/C 

XA<7>/c 

Xa(8)/c 

Xa(9J/C 

XA(10)/C 



.0000 

1,0000 

,0000 

.0000 

.0000 

.0000 

.0000 

.0000 

,0000 

.0000 

X 

Y 

ZAID/C 

ZA(2)/C 

ZAI31/C 

ZA(4)/C 

2AI5)/C 

ZA(6)/C 

2A<7)/C 

ZA<8)/C 

Z4<9)/C 

ZA(lOI/C 

-4.2C83 

.0000 

,0000 

.0000 

.0000 

.0000 

.0000 

.OUQD 

.0000 

,0000 

.0000 

.0000 

-4.2063 

4,7725 

,0000 

. 0000 

.0000 

.0000 

.0000 

.0000 

.0000 

,0000 

,0000 

.0000 

-4,2083 

9,5459 

.0000 

.0000 

.0000 

■ 0000 

.0000 

• 0000 

.0000 

.0000 

.0000 

,0000 


14,3174 

.□□00 

.0000 

,0000 

.0000 

.0000 

.0000 

,0000 

,0000 

. 0000 

,0000 

• OSOO 

19,0899 

.□□□o 

.0000 

.0000 

,0000 

.0000 

.0000 

.0000 

.0000 

,0000 

.0000 

-oooa 

33.4074 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

,0000 

,0000 

.0000 

52,4973 

,0000 

.0000 

,0000 

.0000 

.0000 

.0000 

.0000 

,0000 

,0000 

,0000 


gOBFLiC 1 2 3 4 9 6 7 8 9 1 C 11 12 13 14 15 16 17 18 1« 20 EXAMPLE PROBLEM NO, 3 - XR-70 AtRPLANE SUBSONIC AErOO 

Value 22 6230423200000000110 alf*« ,do macmno- ,0000 altituoe»«»»*»« 

- SURFACE If 2 - CARARD CORTROL SURFACE 

LIFTING SURFACE NQa 2 


SPAN 

root 

CHORO 

TtP 

CHORD 

ROOT 

TWIST 

Tip 

TWIST 

AREA 

ASPECT 

RATIO 

MEAN 

CHORD 

HGC 

(MAO 

YBAR 

(MGC) 

XBAR 

<MCC> 

ZBAR 

(MGCI 

2#. 635 

25,792 

8.059 

3.0000 

3,0000 

413,07 

1,9850 

14.425 

19,3*2 

4,106 

-147,385 

-6,256 

FLaP 

spani 

•300 

FLAP 
SPAN2 
• *03 

FLAP 

SPAN3 

1.300 

flap 

DEFLEC 

.000 

Tab 

DEFLEC 

<000 

l.ail 

DEFLEC 
■ 000 

H.AlL 
DEFLEC 
■ 000 

DIHEO. 

noc/4 

,000 

SWEEP 

MGC/4 

21.746 

NO.SPaN 

ELEMENTS 

* 

NO, CHORD 
elements 
2 

no.choro 

DISCONT, 

0 




FUS STA 
X(CC) 
-60,491 

wInO sta 
YICE) 
,000 

W|, STA 
ZICOI 
,458 

AREA 

S<CC) 

*297,748 

CHORD 

C<CC) 

78,531 

SPAN 

B(CG1 

105,000 




WS 

Y 

Z 

X{L£> 

X(C/4) 

X(TE) 

TWIST 

U|HEtC/4j 

SWEPtC/*! 

OWING] 

C(FLAP) 

C(Ta9> 


-l«.3l7 

-14.317 

-6.083 

-146,124 

-144,109 

-138,065 

3,000 

,000 

-21.74* 

8,059 

2,015 

t,007 

-12,886 

-12,886 

-6.083 

-147,013 

-144,680 

-137.681 

3,000 

,000 

-21.74* 

9,332 

2,333 

1|1*7 

-11 .454 

-11,454 

-6.063 

-147,903 

-145,251 

-137,297 

3.000 

.000 

-21,74* 

10,606 

2,651 

1|32* 

-10.C22 

-10,022 

-6.0B3 

-146,792 

-145, B22 

-136.913 

3,000 

,000 

-21.74* 

11,879 

2,970 

1,465 

-8.590 

-«,59o 

-6.083 

-149,682 

-146,394 

-136,530 

3,000 

,000 

-21.744 

13.132 

3,208 

1,*44 

-7.159 

-7,l59 

-6.083 

-150,571 

-146,965 

-136,146 

3,000 

.000 

-21,5'4* 

14,423 

3,6q6 

ii8g3 

-5.727 

-9,727 

-6.083 

-161,460 

-147,536 

-135,762 

3.000 

,000 

- 21 , 74 * 

19,699 

3,925 

1,962 

-4.295 

-4,295 

-6.383 

-162,350 

-148,107 

-139,378 

3,000 

.000 

-21.746 

16.972 

4,243 

2,121 

-2.863 

-2,863 

-6.083 

-153.239 

-148,670 

-134,994 

3,000 

.000 

“21.746 

18,249 

4,561 

2,281 

-1.432 

-1,432 

-6.083 

-154.129 

-149,249 

-134,610 

3.000 

.000 

-21,746 

l9,9ia 

4,880 

2,440 

-.000 

,0C-3 

-6.083 

-155.018 

-149,820 

-134,227 

3.000 

- 6,610 

-70.370 

20,792 

5,190 

2,599 

1.432 

1.432 

-6.083 

-154.129 

-149,249 

-134,610 

3.0QQ 

.ogo 

21.746 

19,318 

4,680 

2,440 

2.863 

2.861 

-8.083 

-153,239 

•148,678 

-134,994 

3,000 

,UDD 

21,746 

10,249 

4.5*1 

2,261 

4.295 

4.299 

-6.083 

-192.350 

-148,107 

•139,378 

3,000 

.000 

21.746 

18,972 

4,243 

2,121 


RA« 

2 


Pace 

3 


PAGE 
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6.4 EXWPLE PROBLEM # 3, NORTH AMERICAN XB-70 AIRPLANE (CONTINUED) 


5.727 

!,727 

-4.083 

-151.460 

-147.93* 

*139,7*2 

7.199 

7,l59 

-6,383 

-150.571 

-144,965 

-134,146 

8.590 

« ,59* 

♦6.383 

-149,682 

-144.394 

-134,530 

10,022 

10.022 

-6,083 

-148,792 

-145,822 

-136,913 

11.454 

11,454 

>6,983 

-147,903 

-145,251 

•137,297 

l2.flB6 

12,886 

♦6.083 

■*147,013 

-146,680 

-137,481 

I4,3l7 

14.317 

-6,083 

•144,124 

-144, iq9 

-138,0*9 


3.000 

,000 

*1.746 

15.899 

3.**S 

i;**» 

3.000 

,000 

*1,744 

14,429 

3.6Q4 

1,B|3S 

3.000 

,000 

*1.746 

13,152 

3.2BH 

1,644 

3.000 

,000 

*1,744 

11.879 

2, *70 

1,489 

3.000 

,000 

21.74* 

10.606 

2.651 

1,3Z* 

3.000 

.000 

21.746 

*.332 

2.333 

1.1*7 

3.000 

.000 

21,744 

8.059 

2.019 

1iOD7 


JOBFLaG 1 

2 3 4 

9 4 7 8 

9 10 11 

VALgE 22 

4 7 3 

0 6 2 3 

2 0 0 



XA<1)/C 

XA(2)/C 



.0090 

.5000 

X 

V 

ZA«1J/C 

ZA121/C 

-143.5825 

.aoOQ 

.0000 

.0000 

-143.5528 

14.3174 

.0300 

.0000 



- FILE 9 2- 

1 

g 

lEOF PLOT 1 

^'ILE 




13 14 13 16 17 18 19 20 EXAMPLE 


1 0 0 

0 0 0 1 

1 0 

ALFA I 

XAI31/C 

XAI4)/C 

XA(5>/C 

XA(6)/C 

l.’JCOO 

,0000 

.0000 

.0000 

ZA(3)/C 

2A(4>/C 

ZA(9)/C 

ZA<«I7C 

,0882 

.0000 

.0000 

.0000 

.0882 

• 0000 

.0000 

.0000 


SURFACE GEWETRy 


NO, 3 - XB-7D 4]f|P,,iNE SUBSONIC aEHOO 


DO MACH^ 

10" ,0009 

ALTITUDE" 


XA(7>/C 

xAcei/'c 

X4(9J/C 

XAtlOl/C 

.0000 

, 0003 

.0000 

.0000 

ZA<7>/C 

Za(B}/C 

ZA(9)/C 

ZA(10)/C 

.0000 

,0000 

.0000 

.0000 

.0000 

.0300 

,0000 

.0000 


JObFLAC 12343 
VALUE 22 6 2 3 0 


i y 8 » 10 11 12 13 14 15 16 17 18 19 20 EXAMPLE PROBLEM NO, 3 • XB-70 AIRPLANE SUBSONIC AePOO 

*23200000000110 ALFAs ,0Q hACHNO= ,0000 ALTlTUpb******* 

- SURFACE M3- FUSELAGE 

lifting surface no» 3 "^ 


S“4V 

boot 

CHORD 

Tip 

CHORD 

ROOT 

TWIST 

T|P 

TWIST 

AREA 

9.545 

41,666 

53.333 

.0000 

.0000 

548.83 

flap 

S“AN1 
• 000 

FLAP 

SPAN2 

.6:^ 

FLAP 

SPAN3 

1.300 

FLAP 

OEFLEC 

.030 

Tab 

DEFLEC 

.000 

L.AlL 

OEFLEC 

.000 




FUS STA 
XtCC) 
-60.491 

WING STA 
Y(CC) 
.000 

WL STA 
Z(CC) 

,458 


VS 

Y 

Z 

X(LE) 

X(C/4) 

X(TE) 

-4.772 

-4.772 

,330 

-162,668 

-149,334 

-10*, 334 

-4.795 

-4.295 

,300 

-164,760 

-151.218 

-110,993 

-3.818 

*3.«19 

.000 

-166,052 

-153,102 

-111,852 

-3.341 

-3.341 

.300 

-168,944 

-154,986 

-113,111 

-2.863 

-2.963 

.300 

-171,036 

-156,070 

-114,370 

-7.366 

-2.386 

.300 

-173. IZS 

-15B.753 

-115,629 

-1.9Q9 

-1 .9C'9 

,300 

-175.221 

-160.637 

-116,887 

-1.432 

-1 ,432 

.000 

-177,313 

-162,521 

-118,146 

-.954 

- ,954 

.330 

-179,405 

-164,405 

-119.405 

-.477 

-.477 

.300 

-181.497 

-164.289 

-120,664 

.300 

,030 

.000 

-183,589 

-168,173 

-121,923 

,477 

,477 

.030 

-181,497 

-166,289 

-120,664 

,954 

,954 

.000 

-179.405 

-164.405 

-119.405 

1.432 

1,932 

.000 

-177,313 

-162.521 

-118,146 

1.909 

1 , 939 

.300 

-175.221 

-160.637 

-116.887 

2.386 

2,384 

.300 

-173,128 

-158,753 

-115,429 

2.863 

2,863 

.330 

-171.036 

-156.870 

-114,3/0 

3.341 

3,34j 

.300 

-168,944 

-154,986 

-113,111 

3.818 

3, *18 

.300 

-166.852 

-153.102 

-111,852 

4.295 

4,295 

.300 

-164,760 

-151.218 

-110.593 

4.772 

4,7/2 

.300 

-162,668 

-149.334 

'109.334 


ASPECT 

RATIO 

mean 

CHORD 

HOC 

(MAC) 

YBAR 

[MOO 

XBAR 

(MGC) 

ZDar 

(MGC) 

,1660 

57.500 

57,600 

2,329 

-159,981 

iO00 

R.AIL 
OEFLEC 
• 000 

DIHEU. 

MCC/4 

.000 

SWEEP 

MCC/4 

75.784 

NO, span 
EEEMENT9 
2 

NO, CHORD 
ELEMENTS 

3 

NO. CHORD 
OISCONT, 
0 

AREA 

S(CC) 

6297,748 

Chord 

C(CC) 

78,531 

SPAN 

B(CC) 

1D5.D0D 





TWIST 

PIHE(C/4> 

SWEP(C/4> 

CIWINC} 

CtFLAPj 

C(TAB) 

,000 

,000 

-75,784 

53,333 

13,333 

6,667 

,000 

,000 

-75,784 

54,166 

13,542 

6,771 

<000 

.000 

-75,784 

55,000 

13,750 

6,875 

.000 

.000 

-75,784 

35.833 

13.95H 

6,979 

,00C 

.000 

-75,784 

56,466 

14,167 

7,083 

.000 

.000 

-75,784 

57,300 

14,379 

7,187 

,000 

.000 

-75.784 

58,333 

14,583 

7,292 

.000 

.000 

-75,784 

59,166 

14,792 

7,396 

.000 

.000 

-75,784 

6n,ooo 

15,000 

7,5q0 

.000 

.000 

-75,784 

60,833 

15.208 

7,6g4 

.000 

23.020 

-57.119 

61,466 

15,417 

7,TqB 

.000 

,000 

75,784 

60.833 

16.208 

7,6g4 

.000 

.000 

75,784 

60. ODD 

15,000 

7,900 

.000 

.000 

75,784 

59,166 

14,792 

7,396 

.000 

.UOD 

75,784 

58,333 

14,583 

7,292 

.000 

.UDQ 

75,784 

57,900 

14,375 

7,187 

,000 

.000 

75,784 

56 , 666 

14,167 

7,083 

.000 

.000 

/5.764 

55,833 

13,95» 

6,97* 

.000 

.000 

75,784 

55.300 

13,750 

6,879 

• OOO 

,000 

75,784 

54,146 

13,542 

6,771 

,000 

■ 000 

75,784 

53,333 

13,333 

6,667 


JOBFlaG 1234 
value 22 6 2 3 


9 4 7 8 9 10 11 12 13 14 15 16 l7 l8 1« 20 

0*23200000000110 


example PHOUlEM no. 3 - XU-70 AIRP.ANE SUaSONIC aehoo 
ALFA* ,00 MAcHNO* ,0300 AL T I TU0E=»»««»* 




XA<11/C 

XA(2)/C 

XAt3)/C 

XA(4)/C 

XA(5)/C 

XAI6 l/C 

XAI71/C 

XA(8 )/C 

XAl 9 )/C 

XA(iai/c 



.0300 

l.OOCO 

.0000 

.0000 

.0000 

.0000 

.0000 

.0003 

,QQaC 

.0000 

X 

Y 

ZAf 11/C 

ZA(2)/C 

ZAt3)/C 

2a(4)/C 

ZA(5>/C 

ZA167/C 

2a(7)/C 

ZA(8J/C 

ZA(91/C 

ZAdOl/C 

-121.9228 

-109.3344 

. 3C-' 

4.7725 

• 0330 
.0300 

.0000 

.0000 

.COQu 

.3003 

.0000 
• 0000 

.0000 

,0000 

■ OUQU 
.0000 

■ ODQO 
.0000 

, OODO 
,0000 

,OOOP 

,aOQD 

.0000 

,0000 


(EOF PuOT file 31'^ ^ ^ FUSELAGE GEOMETRy 


I 2 3 4 5 6 7 B 9 10 11 12 13 14 15 16 17 18 19 20 EXAMPLE PROBLEM NO, 3 - Xu* 70 aIRPi-ANE SUBSONIC A^HOD 

value 22 *230623200000000110 ALFA= ,00 HAChNO* ,0000 ALT I TOde = »*»»*» 

— SURFACE « 4 =■ VERTICAL FINS 

lifting surface NO" 4 


S=>AN 

root 

CHORD 

Tip 

CHORD 

ROOT 

TWIST 

TIP 

TWIST 

AREA 

ASPECT 

RATIO 

MEAN 

CHORD 

MCC 

(MAC) 

YHAR 

IMGC) 

X6AR 

(MGC) 

ZBAR 

(MCCI 

14.391 

27,344 

6.922 

-1.0000 

-1 . 0000 

246,56 

,8399 

17,133 

19.16? 

14.3X7 

-15,691 

-5,442 


Page 

9 


Pace 

A 


Page 


Page 

B 


6-32 


6.4 EXAMPLE PROBLEM » 3, NORTH AMERICAN XB-70 AIRPLANE (CONTINUED) 


FLAP FU*P 

SPANl SP4N2 

.000 ,«O0 


WS Y 


FLAP 

SPAN3 

1,000 

FLAP 

deflec 

,000 

TAB 

oeflec 

«000 

W<6ll 

OEFLiC 

.000 

B.BIL 

oiriic 

• 000 

PtMBC. 
NCCA4 
et , 999 

fWCBP 

MOC/4 

97,426 

NO.BP6N 

fiWEMEMTB 

3 

NO.CHOm 

ELSMENTS 

2 

nd.choro 

D|6C0NTi 

0 


FUS STA 
X(CC) 
-60,491 

WINC STA 
Y(CC) 
,000 

Mt STA 
ZICO) 
,iSB 

arc* 

9<CG) 
6297, 74B 

CHOHO 

ClCO) 

76.931 

SPAN 

B(CG) 

105,000 





X(LE> 

X<C/4> 

XITB) 

TWIST 

0]ME(C/4) 

SWEPIC/O 

C<WINO) 

ClFLlPJ 

C(TaBI 


,OOD 

14.317 

.073 

.720 

14,317 

-.646 

1.439 

14,317 

-1.366 

2.159 

14.317 

-2.065 

2.S78 

14,317 

-2.605 

3.598 

14,317 

-3,524 

4.3l7 

14.317 

-4,244 

9.C37 

14,317 

-4,963 

5,756 

14,317 

'S.6B3 

6. A76 

14,317 

-6.402 

7.195 

14,317 

-7,122 

7.915 

14.317 

-7.042 

B ,635 

14,317 

-8,561 

9,354 

14,317 

-9,291 

10.C74 

14,317 

-10.000 

10.793 

14,317 

-10.720 

11.513 

14,317 

-11.439 

12,232 

14,317 

-12.159 

12.952 

14.317 

-12.878 

13.671 

14.317 

-13.596 

14.391 

14.317 

♦l«.3l7 


-31.552 

-24,7l6 

-4,208 

-30.l7l 

-23.590 

-3,646 

-28,769 

-22.464 

-3,467 

-27,406 

-21.336 

-3,127 

-26,026 

-20.212 

-2.747 

-24,645 

-19.065 

-2.406 

-23.263 

-17,959 

-2,066 

-21,662 

•16;633 

•1.665 

-20,500 

-15,707 

-1.325 

-19.11’ 

-14,560 

-.9*5 

-17,737 

-13.454 

■.604 

-16,356 

-12 1326 

-.244 

-14,974 

•11.202 

,11T 

-13,593 

-10,075 

,477 

-12,211 

-6,949 

Jb37 

-10,830 

-?;823 

l,l96 

-9.448 

-6,697 

1,556 

-a ,067 

-5.571 

1,-919 

-6.685 

-4.444 

2,279 

-5.304 

-3,3l6 

2,640 

-3,922 

•2,192 

3,000 


'l.DOO 

-.441 

85,620 

-l.OOD 

69,999 

57.426 

.1,000 

89,999 

37,424 

•1,000 

89,999 

37,426 

-l.DOO 

89,999 

57,426 

-l.OOD 

89; 999 

87,424 

-1.000 

89,999 

57,426 

•1.000 

89,999 

57,426 

*1.000 

89,999 

57,426 

•l.DOO 

89,9^9 

57,426 

•1.000 

89,999 

57,426 

-1.000 

89,999 

57,426 

•1.000 

89,999 

57,426 

-1,000 

89,999 

57,421 

-1.000 

89,999 

07,426 

-1.000 

69,999 

57,426 

•1.000 

69,999 

57,421 

•1,000 

69,999 

57,426 

•1,000 

89,999 

57.426 

-1,000 

89,999 

57.428 

•1,000 

19,999 

07.416 


27,346 

6,63* 

5,4l8 

26,323 

6,581 

3,290 

23,302 

6,323 

3,163 

26,281 

6,070 

3,035 

23.260 

5,619 

2,»Q7 

22,231 

5,560 

2,780 

2iiii* 

5,3q4 

2, *50 

20,197 

5,049 

2,520 

1«<17I 

4,794 

2,397 

10,156 

4,039 

2,269 

17,133 

4,283 

2,1«S 

16,112 

4,028 


iB.O’l 

3,773 

1,686 

14,070 

3,516 

1,759 

13.Q49 

3,262 

1,631 

12,028 

3,007 

1,503 

11.007 

2.752 

1,376 

9,986 

2.494 

1,245 

8.965 

2.241 

1,121 

7,944 

1,986 

,993 

6.922 

t.7]l 

•60 


JOBFlaG 1 2 3 * » * 7 5 9 10 11 12 13 14 15 1* IT H It 20 

VALUE 22 623Q6232000000DD110 


CXaHPLE FROBLtK MO, J - *B»T0 *lRFL*Nl BUBBONtC *MOO P*BE 
ALF** ,00 M*CHN|)« lOOOS ALTITUpE******* ’ 


X Y 

-4,2083 14.3174 

3.0000 14,3174 


XA< 1)/C 

XA(2)/C 

X*t31/c 

X*t4)/C 

XA(3>/C 

,0000 

1.0000 

.0000 

.0000 

,0000 

ZA<1)/C 

Z*(2)/C 

Zi(31/C 

ZAI4J/C 

2*(5>/C 

,0800 

>0000 

.0000 

.0000 

,0000 

.0000 

.0000 

.0000 

.0000 

.0000 


XA<6)/C 

X*(7)/C 

XA(8)/C 

XA(9)/C 

XA(101/C 

.0000 

.0000 

.0000 

,OO0Q 

.0000 

ZA<6>/C 

ZA(7)/C 

z*(B)/e 

ZA<9)/C 

ZAdOI/O 

.0000 

.0000 

• OOOD 

.0000 

.0000 

.0800 

,0000 

,0000 

.0000 

.0000 


(EOF PLOT File 4)"^ n ^ vertical fin cbometey 

^ ^ ^ ^ pile » S = EIGHT VEmiCAL FIS aEOMETNI (IMAGED 

(EOF Plot file 51 


r 


JWM2TOJV 


INDICATES SOWTION FOE 3UEFACB H 1 IS OUTPUT 
COSSIDEEING SJ/iJfVICJS # 1 AWNE. 


section airload COEFFICIENTS-SURFACE no,. 1/( 1, D 


J 

Y- 

Y 

z 

W 

SCN 

sex 

12 

.:227 

2,386 

.000 

2,366 

.2030 

.0019 

13 

, 0*62 

7.159 

,368 

7,159 

.2600 

-.001* 

14 

.1136 

11.931 

1,026 

11.931 

,2622 

- 0062 

15 

.1591 

16,733 

1,517 

16,704 

.3139 

-.0071 

16 

.2045 

21,476 

1.846 

21.477 

.3283 

-.0146 

17 

,2500 

26,248 

2.022 

26.249 

.3339 

-.0271 

18 

.2955 

31.021 

2;o4o 

31,022 

.3442 

-.0341 

19 

.3409 

39.793 

li770 

35,794 

.3752 

-.0407 

20 

, 3664 

40.366 

1.293 

40,567 

,4301 

-.0493 

21 

.4316 

45,331 

■ 616 

45.339 

-.5193 

-.0655 

22 

.4773 

50,111 

.336 

50,112 

,7439 

-.1066 


SCL 

SCD 

3«P C74 

SCLC7B 

IXL 

ITt 

IZL 

,1996 

,0396 

-.0496 

,2116 

-.0034 

,0011 

-1,0000 

.2364 

>0446 

-.0431 

.2413 

-.0081 

.0315 

-,9999 

,2593 

,0449 

-.0515 

.2196 

-,0089 

,0265 

-.9996 

.3103 

,0533 

-,0405 

,2332 

-.0196 

.0195 

- , 9996 

,3209 

,0949 

-.0241 

.2lB6 

-,0394 

.0175 

-,9992 

,3335 

.0933 

-.0180 

,1905 

- , 0396 

.0139 

-,9991 

,3449 

,0938 

-,Q1’2 

,1625 

-.0496 

.Oil* 

-.9967 

,3766 

.0981 

-.0239 

,1396 

- . 0557 

,0009 

-.9964 

,4321 

,0661 

-,02Bl 

,ll7l 

-,0562 

.0011 

-,9984 

.5226 

.0751 

•,0J»» 

,0694 

-,0594 

,0020 

-,9962 

.7115 

,1103 

-.0721 

.0833 

-.0666 

.0039 

-,9976 


JOrFLaC 1 2 3 4 5 6 7 B 9 10 11 12 13 14 15 1* 17 18 19 20 EXAMPLE PROBLEfI NO, 3 - X0-7O aJRPLANE SUBSONIC aEROO PaCE 

VALUE 22 6230623200000000110 ALF** 10,00 H*CHNO= ,2000 ALTI TUDE******* lO 


[nte(;r*teo airload CDEFFICIENTS-SUPFACE N0S,» 1-1 


original 
OF POOR QUAU 11 


E 

ECN 

ECX 

ECY 

ecl 

ECD 

ECHP 

ECUR 

ECMV 

exA 

EZA 

ES 

EMCC 

E6 

1 

,3046 

-.0160 

-.0000 

,3030 

.0372 

-.0622 

-.0000 

',0000 

-59,77 

,97 

6196,66 

76,78 

104,99 

1 

•0396. 

.01*3» 

,0000« 

.0361» 

.0230* 

-.0064* 

-,oooa« 

.0000* 

-59,77* 

,97» 

6196, 66* 

76,78* 

104,99* 






«•« AIRUOAD 

SUMS ••• 







AC 

. 3046 

-.01*0 

-.0000 

.3030 

.0372 

-.0622 

-,0000 

-.0000 

-59,77 

.97 

6196,66 

76,78 

104,99 

cg 

,2999 

-.3157 

-.0000 

.2961 

,0366 

-.0624 

-,0000 

-,0000 

-60,49 

,46 

6297,75 

78,53 

105,00 

ac 

.0396» 

.01*3* 

•QD30* 

.Q36i» 

.0230* 

-,0064» 

•lOOOO* 

,0000* 

-59,77« 

,97« 

6i96,66« 

76,78* 

104,99* 

Cfi 

.C389* 

.■31*1* 

,0000* 

,0356» 

.0226* 

0066* 

-,00Q0» 

.0000* 

-6o,49« 

,46» 

6297.75* 

78,53* 

105,00* 


^ » determinant. -,ia75*ll • scale. ,1731-01 * 

LIFT COEFPJCIBffT POJ? WING ALONE IS Cj. = 0,2981 WITH L.E. SUCTION (BLUNT L.E.) 

= 0. .7337 NO L.E. SUCTION (SHARP L.E.) 


SECTION AIRLOAD COEFFICIENTS-BURFACE NO,. l/( 1, 2) 




H03VI7J0ff = 1/(1, 2), 


INDICATES SOWTION FOR SURFACE t 1 IS OUTPUT 
CONSIDERING SURFACES » 1 AND S 2 SMILTANEOl 


6-33 



6.4 EXAMPLE PROBLEM » 3. WORTH AMERICAN XB-70 AIRPLANE (CONTINUED) 


J 

Y» 

Y 

i 

W 

SCN 

sex 

$CL 

ECO 

Slip C74 

SCLC/B 

IXL 

lYL 

121 

IZ 

.0227 

2,386 

.COO 

2.306 

.1354 

.0041 

,1327 

,0242 

-.0469 

.1408 

-.0027 

,0009 

-1 , OOOO 

13 

.066? 

7,159 

.368 

7.159 

.1769 

.000* 

,1742 

>0306 

-.0438 

.1640 

-.0074 

.0313 

- , 9995 

14 

.1136 

11.931 

1.026 

11.931 

.1944 

-.0033 

.1*20 

>0332 

-.0495 

,1596 

-.00*1 

,0Z66 

- , 9996 

lb 

.1593 

16.7J3 

1.517 

16.7d4 

.2452 

-.00*9 

,2423 

,0417 

',0399 

.1821 

-.0197 

,0197 

-.9996 

16 

.2045 

21,476 

1,846 

21.477 

.2743 

- .Oil® 

,2722 

,0456 

-.0259 

.1827 

-.0353 

.0174 

-,9992 

i; 

.2500 

26.24R 

2.022 

26.249 

,2932 

-.0230 

,2928 

,0469 

-.0196 

.1672 

-.0397 

.0138 

-,9V9i 

16 

1 2955 

31.021 

Z.D40 

31 . 022 

.3134 

-.0304 

,3139 

.0491 

-,01«9 

,1479 

>,0496 

.0118 

-,9987 



JOaFLiO 

1 

2 3 4 5 

6 7 

a 9 10 11 

12 13 14 15 16 17 

la 19 20 

EXA'IPLE PROBut:l 

NO, 3 - 

xn-70 airP.anE subsonic AI 

VAUijE 

22 

6 2 3 0 

6 2 

3 2 0 0 

0 0 D 0 0 0 

110 

ALFA« 10.00 

HACHN0> 

,2000 

ALtITUDE»4 


J 

Y« 

Y 

1 

W 

SCN sex 

set 

SCO 

snp C/4 

SCLC/B 

IXL 

lYL 

IZL 

19 

3400 

35,793 

1,770 

35,794 

.349/ -.0374 

,3509 

,0542 

-.0240 

.1302 

>,0556 

.0009 

-,99«5 

20 

3864 

4' .666 

1,2’3 

40.567 

,40Bi -.0464 

.4100 

.0628 

-.0278 

.1111 

-,0561 

.0010 

-,9984 

2l 

4316 

45.336 

,816 

45,339 

,499/ -.0627 

.5030 

.0759 

-,0345 

,0860 

-.0593 

.0019 

-.9982 

22 

4 77^ 

5c,m 

.338 

50.112 

.7241 -.1053 

.7313 

,1074 

-.0711 

,0519 

-.,0664 

.0039 

-.9978 


SECTIQM AIRLOAD COEFF ICtENTS-SURFACE NO,» 2/1 1, 2) 


J 

Y« 

Y 

L 

W 

SCN 

sex 

SCL 

SCO 

SMP C/4 

SCUC/B 

IXL 

lYL 

IZL 

27 

.0833 

?,386 

'6.196 

107.733 

. 9782 

,0897 

,9478 

,1854 

-.1495 

.6i?9 

.1041 

-.0158 

-.99*2 

28 

.2500 

7,l59 

-6.112 

112.505 

1.1336 

,08o4 

1,1024 

,2108 

-.1194 

,5554 

.1311 

-,0Z46 

-.9911 

29 

.4167 

11.931 

-6,063 

117.278 

1.1479 

.0670 

1,1189 

.2110 

-.1132 

.3978 

.1249 

-.0314 

-.9917 


integrated airload COEFFICJENTS-SURFACE N0S,« 1-2 


E 

ECfJ 

ECX 

ECY 

ECL 

ECO 

EC«P 

ECMP 

ECMY 

EXA 

EZA 

ES 

= HCC 

EB 

1 

.2470 

-.0132 

,0030 

.2464 

.0300 

-.0667 

-,0000 

-.0000 

-59,77 

,97 

6196,66 

76,78 

104 ,99 

1 

.0338 = 

.:i4'« 

.Q030* 

,0306» 

.0196» 

-.0070» 

-,ooco» 

.0000* 

-59,77« 

,97* 

6196,66* 

76,78* 

104,99* 

2 

J . D7ai) 

. 3813 

.0000 

1.0396 

.2658 

-.1462 

-,0000 

,0000 

-147,38 

-6,26 

4lJ,o7 

15,36 

28,63 

2 

.aoor,» 

. 39C3* 

,0030« 

,cooo» 

,OOOU» 

,0000» 

,0000« 

,0000« 

-147, 38» 

-6,26* 

413 ,o7* 

15,36* 

28,63* 


JObflAC 1 2 

345 

6 7 B 

9 10 11 

12 13 14 

15 16 17 

18 19 20 

EXAMPLE 

PROBLE1 

NO. 3 - 

XB-70 AiRPtA.NE SUBSONIC AEROn 

VALUE 22 6 

7 3 0 

6 2 3 

2 0 0 

0 0 0 

000 

110 

ALFa= 10,00 

MACHNO* ,2000 

altitude** 






• « 

• AIRLOAD 

suns ••• 







AC ,3i9? 

-.01 74 

.0030 

.3157 

, 0478 

.0131 

-inooD 

,0000 

- 59,77 

.97 

6i96.66 

76,78 

104,99 

CC .3l4j 

-.0C77 

.0030 

.3106 

. 0470 

.0099 

-.0000 

.0000 

- 60,49 

,46 

6297,75 

78,53 

105,00 

AC ,.'33P« 

.01 43* 

.0033* 

.0308* 

. 0196* 

- .0070* 

',0000* 

,0000* 

- 59 , 77 * 

.97* 

6196.66* 

76,78* 

104,99* 

CO ...332» 

.3137* 

.3030* 

.0303* 

.0193* 

-.0072* 

-.□aaa* 

.0000* 

-60,49* 

.46* 

6297.75* 

78,53* 

105,00* 


• 0ETERM|NANT= -.IDTD + 22 • SCALED ,1505-Ul # — LITT COEFFICrEl/T FON WTfia -fCANARD CO/ITROl SURFACE IS 

= 0,310e (WITH L.E. SUCTION) 

section airload COEFFICIENTS-SURFACE N0,« 1/( 1, 4) NOTATION = l/( 1,4), INDICATES SOWTION FOR SURFACE H 1 IS OUTPUT 

* C0N5IDERIN0 SURFACES 92, #2, #3, omd 94 SmULTANEOUSU 


J 

Y* 

¥ 

Z 

V 

SCN 

sex 

SCL 

scu 

SNP C/4 

SCLC/B 

IXL 

lYL 

IZL 

12 

.-.227 

2.386 

.000 

2.386 

.1X55 

.0003 

,1137 

■ OZOl 

-.0336 

.1207 

-.0129 

,0043 

-,999V 

13 

. :6D2 

7 ,159 

,368 

7.159 

. 149* 

-.0023 

■ 1476 

.0256 

-.0329 

,1389 

-.3303 

,038» 

-,998b 

14 

.1136 

11.931 

1.026 

11.931 

,1832 

- ,0006 

,1805 

,0317 

-.02/1 

.1501 

-.0833 

,0*69 

.,9954 

15 

.1591 

16, 7?3 

1.517 

16,704 

.2314 

-.0024 

.2283 

.0398 

-.0596 

.1715 

.0191 

-.0209 

-.9996 

16 

.20*5 

21,476 

1.846 

21,477 

.2616 

-.0126 

,2598 

.0432 

-.0402 

.1744 

-,0264 

,0150 

-,9995 

17 

.2500 

26.244 

2.022 

26.249 

.2986 

-.0148 

.2966 

.0493 

-.0296 

.1694 

-.0426 

,0146 

-,999o 

16 

.2955 

3l,"2l 

2 . 0*0 

31,022 

.3212 

-.030* 

,3217 

, 05q5 

-.0213 

.1516 

>,0460 

,010» 

-,9989 

19 

.3409 

35,793 

1.77c 

35.794 

.3511 

-.0372 

,3523 

,054b 

-.02*0 

.1307 

-.0555 

.0009 

-,998b 

20 

.366i 

4: . 566 

1.293 

40.567 

.4q76 

- . Q4bb 

,4093 

,0629 

-.0280 

.1110 

-,0555 

.0009 

-,998b 

2l 

,431’'^ 

45 , 330 

• Ui6 

45.339 

, 496b 

-.06l5 

.5019 

.0759 

-.0346 

.0858 

-.0593 

.0019 

-,9992 

2? 

4477 .^ 

5- , 111 

,338 

50.112 

.7 226 

- . 1047 

,7296 

,1073 

-.0710 

.0518 

-.0663 

.0039 

-,9979 


JODFLaG 1234 

5 6 7 

8 9 10 11 

12 13 14 

15 16 17 18 19 2D 

example phoble.'I 

NO. 3 - 

XH-70 A1HP..ANE SUBSONIC A: 

VALUE 

22 6 2 i 

^ b ?. 

3 2 0 0 

0 0 0 

0 0 0 1 1 D 


ALFA* 10,00 

nACHNO 

= ,2300 

ALTI TUOfe* 





SECTION 

A|Rl04P 

cdefficients-surface 

.N0,= 

Z/t 1, 4) 





J 

y* Y 

z 

w 

SCN 

sex SCL 

SCO 


SCLC/8 

IXL 

lYL 

IZL 

27 

.833 2.386 

-5-196 

107.733 

1.0252 

.1017 ,9920 

.1957 

-. 1433 

. &4&8 

. 1166 

- 1 0164 

-.9930 

2B 

2500 7.159 

-6.112 

112.505 

1.2074 

.0954 1.1734 

.2254 

-.1308 

. 5911 

,1312 

- . 0246 

-,99li 

29 , 

*l67 11. 9j] 

-6.053 

117.278 

1.2471 

.Q793 1,2144 

.2303 

-.1287 

,4318 

,1267 

-i03l5 

-,99l4 




SECTION 

AIRLOAD 

COEFFICIENTS-SUKFaCE 

NO , * 

3/t 1, 4> 





J 

Y* Y 

L 

M 

SCN 

sex SCL 

SCO 

SflP C/4 

SCLC/8 

IXL 

lYL 

IZl 

32 , 

250r 7.386 

.030 

137,607 

.0288 

,0079 ,0270 

.0064 

-.0150 

.1626 

,0693 

-.2129 

-.9746 
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6.4 EXAMPLE PROBLEM i 3. NORTH AMERICAN XB»70 AIRPLANE (COffTIWUED) 


J 

Y* 

Y 

Z 

SB 

.9949 

14.317 

-2,074 

39 

. 9949 

14,317 

-6,943 

Afl 

.9949 

14,317 

-11.811 


SECT t ON AIRuOAO COEFf lCIINTf-$URI»*C£ NO,i 4/( 1| 4) sSCflOS LIFT COeFTICISHTS FOR SOSFACS » 4 









SON sex SCU 

SCD 

SMP cX« SCLC/B 

tXL 

lYL 

IZI. 






,9943 

,0764 

161.531 75.2273 -93,259# »0,27B8 

44si74l3~796 13673X956,2669 
-3,l3l3 -53,5006 64,77#8 

loosa 

*.0162 

-tiooflo 

,9997 

,0033 

-,0169 


E F.CN EC* 


INTECRATED AlRUOAD COEFFICIENTS-SUflFACE NOS,» 1-4 
ecY ECL ECO ECMP ECH" ECHT E*4 E2« 


E9 EHCC £B 


JOBFLAS I I S 4 S 
V4l.ue 22 4 2 3 0 


T 10 I I 12 13 14 IS 14 IT 18 It 20 

20000000 0) to 


riAMPLE P*08LtP NO, J - XB-TO *I*PL*NE SUBSONIC ACROn 
ALFA* 10,00 HACMNO* ,200o AL T t tUDE*»*»»»» 


integrated Airload coefficients-surface nos,« i - 4 


1 

C(N 

£C« 

tcv 

t<L 

cct> 

6CMP 

i 


-,0174 

• ooofi 

,2156 

,07#6 

-.0*61 

1 

•0314* 

,0124» 

••oooc* 

.076*» 

•0(62* 

-.0070* 

i 

1,1182 

.0927 

#0000 1 

, 1048 


• • 151 t 

2 

«0000* 

«OQOO* 

,0000* 

«000Q* 

,0000* 

.0000* 

J 

f DZ8B 

.0074 

tQoao 

,D2T0 

• 0)2S 

-,015) 

i 

bQOQO* 

tOOflO* 

*0000* 

♦ 0000* 

*0000* 

•0000* 

H 

,0710 

-.0172 

,0000 

*0764 

-.0241 

■>0124 

H 


»0172* 

-,0000» *••*•••*•596,011 !• 








♦•• 41RL0I 

AC 

,1204 

»,00b4 

*0000 

,117* 

,04*4 

,0196 

CG 

,1157 

-.0088 

,0000 

• 1125 

,04*2 

,0154 

aC 

272, 707** 

,0l54» 

••0000*240 

• SG18* 


CG 

2*8,iJOZ* 

,0lS*4 

-•0000*2*4 

•2510* 

IdH********** 


ecmn 

ECMT 

ex* 

CZA 

IS 

EMftC 

tfl. 

• onOD 

-,onOD 

-54.77 

if? 

« |4*,** 

7*. 78 

in*. 99 

•0000* 

,0000* 

-54.77* 

if?* 

*14*.*** 

74.7«t 

I09*99« 

,0000 

.0000 

-147.18 


413.07 

15,1* 

28i*S 

•ODOO* 

,OCDD* 

-147,38* 

•4i24* 

411.07* 

15,1«* 

2«*93* 

• 0000 

,0000 

-158,48 

« An 

548.81 

4.7. *n 

9.S9 

•0000* 

,0000< 

-I58.4B* 

iOO* 

548,814 

57. *0* 

9»S9« 

1,0000 

,0000 

-15,*? 

• Si 

441.11 

It, 1* 

19. >9 

■0000* 

•oooo* 

-15,*?* 

•Si 

441, |1* 

14, 1** 

|9*39« 

sums •• 

• 






■,0000 

-.0000 

-54,77 

*9 7 

* 1 ?*>** 

7*,78 

109*99 

-.0000 

-.0000 

•*0>44 

• U4 

*247.75 

76, 5J 

lOS.QO 

♦oooo» 

-.ODOO* 

-5?. 77* 

♦ 9 7* 

* l?*,6i* 

7*. 78? 

109*99* 

•OOOQ* 

-,0000* 

-*0«44« 

• 4IA* 

*2?7,75* 

78,53* 

1 05*00* 






OCTCRPINANT* ,S384*32 * SCALE* .1404-01 • 


VORTBX-LTFT ISCREMEST5 FOR SURFACE S 4 ARB OUT OF RARGE 


SEE ROTE # 2, t 

*••• JOB T|HE* 74* / CLaPSCO time* 24* / NO, plot files- 5 / NSURF EKEt. VERSION *-18-72 •••• 


JfCT TRRPLT PRINTED OUTPUT OMITTSD 
SEE INPUT DATA LISTTROS 


■’"NOTES: [1] THE SECTION COEFFICIENTS CALCULATED FOR SURFACE # 4, THE VERTICAL FINS, ARE OUT OF RANGE OF 

THE "F" FORMAT SPECIFICATION USED FOR THE PRINTED OUTPUT. THIS ANOMALY ARISES BECAUSE OF 
THE MANNER IN HHICH THESE COEFFICIENTS ARE CALCULATED, I.e., THE AIRLOADS OBTAINED IN THE 
VORTEX-LATTICE SOLUTION ARE NORMALIZED BY (DIVIDED BY) THE PROJECTED AREA OF THE SURFACE 
OH A HORIZONTAL PLANE UHICH IS OF ZERO OHDER FOR A VERTICAL SURFACE. THIS PROfiRAMlING 
ERROR DOES MOT IN ANY HAY AFFECT THE ACCURACY OF THE VORTEX-LATTICE SOLUTION OR THE 
SPATIALLY- INTEGRATED AIRLOAD COEFFICIENTS WHICH ARE NORMALIZED BY A DIFFERENT AREA. 

[2] THE VORTEX-LIFT INCREMENTS CALCULATED FOR SURFACE # 4, THE VERTICAL FINS, ARE OUT OF RANGE 
AND IN ERROR FOR THE SAME REASONS OUTLINED IN NOTE # 1 . 

[3] TO DEMONSTRATE THE VERACITY OF THE SOLUTIONS CALCULATED WITH AND WITHOUT VERTICAL FINS A 
COMPARISON OF THE NET-AIRLOAD COEFFICIENTS ABOUT THE C.G. OBTAINED FOR THE VORTEX-LATTICE 
SOLUTIONS (WITH L.E, SUCTION) IS GIVEN BELOW 


CODE 

DESCRIPTION 

^L 


"«CG 

0,1) 

WING ALONE 

0.2981 

0.0366 

-0.0624 

(1.2) 

WING + CANARD 

0.3106 

0.0470 

■F0.0099 

(1.4) 

WING + CANARD + FUSELAGE * VERT. FINS 

0.3125 

0.0462 

+0.0159 


are OUT OP f 


p*Ge 

|4 
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6.5 EXAMPLE PROBLEM # 4> THICK-WING ANALYSIS 


SU8 SONIC-FLOW LIFTING SURFACE ANALYSIS PROGRAM HA0108 
TRW SYSTEMS INC.. HOUSTON OPERATIONS 
HOUSTON. TEXAS (770SSI 


•••* JOBS INPUT list ***» 


7 XOT NSURF 

EXAMPLE PROBLEM NO . 4 - THICK hINC PROBLEM AERODYNAMIC ANALYSIS 
TASK T02. PROJECT 3303A . MJO 1AT033. AERODYNAMIC ANALYSIS AND DESIGN 
SUBSONIC-FLOW LIFTING SURFACE ANALYSIS. TRW PROGRAM NO. HAOlOB INSURFI 

A. V. GOMEZ/ 5 JULY 1972 

UNPUT 

NMING<3, NVTAIL'O. NFUS>0. C0LCCP>0. TS. 

MFLGm^3«lO. NFLG<6I=3»5. NFL Gl I9I » 1 .2 , 

NCS’i'2M10.2. NSS=>2.4.6, 

THICKk: 1, 

XOCll.lI^ .00, .05, .10, .15, .20, .30, .40, .60, .80, l.O, 

X0CIU2>« .00, .05, .10, .15, .20, .30, .40, .60, .SO, 1,0, 

Z0C1 I. D'.O, . 0444 3.. 0S8S3,. 06682,. 071 72,. 0T502,. 07254,. 057 04.. 0 32T9,.0, 

ZOCI 1.2I-.0, . 04443,. 05853,. 06662,. 071 72,. OT502,. 07254,, 057 04.. 0 3274,. 0. 

Z0C< 1.3»».0.-.0444 3,-.05e53,-.C66B2,-. 071 72 ,-.07502 ,-.07254 ,-.05704, -.03279, .0, 
ZDCI 1, 41 0, -. 0444 3, -. 05853, -.C66B2, -.071 72 ,-.07502 ,-.07254. -.05704, -.03279, .0, 
X - 0,0, 0,0. 

V • 0.10. 0,10, 

t >0,0, 0,0, 

C • 10,10, 10,10, 

E « 0,0, 0,0. 

Z • 0,0, 0,0, 

FLATP- I, 

X0CI1.3I* .00, 1.0, 
zacii.5t>.o, .0, 

Z0Cll,6t=>.0, .0, 

X(5I> 0,0, 

Y< 51 ” 0. 10, 

ZI51= 0,0, 

Cl 51- 10,10, 

EI31- 0,0, 

XCC-O.O, REFC-IO.O, REFB-20.0, REFS-200.D, 

NJDB-1, ALFA-10, MACHN-0.0, NSOLV-1 ,2,3 .3 
SEND 

AENDJOeS 
7 XOT NSURF 


JD6FL AG 

1 

L 2 

3 5 5 6 

value 

10 10 

10 0 0 5 

AINPUT 

KDUT 



♦ 6* 

KTl 

» 



KT2 




KT3 

ai 


♦3t 

LINX 

« 


♦ 56, 

NUING 

3 



NVTAIL 

S 



NFUS 

3 


♦ 0* 

COLDCP 

c 


,T3QOQOOOE#00 

COTOFl 

= 


. lOaOOOGOF- 03, 

COTOF2 

8 


«29000000E-02 

LFL AP 

a 


*0f 

GSCALE 

a 


. ioocoooor«'Oi, 

NSS 

• 

40, 

♦Zr 

NCS 

* 

40, 



.OCOOOOQOE-OO, 

.DOOOOOOOE-OO. 

.OQOOOOOOE400, 


YCG 

ZCG 

REFS 

REFC 

rEFB 

NJOB 

ALFA 

.DOOOOQOOE+OO 
.OOOOOOOOE+OO 
.DOOOOOOOF-OO 
.OOOODOOOE400 
.000000000400 
HACHN - 
.OOOODOOOEtOO 
.OOOOOOOOE-OO 
HE I GHT - 
.lOOOCOOOEtOS 
.10000000E*OS 
FLAPDJ = 
.OOOOOOOOEaOO 
TABOJ 

.000000000400 

AILDJ 

.000000000400 

.000000000400 

N0LG 

40. 

♦ 0 , 

♦ 0 , 

40. 

NSOLV 

40, 


0 0 0000 000 4 00, 

,000000000 400, 
.000000000400. 

VC400, 

OOOOOQOOE400, 

000000000400, 

000000000400, 

200C0D00E403, 

100000000402, 

2000 00000 4 02, 

♦I, 

100000000402, 

.000000000 400, 
.000000000 400, 
.OOOOOOCO0 4OC, 
.QOOOOCCO0 4OC, 

OOOOCOOO04DC, 

.OOOOOOCO04OC, 
.0 0 0 0 0 0 0 00 4 0 0, 
100000000405, 

.10000 0000 4 0 5. 
.100000000 405, 
000000000400, . 

. 000000000400, 
OOOOOOOOE4 00, 

.00000 0000 4 00, 
OOOOODOOE40C, 

.000000000400. 

.OOOOOOCO04OC, 

410, 

♦5, 

40, 


4l, 


* 1 , 

♦ 0 , 


9 ID 11 12 13 15 15 16 17 IB 19 20 EX'.MPLE PROBLEM NO. 4 - THICK WING PROBLEM ACROOYNAMl PACE 
000000000112 AU0A- .00 HACHN3- .0000 AL T I TUDE =*•*••• I 



000000000400, .000030000400 


.000000000400, 
.000000000400, 
.000000000400, 
. OOOOODDOE400, 


.000000000400 

.000000000400 

.000000000400 

.000000000400 


OOOOOOCO04OO, .000000000400, 

. OOOOOOOOE400, .OOOOOOOOE400, 

.000000000400, 

1000 0 00004 05, .1 0000000 E405, 

.100000000405. .100000000405, 

.100000000405, 

000000000400. .000000000400. 


000000000400, . 00000000 E*00, 


000000000400, 

000000006400 , 


.000000000400. 

.OOQOOOOOE400, 

.09000000 0400, 


410, 

410, 

40, 

♦5 , 

♦5, 


♦0, 

40, 


40, 

*0, 


♦1. 

♦Z, 


42, 

♦3. 

43, 

40, 

40. 



ORIGINAL PAGE IS 
OF POOR QUALITY 


• 40, 

SEND 


♦ 0 , 


40, 


40, 
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6.5 EXAMPLE PROBLEM » 4. THICK-WING ANALYSIS (COWTINUED) 


JOBFLAG 1 2 ) a $ 
VALUE 10 ID to 0 0 


SPAN 

ROOT 


CHORD 

20.000 

10.000 

FLAP 

Flap 

SPANl 

SPAN 2 

.000 

.600 


WS 

V 

-10.000 

-10. 000 

-9.000 

-9.000 

-8.000 

-8.000 

-T.OOO 

-T.OOO 

-6.000 

-6.000 

-9.000 

-9. 000 

-A. 000 

-A. 000 

-3.000 

-3.000 

-2.000 

-2.000 

-l.OOO 

-1.000 

.000 

.000 

1.000 

1.000 

2.000 

2.000 

3.000 

3.000 

A. 000 

A. 000 

5.000 

9.000 

6.000 

6.000 

T.OOO 

7.DD0 

3.000 

8.000 

9.000 

9.000 

lO.OOQ 

10.000 


JOBFLAC 1 2 3 A 5 

value 10 10 10 0 0 


K Y 

.0000 .0000 
.0000 10.0000 


JOBfLAC I 2 J A B 
VALUE 10 ID 10 0 0 


6 7 S 9 10 11 12 IS lA 19 16 17 M 19 20 

999000000000112 


ExAHALt PROBLEM NO. 4 - 
ALFA* .00 HACHN9* 


TMICK WING PROBLEM AEROOVNAHI 
.0000 ALTlTU)t***A*»* 


SUEFACS # 3 - LOWBE SORFACS 

LIFTING SURFACE NO- 1 


TIP 

CHORD 

ROOT 

TWIST 

TIP 

TWIST 

AREA 

ASPECT 

RATIO 

MEAN 

CHORD 

MGC 

INACl 

VBAR 

(MGCl 

XBAR 

(KGCt 

28 AR 
IMGCI 

10.000 

.0000 

.0000 

200.00 

2.0000 

10.000 

10.000 

9.000 

.000 

.T3A 

FLAP 

SPAN3 

1.000 

FLAP 
DEFlEC 
. 000 

TAB 

DEFLEC 

.000 

L.AIL 

DEFLEC 

.000 

R.AIL 

DEFLEC 

.000 

qihed. 

MGC/A 

.000 

SWEEP 
MGC /A 
.000 

NO. SPAN 
ELEHENTS 
10 

NO. CHORD 
ELEHENTS 
9 

NO. CHORD 
OtSCONT. 
0 


FOS 5TA 
XICGt 
.000 

WING STA 
VICGI 
.000 

ML STA 
2ICG) 
.000 

AREA 

SICG) 

200.000 

CHORD 

CICGI 

10.000 

SPAN 

BICGI 

20.000 






xaei 

XIC/AI 

XITEI 

TWIST 

DIHEIC/A) 

SWEPIC/AI 

CIWtNGI 

CIFLAPt 

ClTABi 

.ODO 

-2.900 

.000 

T.900 

•000 

.000 

.000 

10.000 

2. 900 

1.290 

.000 

-2.900 

.000 

7. 900 

.000 

.000 

*000 

10.000 

2.900 

1.290 

.000 

-2.900 

.000 

T.900 

.000 

.000 

.000 

10.000 

2*900 

1.290 

.000 

-2.900 

.000 

7,900 

.000 

.000 

.000 

10. 000 

2.900 

1.290 

.000 

-2.900 

.000 

T.900 

.000 

.000 

.000 

10.000 

2.900 

1.290 

• 000 

-2.900 

.000 

7.900 

.000 

.000 

.000 

lO. ODO 

2.900 

1.290 

• 000 

-2.900 

.000 

7.900 

• 000 

.000 

.000 

10.000 

2.900 

1.290 

• OOQ 

-2.900 

.000 

7.900 

•ODO 

.000 

*000 

10.000 

2.900 

1.290 

.000 

-2.900 

.000 

T.900 

.000 

.000 

.000 

10.000 

2.900 

1.290 

• 000 

-2.900 

*000 

7.500 

.000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

'2* 500 

.000 

7.900 

.000 

.ODD 

.000 

10.000 

2.900 

1.290 

.000 

-2.900 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

-2. 900 

.000 

T.900 

.000 

.000 

.000 

10. 000 

2.900 

1.290 

.000 

-2. 900 

.000 

T.900 

.000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

-2.900 

.000 

T.900 

*000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

-2.900 

.000 

T»500 

.000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

-2. 900 

.000 

T.900 

.000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

-2. 900 

.000 

T.900 

.000 

.000 

.000 

10.000 

2.900 

1.290 

• GOO 

-2.500 

.000 

T.900 

.000 

.000 

.000 

10. 000 

2.900 

1.290 

.000 

-2. 900 

.000 

7.900 

.000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

-2.900 

.000 

7.900 

.000 

.000 

.000 

10. 000 

2.900 

1.290 









_ 






6 7 8 9 10 11 12 13 lA IS 16 17 18 19 20 EXAMPLE PROBLEM NO. A - THICK WING PROBLEM AEROOVNAMI 


5 5 5 

0 0 0 

0 0 0 0 

0 0 1 

1 2 

ALFA- 

.00 MACHNO 

■ .0000 

ALTITUDE- 


IS/C 

XA ( 2 ) /C 

KAOl /C 

XAIAl/C 

XA(5)/C 

X Al 

XAITI/C 

XAI81/C 

XAI9I/C 

XAIIOI/C 

.0000 

.0500 

• 1000 

.1900 

.2000 

.3000 

• 4000 

.6000 

.8000 

1 . 0000 

ZA ( 1 1 /C 

2AI2I/C 

ZAI3I/C 

ZAlAI/C 

2AI5I/C 

2 AI6I/C 

ZAI Tt/C 

ZAI BI/C 

ZA ( 91 /C 

ZAIIOI /C 

• 0000 
• 0000 

.OAAA 

.OAAA 

.0985 

.0989 

.066 6 
.0668 

.0717 

.0717 

.0790 

.0790 

,0729 

-0729 

.0970 

.0970 

.0328 

.0928 

.0000 

.0000 



^ 









6 T 8 9 10 11 12 13 lA 19 16 17 IB 19 20 EXAMPLE PROBLEM NO. A - THICK WING PROBLEM AEROOVNAMI 

9990000000001 12 ALFA- .00 MACHHO- .0000 ALTITODE-A«»*** 


LIFTING SURFACE NO- 2 


SDBFACE # 2 - UPPER SURFACE 


SPAN 

ROOT 

ctHono 

TIP 

CHORD 

ROOT 
TMI ST 

TIP 

TWIST 

AREA 

20.000 

10.000 

1C. 000 

.0000 

. 0000 

200,00 

FLAP 

SPANl 

.000 

FLAP 

5PAN2 

.600 

flap 
SPAN 3 
l.OOO 

FLAP 

DEFLEC 

.000 

TAB 

DEFLEC 

.000 

L.AIL 

oeflec 

.000 




FUS STA 
K(CG) 
.000 

MING STA 
rtcci 
.000 

WL STA 
ZICG) 
.000 


WS 

y 

L 

XILEI 

XIC/41 

XITEI 

-10.000 

-10.000 

.000 

-2. 500 

.000 

7.900 

-9,000 

-9.000 

.000 

-2.500 

.000 

7.900 

-8.000 

-6.000 

.000 

-2.300 

.000 

7.500 

-7.000 

-T.OOO 

.000 

-2.500 

.000 

7.500 

-6.000 

-6. 000 

.000 

-2.500 

.000 

7.500 

-5.000 

-5.000 

.000 

-2.500 

.000 

T.900 

-A. 000 

-4.000 

.000 

-2.500 

.000 

7.500 

-3.000 

-3.000 

.000 

-2. 500 

.000 

T.900 

-2.000 

-2.000 

.000 

-2.500 

.000 

T.900 

-1.000 

-1,000 

.000 

-2,500 

.000 

7.900 

.000 

.000 

.000 

-2.900 

.000 

T.900 

1.000 

1.000 

.000 

-2.500 

.000 

T.900 

2.000 

2.000 

.000 

-2.900 

.000 

T.900 

3.000 

3.000 

.000 

-2.900 

.000 

7.500 

4.000 

4.000 

.000 

-2.900 

.000 

T.900 

5.000 

9.000 

.000 

-2. 900 

.000 

7.500 

6,000 

6.000 

.000 

-2.500 

.000 

T.900 

7.000 

T. 000 

.000 

-2.500 

,000 

T.500 

6.000 

6.000 

.000 

-2.900 

.000 

7.500 

9.000 

9.000 

.000 

-2.900 

,000 

T.900 

10.000 

10. 000 

.000 

-2.500 

.000 

T.900 


ASPECT 

RATIO 

MEAN 

CHORD 

NGC 

IMACI 

VBAR 

IHGCI 

XBAR 
I MGCl 

ZBAR 

IHGCI 

2.0000 

10.000 

10.000 

9.000 

.000 

-.734 

R.AIL 

DEFLEC 

.000 

DIMED. 

HGC/4 

.000 

SHEEP 

MGC/4 

.000 

NO. SPAN 
ELEMENTS 
10 

NO. CHORD 
ELEMENTS 
5 

NO. Chord 

DI SCONT. 
0 

AREA 

SICGI 

200.000 

CHORD 

CICGI 

10.000 

SPAN 

BICGI 

20.000 





TWIST 

01 HEIC/41 

SH EPIC/41 

CIWINGI 

CIFLAPI 

CITABI 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10,000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.290 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.500 

1.250 

,000 

.000 

.000 

10. OOQ 

2.500 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.ODD 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2,900 

1.250 

.000 

.000 

.000 

10.000 

2,900 

1.250 

.000 

.000 

.000 

10.000 

2. 500 

1.250 

.000 

*000 

.000 

10. 000 

2.900 

1.290 

.000 

.000 

.000 

10.000 

2.900 

1.250 

.000 

.000 

.000 

10.000 

2.900 

1.290 


pace 

2 


PAGE 

3 



PAGE 

6 
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6.5 EX/WPLE PROBLEH I 4. THICK-WING ANALYSIS (CONTINUED) 


JOBFLAG 1 

value 10 

2 3 4 

10 10 c 

5 6 7 8 

0 5 5 5 

9 10 11 
0 0 0 

12 13 19 15 

0 0 0 0 

16 17 18 
0 0 1 

19 20 
1 2 

EXAMPLE PROBLEM NO. 9 - 
ALFA- .00 MACKNO 

THICK WING PROBLEH 
> .0000 ALTITUDE-* 

AH AOOYHAMl 

page 

7 



XA( li/C 

XAI21/C 

XAI3I/C 

XAI9I/C 

XA151/C 

XA(6I/C 

KAITI/C 

XAI 81/C 

XAI 91 /C 

XAI 10) /C 




.0000 

.0500 

.1000 

.1500 

.2000 

.3000 

• 40DG 

.6000 

.8000 

1.0000 


X 

V 

TA ( 1 » /C 

2AI2)/C 

ZAI31/C 

2AIA1/C 

ZAI5t/C 

ZA(6I/C 

ZAl 71/C 

ZAIBI/C 

ZAI91/C 

ZAl 101 /C 


.0000 
• 0000 

.0000 

10.0000 

.0000 

.0000 

-.0444 

-.0444 

-.0585 

-.0585 

-.0668 

-*0668 

-.0717 

-.0717 

-.0750 

-.0750 

-.0725 

-.0725 

-.0570 

-.0570 

-.0328 

-.0328 

.0000 

.0000 




JOBFLAG 1 

2 

3 4 5 

6 7 6 

9 10 11 

12 13 19 13 

16 17 16 

19 20 

EXAMPLE PROBLEM N0, 9 

- thick I 

WING PROBLEM AEROOYNAMI 

value 10 

10 

10 0 0 

5 5 5 

Q 0 Q 

0 0 0 0 

0 0 1 

1 2 

ALFA- 

.00 MACHNO- .0000 

altitude- 







LIFTING SURFACE NO- 3 

..a— SURFACE # 3 = THIU 

WING (FIAT PLATE} 


SPAN 


ROOT 

TIP 

ROOT 

TIP 

AREA 

ASPECT 

MEAN 

HGC 

YBAR 

XBAR 

Z8AR 



CHORD 

CHORD 

TUI ST 

TWIST 


RATIO 

CIORD 

IMACI 

IMGC 1 

(HGC) 

IMGC) 

20.000 


10.000 

10.000 

.0000 

.0000 

200.00 

2.0000 

10.000 

10.000 

5.000 

.000 

.000 

FLAP 


FLAP 

FLAP 

FLAP 

TAB 

L.AIL 

R. AIL 

CIHED. 

SUEEP 

ND.SPAN 

NQ.CHORD 

NO. CHORD 

SPANl 


SPAN 2 

SPAN 3 

OEFLEC 

OEFLEC 

OEFLEC 

OEFLEC 

MGC/9 

HGC/9 

ELEMENTS 

ELEMENTS 

OISCONT. 

.000 


.600 

1.000 

. 000 

.000 

.000 

•000 

.000 

.000 

to 

5 

0 





FUS ST4 

WING STA 

WL STA 

AREA 

CHORD 

SPAN 








XICCl 

YICG) 

ZICGI 

SICG) 

CtCG) 

BICG) 








.000 

.000 

.000 

200.000 

10.000 

20.000 





US 

Y 

z 

XI LEI 

XlC/91 

KITE) 

TUIST 

OlHEIC/91 

SWEPIC/9) 

ClUINGt 

C IFLAPI 

CITABi 

-10.000 

-10.000 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-9,000 

-9.000 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.300 

1.250 

-8.000 

-8.0C0 

.000 

-2. 500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.290 

-t.ooo 

-T.OOO 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.900 

1.250 

-6.000 

-6.000 

.000 

-2. 500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-5.000 

-5.00C 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-9.000 

-9.0C0 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-3.000 

-3.000 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-2.000 

-2.000 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

-l.OOO 

-l.OOO 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

.000 

.000 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

l.OOO 

1.000 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10,000 

2.500 

1.250 

2.000 

2.000 

.000 

-2. 500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

3.000 

3.000 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

9.000 

9.000 

.000 

-2. 500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.900 

1.250 

5.000 

5.000 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.900 

1.250 

6.000 

6.000 

.000 

-2. 500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

7.000 

T.OOO 

.000 

-2.500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.900 

1.250 

8.000 

8.000 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.900 

1.250 

9.000 

9.000 

.000 

-2.500 

.000 

T.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 

10.000 

10.000 

.000 

-2. 500 

.000 

7.500 

.000 

.000 

.000 

10.000 

2.500 

1.250 


JOBFLAG 1 2 3 •, 5 6 7 8 9 IQ 11 12 13 14 15 16 17 |6 19 20 EX4KPLE PROBLEM NO. 4 - THICK HINC PROBLEM 6FR0DYNAMI PACE 


VALUE 10 

10 10 0 0 5 5 5 

0 0 0 

0 0 0 0 

0 0 1 

1 2 

ALFA' 

.00 MACHNO 

> .0000 

ALTI TLDE«****** 


XAI U/C 

XA 1 2 ) /C 

XAI 3) /C 

XAI9I/C 

KA< 5)/C 

XAI6I/C 

XAI n/c 

XAI ai/c 

XAI91/C 

XAI 101 /C 


.0000 

1.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

X 

Y ZAItl/C 

ZA(2»/C 

ZAI3I/C 

ZAI9I/C 

Z4I51/C 

Z4I6I/C 

ZAITI/C 

ZAI8I/C 

ZAI91/C 

ZAl 10) /C 

.0000 

.0000 

.0000 .0000 

10.0000 . 000 0 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 
. 0000 

.0000 

.0000 


JOBFLAG 

VALUE 


2 3 4 5 6 7 
10 10 0 0 5 5 


e 9 10 11 12 13 14 15 16 IT 18 19 20 
SCOOOOOOOO 112 


example problem no. 4 - THICK WING PROBLEM AFRODVNAMI PAGE 
ALFA^ .00 HACHNO’ .0000 ALTI TUnE = ****** 13 


J K XV TV 


TV 


1 XV 


25 3 

26 3 

27 3 

28 3 

29 3 

30 3 

31 3 


32 5 


2.000400 

-6.000400 

D.OCO 

0.000 

2.000400 

-9.000400 

O.OOC 

0.000 

2,000400 

-2.000400 

O.OCC 

0. 000 

2.000400 

0.000 

o.oco 

0. 000 

2.000400 

2.000400 

o.oco 

0. 000,- 

2.000400 

9.000400 

n 


2 • 

o *1100 4-00 

. \JU 

6.000400 

O.OCO 

O.OCO 

uutj 
0. 000 
0. QQO 

6.000^00 

8.000400 

D.OCO 

0* 000 


lYV I TV 


XN 


TN 


1.0004 00 

0.000 

1.0004 00 

0.000 

1.000400 

0.000 

1.000400 

0 -pn'' 

■ — 4^ 

u.DOO 

1.000400 

0.000 

1.000400 

0.000 

1.000*00 

0.000 

1.000400 

0.000 


3.000^00 -5.000400 
3.000400 -3.000400 
3.000460 


• ..^lfJ400 
7.000400 

7.000 400 

7.000400 

7.000400 

7.000 400 


-1.000400 

1.000400 

3.000400 

5.000400 

7.000400 

9.000400 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


0.000 
0 . 000 
0 . 000 
0 . 000 
0.000 
O.ODO 
0 . 000 


0.000 
0.000 
0.000 
0.000 
0.000 
0.0 00 
0.000 
0.000 


1,000403 

1.000400 

1.000400 

1.000400 
1.000400 
1.000400 
1.000400 
1.000400 
1.000400 


I EOF PLOT F IL E 31 


^ MLKff SURFACE 

LIFT OISTHIBUTION DETAIL-SURFACE NO.- l/l !• 2) 

«««««*44**4i*«i*44»4»****6*««4*««**««*****«4*4*** 


J 

K 

PIX) 

PI Y» 

PIZI 

AREA 

CPN 

G(X) 

GIY) 

GIZ) 

VIIX) 

VII Y) 

VlIZI 

GAKA 

1 

1 

-2.000 

-9.000 

.999 

9. 0000 

2.72B5 

.17193 

.00000 

1.01942 

.03961 

-1.11982 

.00172 

-.2729401 

1 

2 

-.000 

-9.000 

.739 

9. 0000 

-.1951 

.09557 

.00000 

.89616 

-.13865 

- .95122 

. 12807 

.1951400 

1 

a 

2.000 

-9.000 

♦ 68T 

9. 0000 

-1.1031 

.037 35 

.00000 

.31703 

-.16698 

-.76529 

.1363 0 

. 1103+01 
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6.5 EXAHPLE PROBLEM H 4. THICK»WING ANALYSIS CCONTIKUED) 


J08FLAG 12349678 
VALUE 10 10 10 0 0 $ 9 9 


9 10 11 12 13 14 19 16 IT 18 19 20 
000000000112 


EXAKPLE PROBLEM MO, 4 - THICK XIMC PROBLEM « HOD VHAHI 
ALPA> 10,00 MACWO- .0000 ALTI TICE •*•••♦* 


PAGE 

IT 


7* 

.0900 

.1900 

.2900 

.3500 

.4900 


1.000 
3. 000 
9.000 
T.OOC 
9.000 


.668 

.668 

.668 

.666 

.668 


SECTIOH AIRLOAO COEFPieilMTS-IURPACe NO.- 1/1 1. 21 


LOmt SURFACE 


1.000 

3.000 

5.000 
T.OOO 

9.000 


$CN 

.9266 
.946 9 
.9796 
.9676 
.6172 


sex 

.1357 

.1384 

.1326 

.2213 

‘.0015 


SCL 

.8892 

.9065 

.9377 

.9344 

.6061 


SCO 

.1849 

.1839 

.1924 

.2100 

.1069 


IMP C/4 SCLC/e 


-.7111 

-.6830 

-.5930 

-.4762 

-.0657 


.4446 

.4543 

.4689 

.4672 

.3041 


IXL 

.0574 

.0616 

.0690 

.1006 

.1225 


IW. 

,0000 
. oooo 
.0000 
.0000 
.0000 


1£L 

-.9984 
-.9981 
9976 
-. 9949 
-.9925 


SECTION AIRLOAO COEf FICtENTS-SORF ACE NO.- 2/1 1, 2) 

«*««««*««««4*a44«4*44«*4*4**44*4**— ** *<!•••* 4«4«***« 


UPPER SURFACE 


J 

Y* 

V 

z 

H 

SCN 

sex 

SCL 

SCO 

SHP C/4 

SCLC/B 

IKL 

IVL 

121 

17 

18 

19 

20 
21 

.0500 

.1900 

.2900 

.3900 

.4500 

1.000 

3.000 

5.000 

7.000 

9.000 

-.668 

-.668 

-.668 

-.668 

-.668 

21.000 

23.000 

25.000 

27.000 

29.000 

-.1651 

-.2141 

-.3032 

-.4921 

-.2507 

.0921 

.1103 

.1480 

.0445 

.2142 

-. 1786 
-.2300 
-.3243 
-.4923 
-.2841 

-.0127 

-.0180 

-.0270 

-.0777 

-.0063 

.6512 

.6162 

.5209 

.3681 

.1903 

-.0693 

-.1150 

-.1622 

-.2462 

-.1421 

.0459 

.0479 

.0670 

.0680 

.2801 

-.OOOO 

.0000 

.0000 

.0000 

.0000 

.9989 

.9989 

.9978 

.9977 

.9600 


INTEGRATED AIRLOAO CDEFFIC lENTS-SURFACE NOS.- 1-2 

««»**a**a*********«***«*«***a«***a***«»«-««4*4«*«4« 


E 

EON 

ECX 

ECV 

ECL 

ECO 

1 

.8909 

.1293 

.0000 

. 8556 

.2781 

1 

.0003* 

.0003* 

. oooo* 

.0002* 

.0003* 

2 

.2850 

.1218 

.0000 

-.3019 

.0705 

2 

*0000* 

.0000* 

. oooo* 

.0000* 

.0000* 

JOBFLAC 1 2 

3 4 5 

6 7 8 9 10 11 

12 13 1' 

VALUE 

10 10 

10 0 0 

5 5 5 

0 0 0 

0 0 t 


ECHP 

ECHR 

EC MY 

EX A 

E2A 

ES 

EN6C 

EB 

’.5014 

-.0000 

.0000 

.00 

.73 

200.00 

10.00 

20.00 

.0001* 

.0000* 

.0000* 

.00* 

.73* 

200.00* 

10.00* 

20. 00* 

.4645 

-.0000 

.0000 

.00 

-.73 

200.00 

10.00 

20. 00 

.0000* 

.0000* 

.0000* 

.00* 

-.73* 

200.00* 

10.00* 

20.00* 

15 16 IT 

18 19 20 

EXAHPLE 

PRDBL EM 

NO. 4 - 

THICK NINE PROBLEM 

AERODYNANI PAGE 

0 0 0 

1 1 2 

ALFA* 10*00 

MACHNO'i 

.0000 

ALTITUDE-****** 18 


AC .6058 

CC .6058 

AC .0003* 

CG .0003* 


.24TI 

.2471 

.0003* 

.0003* 


.0000 

.0000 

. 0000 * 

. 0000 * 


••• AIRLOAO SUMS *•* 


WRIEX-hATnCE SOXmiORS TOR TRICK WIRG il, S) 
C, - 0.5537, = 0.3465, C„ = -0.0371 

u u. 


.5537 
.5537 
. 0002 * 
. 0 002 * 


.3485 

.3439 

.0003* 

.0003* 


-.0190 

-.0371 

. 0001 * 

. 0001 * 


-.0000 

-.0000 

. 0000 * 

. 0000 * 


.0000 

•OOOO 

. 0000 * 

.0000* 


.00 

.00 

.00* 

.00* 


.73 

.00 

,73* 

.00* 


200.00 

200.00 

200 . 00 * 

200 . 00 * 


CC/4) 

10.00 

10.00 

10 . 00 * 

10 . 00 * 


20.00 
2 0.00 
20 . 00 * 
20.00* 


* OETERRINANT- .4360*23 « SCALE- .6619-01 • 


J06FLAG 1 2 3 

VALUE 10 LO 10 




9 10 11 12 13 14 15 16 17 16 19 20 
000000000112 


EXAMPLE PROBLEM NO. 4 - THICK wINO PROBLEM AEROOVNAHI 
ALFA- 10.00 MACMNO- .0000 ALT I TICE -•♦•••• 


PAGE 

19 


SECTION AIRLOAO C0EFF1CIENTS-5URFACE N0.= 3/1 3. 31 

• «»**** t**—*******#***** *•*•»••*»««*•*• ********** 


J 

Y* 

Y 

z 

u 

SCN 

sex 

SCL 

SCO 

SHP C/4 

SCLC/e 

IXL 

IVL 

IZL 

28 

29 

30 

31 

32 

.0500 

.1500 

.2900 

.3900 

.4500 

1.000 

3.000 
5. COD 
T.OOO 

9.000 

.000 

.000 

.000 

.000 

.000 

41. 000 

43.000 

45.000 

47.000 

49. 000 

.5577 

.5416 

.5067 

.4437 

.3261 

-.0519 

-.0491 

-.0426 

-.0301 

-.0151 

.5583 

.5419 

.5064 

.4422 

.3238 

.0878 

.0855 

.0806 

.0718 

.0540 

.0031 

.0029 

.0014 

-.0045 

-.0191 

.2791 

.2710 

.2532 

.2211 

.1619 

-.0090 

-.0086 

-.0080 

-.OOTl 

-.0152 

. OOOO 
.0000 
.oooo 
.0000 
.0000 

- 1 . oooo 
- 1 . oooo 
-1.0000 
- 1 . oooo 

-. 9999 





INTECRAIEO AIRLOAO COEFFICIENTS-SURFACE NOS 

.•3-3 





E 

ecN 

ECX 

ECY 

ECL 

ECO 

ECHP 

EC MR 

EC MY 

exA 

EZA 

ES 

EMGC 

66 


.0000 

. 0000 * 

.0000 

. 0000 * 

.4T52 

.0378* 


.0000 

. 0000 * 

.0000 

. 0000 * 

-.0378 

.0378* 


.0000 

. 0000 * 

.0000 

. OOOO* 

.0000 

. 0000 * 


.0000 

.0000* 

.0000 

. 0000 * 

.4745 


.0000 
. 0000 * 
.0000 
.oooo* 

.0453 


.0000 

.0000* 

.0000 

.0000* 

-.0032 


,0306* .0438* .0094* 


.0000 

,0000* 

.0000 

.0000* 

.0000 

.0000* 


.0000 

.0000* 

.0000 

.0000* 

.0000 

.0000* 


.00 

.00* 

.00 

.00* 

.00 

.00* 


.73 

.73* 

-.73 

-.73* 

.00 

.00* 


200.00 

200 . 00 * 

200.00 

200 . 00 * 

200.00 

200 . 00 * 


10.00 

10.00* 

10.00 

10.00* 

10.00 

10 . 00 * 


20. 00 
20 . 00 * 
2 0 . 00 
20. 00* 
2 0 . 00 
2 0 . 00 * 


*** AIRLOAO SONS ♦** 


AC 

CG 

AC 

CG 


.4752 

.4752 

.0378* 

.0378* 


-.0378 

-.0378 

.0378* 

.0378* 


. OOOO 
. OOOO 
. 0000 * 
. 0000 * 


.4745 

.4745 

.0306* 

.0306* 


.0453 

.0453 

.0438* 

.0438* 


-.0060 

-.0032 

. 0122 * 

.0094* 


.0000 

.0000 

. 0000 * 

.0000* 


.0000 

.0000 

. 0000 * 

. 0000 * 


.00 

.00 

.00* 

.00* 


* DETERMINANT- .3470*12 • SCALE- .8600-01 « 


.73 

,00 

.73* 

.00* 


200.00 

200.00 

200 . 00 * 

200 . 00 * 


lO.OQ 

10.00 

10 . 00 * 

10 . 00 * 


20.00 

20.00 

20 . 00 * 

20.00* 


VORTEX-LATTICE SOLUTIONS FOR THIN WING (FLAT PLATE) 


0. 4745, Cjj = 0. 0453, 


= -0.0032 


(C/4) 


*♦•* JOB TIME- 74 / ELAPSED TIME- 74 / NO. PLOT FILES- 3 / NSURf EXEC, VERSION 6-18-72 •••• 

******#*******•<* ♦**»*•»*•***•**♦♦•**•*••••••♦•♦••»»*»»*•**•**•♦*•*•**••• •*•**•*•*•*••***••♦♦• 

a********************************************************************************************* 

XQT TRWPLT OUTPUT (FITTED 
SEE INPUT-DATA LISTINGS 
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6.6 EXAMPLE PROBLEM « 5, 0EBl6-PRm OUTPUT DPTIONS 


SUBSONIC-FLOW LIFTING SURFACE ANALYSIS PR06HAM HaOIOB 
TRW systems INC., HOUSTON OPERATIONS 
HOUSTON, TEXAS (77Q5H) 


•••* JOBS INPUT list •••• 


7 XOT NSJRF 

ExamPLF N 0,b - DEBOG-DUMP OEMONSTHAT | ON/ NFlC(Z 0)= 0 

Task t ~ 2 . projpct 3303 a, njo 147033, aerodynamic analysis and design 

SuHSDVIC-FlOw lifting SURFACE ANALYSIS, TRw PROGRAM NO, HAOIOB (NSURFI 

A. V, GOMEZ/ 5 JULY 1972 


I INPUT 


NmING^I, 

NSS<1> = Z, •!CS{1)"2. NFLC(1)=3, NFLGtAHZ, NFLCdDoli 
X(l)=2«0-, r<l>=D,.10,, zci)> 2 «a., e(1)c 2*0., C<l)a2*lQ,, 
XOCd ) = D. ■!. r flAPDJ<1)» 10., NJ 0 a=l, ALFA* 5, MACHN" 0,, 
N'^Lctz: )= 0* 
send 

example no. 5 - OEBUC-DUMP demonstration/ NFlGIZO)* 1 

$ INPUT 

nfug<2-)= ;* 

It No 

Example no , 5 - deuuO-Ou«p demonstration/ nflc( 2 oi» 2 
$ INPUT 
NFLG(2J1- 2 . 
send 

example no, 5 - DEBUC-OUMP demonstration/ NFLCIZOJs 5 

SINPUT 

NFLGI2D)= 5, 


Send 

EXaMPlF mo. 5 - OEB'tC-OUMP demonstration/ NFLC12Q)= 5 
S INPUT 
NFL6(2:)= 8, 

Send 

Example no, 5 - oeb'JG-oump demonstration/ nflcizo)* 16 
s input 

NFLCT2C)= 16, NFLG(17>sl, 

SeNd 

SENDJObS 
7 XOT NSURF 


XOCR(1)<2»0.2S, 

NSOUV«l,i, 


JOBFLaG 

1 2 

3X567 

B 9 10 11 12 13 

VALUE 

3 0 

□ 3 0 2-1 

0 0 0 1 0 0 

SINPUT 

KOUT 

5 

♦ 6, 


KTl 

= 

♦ I. 


KT2 

s 

*S, 


KT3 

£ 

+3, 


LINK 

= 

*56, 


NWiNc 

= 

*1. 


NVTAIL 

= 

*0. 


NFUS 

2 

+0, 


colocp 

s 

. 760':o3oaE+oa, 


CUTOFl 

= 

.lOCJCaOOE-03, 


CUTOF? 

S 

.290000COE-02, 


LFLAP 

S 

+0. 


GSCALE 

= 

. 10333000t*Dl. 


NSS 

= 

+ 2, 

♦0. 

NCS 


+2, 

*0, 

X 

= 

.;3?3D30oe+ao. 

.ooooooooE*oo, 


example NO,b - OEflUG-DUMP DEMONSTRATION/ NFLC(20)» 0 
ALFA* ,00 MACHNO” ,0000 ALTITUDE******* 


Page 

1 


• ooooo:oof *00. 
.000O0:0QE+00, 
.OOOOOCOOE+00, 
. QOnnn - 


.aJooaDooE-*’Oc 
. Doa joooof*p" 



Il/SQ00DQE*0D 


.,rOL,Ua0E*00, 


zee 

S 

.OOO.OOOOE+OO, 

REPS 

= 

.100:0300E*Q4. 

REFC 

2 

.1O03DCIOOe+03> 

refb 

2 

,ioo'jooaoe+03i 

NJDB 

2 

+ 1 . 

ALFA 

2 

.5iC ,a30Qt+ai. 


■ nnoaocDOF-Do, 
■onanacooE-oo. 

• O00!J0:O0F.-*DD, 
•OOOOOJOCE*-Ij0< 
. oDDno:oof-*DO. 

MACHN : 
.000OC.'’.00E-,l30, 

.onoro oot:*oo 

HEIGHT = 

. 10000 r, DOE* 05, 
•10000200E+05, 
FLAPDj = 

. 00000 iOOf., 00, 
TABPJ s 
.C)PODO:OOF, CO, 
AlLOJ = 


.ddocoodde+oc, ,oooonoooE«-oo, 

. 3OOj 0OO3E*00, ,00000000t*00, .OQQODOQOE+OO, 

.3oaaooooE*co. .ooDOoooot+ou. tOOoooodoe+od, 

. aoo'jaaaoE+oo, .ooooooooe+oo, ,oooooooot+oo. 


. oaDooooaE+oo. 


,00000300e*DJ* 


.IOC- 


-■-oaoEtoo. 

,0CI030DO0E*0e 

, coa’JooooE+oo 

-’DOOUE+05* 

. iaaooaQOE+05 
. iQaacDooE+05 
:C0DBt+O2. 

, 330a0D03E+Oa, 

33:)0E+aa. .OC390000fc+00 

,:jaaoB03E*oo. 

::33Bfc+0B. ,3C3oaoo3t*ao 


aC300300E+B0, 

.ODOOBDOOE+OJ 

.ooDOoooOt+ao 

lCOOOOOOE+05. 

.iaoooooot*o 5 

.iooaoooQfc*o5 

OC30C333E+Oa, 


.□OOOQOaoE*OCI, 

BBOOBODOEfOO, 

,OOOOOOOOE*00, 

iooaooooE+05, 

■10000000E+05, 

BODODDOO£*00, 

BOaoaoooE+00, 
oaaaaaooE+oo, 


• C^DDC3*.OOF-»OOr 

. 3'J330DD3E+00, 

.003OOOQOt*OJ< 

.QODoaooat- 

.anonD.:ooF<-QOi 

.303:OU03e*00, 

. ao30oooot->'a3, 


NFLG = 

♦ 3. 

♦0, 

♦0, 

“ 1 

♦2, 

♦ 0. 

*0, 

4*--' , 

♦0, 

♦1. 

♦Oi 

♦ij/ 

♦0, 

*0, 

♦0, 

t 

♦1* 

+0, 

♦0< 

NSQLV = 

♦1, 

♦■I. 

♦o, 


*0 , 

*0, 

+0, 

*ri f 

+0. 

to, 

♦0, 


page is 

POOR QUALIxy 


»a. 


SEND 
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6.6 EXAMPLE PROBLEM « S. DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


JOePLiC 1 2 3 4 * 6 7 8 9 10 tl 12 13 14 H 16 17 16 1» 20 aX*MPL£ N0|3 - OEBUP-OUBP DEHONBmTJON/ NFL6(20>* 0 P*CE 

V4UUE 30CC0200001000000100 ALP** .00 NACHNO" lOOOO ALTITUDE •••••*• * 


LIPTING SURFACE NO» 1 


S=aN 

ROOT 

CHORn 

TIP 

CHORD 

ROOT 

TWIST 

TIP 

TWIST 

AREA 

ASPECT 

RATIO 

MEAN 

CHORD 

HOC 

(MAC) 

YBAR 

<MCCI 

XBAR 

(MCCI 

ZBAR 

IMCC] 

2 r..:ao 

. IC.CCO 

10.000 

.0000 

.0000 

200.00 

2.0000 

10,000 

10,000 

5,000 

,000 

,000 

FLAP 

S^aNI 

..,00 

FLAP 

SP4N2 

.60,1 

FLAP 

SPaNJ 

1.000 

FLAP 

QEFLEC 

10.000 

Tab 

QEFLEC 

,000 

l.ail 

OEFLEC 

.000 

R.AIL 

DEPLEC 

.000 

DIHEO, 

MCc/4 

.000 

SWEEP 

flCC/4 

.000 

NO, span 
ELEMENTS 
3 

NO, CHORD 
elements 
2 

NO chord 
D iScONT, 
1 




PUS ST4 
X(CC> 
,000 

WING STA 
Y(CC| 
<000 

WL STA 
Z(CS) 
,000 

AREA 

5CCG) 

1000,000 

CHORD 

C<CC> 

100.000 

SPAN 

a<cc) 

100,000 




ws 

Y 

2 

X(LE1 

X(C/4 > 

X(TS> 

TWIST 

DIHE(C/4) 

6WEP(C/4) 

C<WINO> 

CIPLAPJ 

CITaB) 


-10. COD 

-10.000 

.000 

-2,500 

iOQD 

7,9D0 

.000 

■ UDO 

.000 

10.000 

2.600 

li250 

-9 . 500 

-9. COO 

.300 

-2,500 

• 000 

7,500 

,000 

.000 

.000 

lO.OOQ 

2,500 

li25D 

-A . 500 

-« ,000 

.300 

-2,500 

• 000 

7,300 

.ODD 

.000 

• 000 

10.000 

2,500 

1«250 

-7 . 500 

-7,000 

.300 

-2,500 

• 000 

7,300 

• ODD 

.000 

.000 

lOiOOO 

2,500 

lt250 

-6. COD 

-6,000 

.000 

-2.500 

,000 

7,900 

.ODD 

.ODD 

.000 

10.009 

2.500 

It 259 

-5. COO 

-5.030 

.300 

-2.500 

.000 

7,500 

,000 

.000 

.000 

10.000 

2,»00 

1,250 

-4 . ,:no 

-4.000 

.330 

-2.500 

,000 

7.500 

,000 

.000 

.000 

19.000 

2.500 

1,250 

-3.500 

-3,000 

.300 

-2,500 

,000 

7,500 

,D00 

.000 

.000 

10.000 

2,500 

1,250 

-z.ino 

-7,000 

.300 

-2.500 

,000 

7,500 

.000 

.000 

.000 

lo.ooO 

2,500 

1,250 

-1 .200 

-1 ,ooc 

.000 

-2,500 

.000 

7,500 

.000 

.000 

.000 ■ 

10.009 

2,»0O 

1,250 

.500 

,0CO 

.000 

-2,500 

.000 

7,500 

.000 

.000 

.000 

10.000 

2,5Q0 

1,250 

1 . 500 

1 ,000 

.300 

-2.500 

.000 

7,500 

.000 

.000 

.000 

10.000 

2,500 

1,250 

2.S00 

2,000 

.000 

-2,500 

.000 

7,500 

.000 

.000 

.000 

10.000 

2,500 

1,230 

3.500 

3,030 

.000 

-2,500 

.000 

7,300 

.000 

.000 

.000 

10.000 

2,500 

1,250 

4.500 

4,000 

.000 

-2.500 

.000 

7,900 

.000 

.OQD 

.000 

10.000 

2,500 

1,250 

5.500 

5,300 

.000 

-2.500 

.000 

7.9D0 

.000 

.000 

.000 

10.000 

2,500 

1,250 

6 . 500 

6.330 

.000 

-2,500 

• 000 

7,500 

.000 

,000 

.000 

10.000 

2,500 

1,250 

7 . 500 

7,330 

.900 

-2.500 

.000 

7.500 

.000 

,000 

.000 

10.000 

2,500 

1,250 

8. COO 

a.aco 

.000 

-2.500 

.000 

7,500 

.000 

.000 

.000 

10.000 

2.5Q0 

1,250 

9.500 

9,OCO 

.000 

-2,500 

.000 

7,500 

• ODD 

.000 

.000 

10.000 

2,500 

1,250 

10. COO 

10,300 

.000 

-2.500 

• ago 

7,500 

.000 

.000 

.000 

10.000 

2.500 

1,250 


J09PLAG 1 2 3 4 5 6 7 9 9 10 11 12 13 14 15 16 17 IB 19 20 EXAMPLE NO, 5 - GEBUC-OUMP DEMONSTRATION/ NFLC<2DJ» 0 PaOE 

VIUUE 30CC020000100000D100 ALFA* ,00 MACMNO* .0000 ALTITUDE 5 


X4<l)/c X4(2)/C XA(3>/C X4<4)/C X4(5)/C XA(A>/C X4(7}/C X4(8)/C X4(9>/C X4<10)/C 

,0000 l.COOD .0000 .0000 .0000 .0000 .0000 ,0009 ,0000 ,0000 


Y Z4(l)/C ZA<2)/C 24(3)/C 24<41/C Z*(5>/C ZAt6>/C Z4(7I/C 24(61/0 ZA(9I/C ZA(10I/C 

.OOCO >0000 .0000 .0000 <0000 .0000 .0000 .0000 ,0000 ,0000 .0000 

10.g')70 tOOGO .0000 . 0000 .OOOO ,0000 .0000 ,0000 ,0000 ,0000 .0000 


section AIRLOAO COEFFIcIENTS-SURFACE no.. 1/( 1, 1) 


Y • 2 W SCN sex 5CL SCO SHP C/4 SCLC/B IXU lYL 12U 

-,000 ,030 ,000 ,4B7c ,0062 ,4846 ,0430 -.1245 .2423 ,0103 ,0000 -,9999 

6,667 ,000 6.667 ,3010 -.0247 ,3020 ,0241 ,0141 ,1510 ,0038 -,0163 -,9999 


0 ? ^ 


2 -.coon 

3 .3333 


integrated airload COEFFICIENTS-SURFaCE nos,* 1-1 


E ECN 

ECX 

ECY 

ECL 

ECD 

ECHP 

ECMR 

1 .3630 

-.0144 

.0000 

.3629 

.0173 

-.0321 

-lOOOg 

1 ,:is4. 

.0164* 

,0000* 

•0149* 

,0178* 

,0041* 

-.3000* 

JOBFLaG i 2 

3 4 5 

6 7 8 

» 10 11 

12 13 14 

15 16 l7 

1« 1’ 20 

value 3 0 

0 '3 a 

2 □ D 

0 0 1 

ODD 

0 0 0 

10 0 


••• AIRLOAD SUMS <«« 


AC 

. 3630 

-.0144 

.0030 

.3629 

.0173 

-.0321 

-.0000 

CG 

.3726 

-.0029 

.0030 

.0726 

.0035 

-.0006 

-.0000 

AC 

.3164. 

,3164* 

.□000* 

.0149* 

.0178* 

.0041* 

-,ODDD* 

CG 

.3033, 

,0033. 

.0000* 

.0030, 

,0036, 

,0001* 

-,0003* 


• determinant* ,1073*02 • SCALE 


»*»* JOB time* 1 / ELAPSED T|«t= 1 / NQ.PLOT FILES. 


eCMV EXA EZA E3 EMCC EB 

.,0000 ,00 ,00 200.00 10,00 20,00 

lOODO* .00* >00* 200,00« 10.00* 20,00* 


example no, 5 - DEBUC-OUMP DEMONSTRATION/ NFLG(20I» 0 PAGE 
ALFA* 5,00 MACHNO* ,0000 ALTITUDE******* 4 


0330 

,03 

.00 

203,30 

10,00 

20,00 

0003 

,00 

.00 

1000.30 

100,30 

100,00 

ODOa* 

.00* 

,00* 

200.00* 

lOtOO* 

20|00* 

3000, 

.00* 

.00* 

1000,00* 

100,00* 

100,00* 


,7042-01 • 


0 / NSURP EXEC, version 6-18-72 >*•• 


6-41 



6.6 EXAMPLE PROBLEM # 5, DEBUG-PRINT OUTPUT OPTIONS {CONTINUED) 



JO0PL*C 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 IB 19 20 EXAMPLE N0,!> - DEBOC-DUHP OEMONST«AT|ON/ NFLG(2D|X 1 PaOE 

Value 3ocoo2ooooiooooooidi alfa* ,oo machno* .0000 altitude******* t 




XAtU/C 

XA<2)/C 

XAI3)/C 

XA(4)/C 

XA(5)/C 

XA<6)/C 

XA(7]/C 

XAIBl/C 

XA(9l/C 

XAIlQI/C 



.0000 

1.0000 

.0000 

.0000 

• 0000 

.0000 

.0000 

.0000 

.0000 

,0000 

X 

V 

ZAlll/C 

ZA(2)/C 

ZaIAVC 

ZA(A)/C 

Za<5)/C 

ZA(6)/C 

ZAt7)/C 

ZAIBI/C 

74I9J/C 

ZAIlQI/C 

0000 

o:oo 

.ocoo 

lo.o::':' 

.□JOQ 

iDJOO 

.0000 

.0000 

.0000 

.0000 

.0000 
• 0000 

.0000 

.0000 

.0000 

.0000 

.0000 

<0000 

,0009 

.0000 

.0000 

.0000 

.0000 

.0000 


J 

K V 

Z 

«L 

Erf 

DWL 

DC 

D5 

1. 

1 -5.6ft7+Gr 

2.000 

6,667+C3 

6,667*00 

6.667*00 

7.500*00 

9,000*01 

2 

1 -5.960-08 

c.ooo 

OiOOO 

0,000 

6.667*00 

7.500*00 

5,000*01 

3 

1 6.667*01? 

2,000 

6 , 667*00 

6,667*00 

6.667*00 

7,500*00 

5,000*01 

1 

7 -6.667+oc 

3.00D 

6,667*00 

6,667*00 

6.667*00 

2.900*00 

1,667*01 

2 

2 -5.Nto-o8 

C.OOO 

OiOOO 

0.000 

6.667*00 

2.900*00 

1,667*01 

5 

7 6.667+oC 

0.000 

6,667*00 

6,667*00 

6.667*00 

2,900*00 

1,667*01 


J 

K 

XV 

rv 

ZV 

IXV 

lYV 

IZV 

XN 

Y\| 

ZN 

IXN 

lYN 

IZN 

1 

1 

-6.250-01 -1.000*01 

0,0C0 

0,000 

1.000*00 

0,000 

3,129*00 -6,667*00 

D.OOQ 

0,000 

0.000 

1, 000*00 

? 

1 

-6.250-01 -3,333*00 

0,000 

0,000 

1.000*00 

0,000 

3,125*00 -9.960-Q8 

0.000 

Q,000 

0,000 

1.000*00 

3 

1 

-6,250-01 

3.333*00 

0,000 

0.000 

1.000*00 

0.000 

3,125*00 

6,667*00 

0,000 

0,000 

0,000 

1.000*DD 

1 

2 

5.825+OC -1,000*01 

0.000 

0.000 

1,000*00 

0.000 

6,875*00 •6.667*00 

0,000 

0,000 

0,000 

1,000*00 

2 

2 

5,625*00 -3.333*00 

0.000 

0.000 

1.000*00 

0.000 

6,875*00 -9,960-08 

0,000 

0.000 

0)000 

1,000*00 

3 

2 

5.625+OG 

3.333*00 

0.000 

3.000 

1.000*00 

0.000 

6,879*00 

6,667*00 

0,000 

0,000 

0,000 

1,000*00 


Section ajrload coefficients-burface no,» i/t 1, d 


J 

Y* 


Y 


1 


W 

5CN 

sex 

SCL 

SCO 

SMP c/4 

SCLC/B 

IXL 

iyl 

IZL 


2 - . 

coot) 


,ol; 


.□uo 


,000 

.4870 

,0062 

,4846 

,0430 

-.1245 

.2423 

,3103 

,0000 

-.9999 


3 

3333 

6, 



.000 

6 

.667 

.3010 

-.0247 

.3020 

.0241 

.01*1 

.1510 

.0038 

-.0X63 

-,9999 


JObFLaC 

1 2 

3 

4 

5 

6 7 8 

9 

10 11 

12 13 14 

15 16 17 

16 19 20 

example no, 5 

- DE0UC-OUMP DEMONSTRATION/ 

NFLC(2D}. 1 

Page 

Value 

3 0 

c 


0 

2 0 0 

0 

0 1 

0 0 0 

0 0 0 

10 1 


ALFA* 5, 

DO MACHNO* 

,0000 

altitude 


8 


integrated airload COEFFICIENTS-SURFACE NOS.s 1-1 


e 

EON 

ECX 

ECT 

ECL 

ECD 

EC«P 

eCMR 

ECMY 

EXA 

EZA 

£S 

EMQC 

E0 

1 

.3630 

-, 3144 

.0000 

,3629 

,0173 

-.0321 

-.0000 

-.0000 

,UQ 

.00 

203.00 

10.00 

20,00 

1 

■:i64. 

.3164* 

.0030* 

.0149* 

.0178* 

.0041* 

-,0000* 

,0000* 

lOO* 

.00* 

200,00* 

10,00* 

20,00* 







»»» AIRLOAD 

SUMS ••• 







AC 

,3630 

- .0144 

.0030 

.3629 

.0173 

-.0321 

-,0000 

-,0000 

,00 

.00 

200,00 

10,00 

20.00 

CG 

.;726 

- , 0024 

.0000 

.C726 

.0035 

-.0006 

-,0000 

-.0000 

,00 

.00 

1000,00 

100,00 

100,00 

AC 

i vl64» 

i Jl64» 

.0030* 

,0149* 

,0178* 

, 0041* 

-.0000* 

,0000* 

,00* 

.00* 

200.00* 

10.00* 

20,00* 

CG 

. 1033. 

.cr33» 

.0030* 

.0030* 

.0036* 

. OOOl* 

-,0000* 

,0000* 

,00* 

.00* 

1003.30* 

100,00* 

100,00* 


* DETERMINANT* ,1073+02 • SCALE* ,7042-Ul * 


.. + • .JOB TJMt= 1 / ELAPSED TIMES 2 f 'JO, PLOT FILESs 0 / NSURF EXEC, VERSION &-18-72 ***• 



JOBFLaG 1234567H9 
VALUE 3a C7020CD 



10 11 12 13 14 15 16 17 18 19 20 EXA’^PLE NO, 5 - 0E8UG'CIIJMP DEMONSTRATION/ NFLG<2D)* 2 PaG£ 
01000000102 ALFA* ,00 MACMNO* ,0000 ALTITUDE******* ll 




XAt D/C 

XA(2J/C 

XAI3)/C 

XA(41/C 

XA(5)/C 

XA( 6)/C 

XA<7)/C 

XAI8I/C 

Vit91/C 

XAIlO)/C 



.0300 

1.0000 

,0000 

.0000 

.0000 

.ouoo 

.9000 

.0000 

,0000 

.3000 

X 

Y 

ZaI 1 )/C 

ZA(21/C 

ZA<3)/C 

ZAt4)/C 

2A<5)/C 

ZA<6)/C 

ZAC71/C 

ZA(8)/c 

Za(9>/C 

ZA(10)/C 

a --00 
a. 00 


iCJOO 
■ 0300 

.0000 

.0000 

,U000 

.0000 

• 0000 
.0000 

.ODDD 

.0000 

.0000 
■ auoo 

.0000 

.0003 

.0000 

.0300 

.OOQO 

.0000 

, 0000 
, 0000 


I WL E«l DWl DC OS 

\ ’ •*"^6^+0? O.OOO 6,667+CO 6,667*00 6.667*00 7,500*00 5,000*01 

2 1 -5. 60-08 '.•.000 0,000 O.OOO 6,667*00 7,500*00 5,0D0*Q1 

3 1 6.667*0n O.OOO 6,667*00 6,667 *qO 6>667*D0 7,500*00 5,000*01 


ORIGINAL PAGE IS 
OP POOR QUALIW 


6-42 



6.6 EXAMPLE PROBLEM i S, DEBUG-PRIWT OUTPUT OPTIONS (COmiKUED) 


1 

2 -4.A67*tlo 

0.000 

6|467*0Q 

«,6»7*00 

«.*«7«00 

>••00*00 

2 

2 -5.960-0* 

0.000 

OfOOO 

0.000 

6.667*00 

2,»00*00 

3 

7! 6.Aft7*[|o 

C.DOO 

6«667*oo 

6 1 647*00 

6.667*00 

2.500*00 


J 

K 

XV 

rv 

2V 

IXV 

lYV 

IZV 

1 

1 

-6.?S0-Qt 

-1.000*01 

0,000 

0,000 

1.000*00 

0,000 

2 

1 

-6.250-01 

-3.333+OD 

0.000 

0,000 

1.000*00 

0,000 

3 

1 

- 6 . 25Q-01 

3.333*00 

0,000 

0.000 

1,000*00 

O.OOD 

1 

2 

5.625*00 

-1.000*01 

0,000 

0,000 

1.000*00 

0,000 

2 

?. 

5.625+00 

-3.333*00 

0,000 

D.OOO 

1.000*00 

O.OOQ 

3 

2 

5 . 625+00 

3.333*00 

O.OOQ 

0.000 

1.000*00 

O.DDO 


1,647*01 

1,667*01 

1,647*01 



• 


XN YR 

2N 

ixK 

lYN 

IZN 

3,125*00 *6,667*00 
3,125*00 *3.960-08 
3,125*00 6,667*00 

0,000 

0,000 

0,000 

0,000 

0,000 

0,000 

0,000 

0,000 

0,000 

1,000*00 

1,000*00 

1,000*00 

6,875*00 *6.667*00 
6,875*00 *5,960-0* 
6,875*00 6,667*00 

0.000 

0.000 

0,000 

0,000 

0,000 

0,000 

0,000 

OtOOO 

0,000 

1,000*00 
1,000*00 
1 ,000*00 


LIFT D{STR[BUTtQKI DETA lU-SUnFACE NO,« l/l 


J 

K 


P(X) 


P(Y> 

P(Z) 

AREA 

CPN 

5(X) 

ClY) 

C{Z) 

VKKJ 

VKY) 

WKZ) 

6AMA 


1 


-.625 


-6,667 

.000 

50.0000 

,392* 

.01314 

,00000 

,99673 

,00054 

.00564 

,00332 *, 

1472*01 

1 

2 


5.620 


-6.667 

.054 

16,6467 

.090> 

•tOOllO 

-.01427 


,00»9 

•,00*72 

,09o88 *, 

>780*01 




















— 


— 


JObFLAG 

1 

2 3 

4 

5 6 7 

8 9 10 

11 12 13 14 

13 16 17 

18 19 20 

example 

NO, 5 - 0EBUa*DUHP 1 

D8«ON8T«*TION/ 

NFLC<20}» 2 PAGE 

value 

3 

0 0 

0 

0 2 0 

0 0 0 

10 0 0 

0 0 0 

10 2 

ALFA* 5,00 

HACHNO* , 

0008 ALTTTUoe< 


1* 

2 

1 


-.625 


-.000 

.000 

50.0000 

,3178 

-.01521 

. 00000 

1,0Q1$0 

.00541 

,00000 , 

,10236 *, 

1192*01 

2 

? 


5.616 


-.000 

.109 

16,6467 

,9942 

-.01031 

. 00000 

,99872 

,00253 

,00000 1 

,09747 *, 

12*3*01 

3 

1 


-.625 


4.667 

.000 

50,0000 

.3925 

.06384 

.00000 

,99673 

,00054 


,00332 

1472*01 

3 

2 


5.62r 


6.667 

.054 

16.6467 

.0302 

*,Q038a 

,01427 

,9«a?3 

,00287 

,00472 1 

,09088 *, 

5780-01 




' 



SECTION AIRLOAD 

COEFFICtENTS-GunFACE 

NO,* 1/1 

ll 11 





J 


Y« 


Y 

Z 

w 

SCN 

sex 

scu 

SCO SUP g/4 SCLC/B 

tXL lYL 

IZL 


2 


GGOa 


000 

.000 

.000 

,4870 

,0042 

,4044 

,0430 - 

,1245 

,2423 

,0103 .0000 

-,9999 

3 

.3333 

6i 

,667 

.OOO 

6,667 

.3010 

-.0247 

.3020 

,02*1 

.01*1 

,1510 

,0038 *.0163 

-,9999 



intecratEo airload COEFFICIENTS-SURFACE N0S,» 1-1 


E 

ECN 

ECX 

ECY 

ecl 

ECD 

ECMP 

ecmr 

ecmy 

EXA 

EZA 

E3 

EmCC 

eb 

1 

,363n 

-.0144 

.0000 

.3629 

,0173 

-.0321 

',0000 

,0000 

,00 

.00 

200,00 

10,00 

20,00 

1 

,C164. 

.0164+ 

,oaoo» 

.0149* 

,0178* 

.0041. 

-,0000* 

.0000* 

.00* 

,00* 

200,00* 

lOiDD* 

20,00* 






«« 

• airload sums •*• 







AC 

, 363n 

-.0144 

.0000 

.3629 , 

,0173 

-.0321 

- , 0000 

.0000 

,00 

.00 

200,00 

10,00 

20,00 

CG 

.072'' 

-.0029 

• ODDO 

.o726 I 

,0d35 

-.0004 

-,0000 - 

.0000 

,00 

.00 

1000,00 

100,00 

100,00 

AC 

.C14*+ 

<0164* 

,0000* 

,0149* 

,0178* 

.0041* 

*,0000* 

,0000 + 

,00* 

,00* 

300.00* 

lOiOO* 

20,00* 

CC 

, 0033* 

.0033* 

.0000* 

.0030* 1 

, Oq36* 

.0001* 

.,0000* 

.0000* 

,00* 

.00* 

1000,00* 

100,00* 

100,00* 





• DETERMINANT* 

,1073*02 * SCALE* 

,7042 

-01 • 







••«+ JOS 

TIME* 1 

/ ELAPSED 

TJME* 

3 / NO, 

,plot files* 

0 / 

N8URF EXEC 

, version 6-18-72 





JOBFLaG 

Value 

1 

2 3 4 

5 6 7 8 

9 10 11 

12 13 14 15 

16 17 18 

19 20 example no, 5 

- DEBUG- 

DUMP DEMONSTRATION/ 

NFLC(ZO)* 



0 2 D □ 

0 0 1 

0 0 0 0 











XAtH/C 

XA(2)/C 

XAt3)/C 

XAI4>/C 

XA(5)/C 

XAt6)/C 

XA(7)/C 

XA(8)/C 

XAC9I/C 

XA(10>/C 




,0000 

1.0000 

.0000 

,0000 

.0000 

.0000 

.0000 

,0000 

.0000 

.ODOD 

X 


Y 

ZAtU/C 

ZA(2)/C 

ZAt31/C 

Za{4)/C 

ZA<5J/C 

ZA(6)/C 

ZA(7)/C 

ZA(8)/C 

74(9)/C 

ZAtlO)/C 

.00 

00 

.ODCO 

.0000 

.0000 

.0000 

■ DODO 

.0000 

.0000 

.0000 

,0000 

,0000 

.0000 

.0000 

10 . DCCO 

,0000 

.0000 

,0000 

,0000 

.0000 

.0000 

.0000 

.0000 

,0000 

.0000 


PACE 

15 


J 

K y 

Z 

«L 

EW 

OWL 

OC 

us 

1 

1 -6.667+50 

J.OOO 

6,667+00 

6,667+00 

6.667*00 

7,500*00 

5,000*01 

2 

1 -5.960-DP 

0.000 

0,000 

0.000 

6,667*00 

7,500*00 

5,000*01 

J 

1 6.667+00 

0.000 

6,667+00 

6,667+00 

6.667*00 

7,500*00 

5.000*01 

1 

2 -6.667+00 

5.000 

6.667+00 

6.667+00 

6.667*00 

2.500*00 

1.667*01 

2 

2 -5.960-D«I 

0.000 

0,000 

0.000 

6.667*00 

2.500*00 

1 1647*01 

3 

2 6. 667+00 

0.000 

6.667+00 

6,64 7*00 

6.687*00 

2,500*00 

6-43 

1,667*01 


F 



6.6 EXAMPLE PROBLEM « S. DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


J 

K XV TV 

ZV 

IXV 

irv 

12V 

XN 

YN 

2N 

ixN 

lYN 

12N 

1 

1 -5.250-01 -1.000401 

0,000 

0,000 

1,000+00 

0,000 

3,125*00 •6,667+00 

0,000 

0,000 

0,000 

1,000+00 

2 

1 -6.250-01 -3. 333+00 

0.000 

0.000 

l.DDD+DO 

0.000 

3,125*00 -5, 960-08 

Q.OQO 

0,000 

0,000 

1,000+00 

3 

1 -6.250-01 3.333*00 

0.000 

0.000 

1,000*00 

0,000 

3,123*00 

6,667*00 

0.000 

0,000 

0,000 

1,000+00 

1 

2 5.625+00 -1. 000*01 

0,000 

0.000 

l.OOO+OD 

D.OOO 

6,675*00 >6,667*00 

0,000 

0,000 

O.OOO 

1,000+00 

2 

2 5.625+00 -3.333+00 

D.OOO 

D.OOO 

1.000*00 

0.000 

6,875*00 >5,960-00 

0.000 

O.OOO 

0.000 

liOOO+OC 

3 

2 5.625+00 3,333+00 

0.000 

O.OOO 

l.OOO+OO 

0.000 

6,875*00 

6.667+00 

0,000 

0,000 

0.000 

1,000+00 


VORTEX LATTICE MATRIX DET* IL-SURFtCE NO,. 1/1 1, 1) 


J 

K 

NP 

NC VFSIMaTI 

VIN(MAT) 

P(X) 

P(¥) 

P(Z) 

BIX) 

BIY) 

BIZ) 

DIX) 

D(Y) 

DIZ) 

2 

1 

1 

1 -.A716-D1 

, 1113+00 

,3125+01 

-. 5960-07 

.0000 

-, 6250+00 

•, 3333*01 

,0000 

-, 6230*00 

, 3333*01 

,0000 

2 

1 

1 

2 -.8716-01 

-.5010-01 

. 3125+01 

-. 5960-07 

• 0000 

-. 6250*00 

, 3333*01 

,0000 

-. 6230*00 

,1000*02 

.0000 

2 

1 

1 

3 -. 8716-01 

. 2476-01 

. 3125+01 

-. 5960-07 

.0000 

, 5616*01 

., 3333*01 

, 1065*00 

, 5616*01 

, 3333*01 

, 10 « 5*00 

2 

1 

1 

4 -. 8716-01 

- , 66B8 > Q1 

, 3125*01 

-, 5960-07 

.ODOO 

, 5616*01 

, 3333*01 

, 1065*00 

, 5625*01 

. 1000*02 

,0000 

3 

1 

2 

1 -. 8716-01 

•, 25a5 > 0l 

. 3125*01 

, 6667+01 

,0000 

-. 6250*00 

., 3333+01 

,0000 

-. 6230*00 

. 3333*01 

.0000 

3 

1 

2 

2 -. 8716-01 

. 1072*00 

, 3125+01 

, 6667+01 

.0000 

-, 6250*00 

, 3333*01 

,0000 

-. 6230*00 

, 1000*02 

• OOOQ 


JOBFLAC 

1 

2 

345 

6 7 8 

0 ID 11 12 

13 l4 l5 

l6 17 16 : 

19 20 example no , 5 

- DEBUC-DUMP DEMONSTRAYIOn/ NFLC(2Q)» 5 

value 

3 

0 

0 L' 0 

2 0 0 

0 0 10 

0 0 0 

0 0 1 

C 5 

ALFA" 5, 

,00 MACHNO" 

,0000 , 

ILTITUDE"*«< 


J 

K 

NP 1 

NC 

VFS(MAT) 

VINIMAT) 

P(X> 

PlY) 

P(Z> 

BIX) 

B(Yl 

BIZ) 

OIX) 

OlY) 

OIZ) 

3 

1 

2 

3 - 

.8716-31 

-.3346-01 

,3125+01 

,6667+01 

,DO0D 

,3616+01 

-,3333+01 

,1055*00 

,5616*01 

,3333+01 

,1085*00 

3 

3 

2 

4 - 

.8716-31 

.2002-01 

.3125+01 

, 6667*01 

,0000 

,5616+01 

,3333+01 

,1055*00 

,5625*01 

,1000+DZ 

,0000 

2 

2 

3 

1 - 

. 2588+30 

,9435-01 

,6847+01 - 

.5960-07 

,3256+00 

-.6250*00 

-,3333+01 

,0000 

,6250*00 

,3333*01 

.0000 

2 

7 

3 

2 - 

.2588*00 

-.5275-01 

.6847+01 - 

,5»6o-07 

.3256*00 

-.6250*00 

,3333+01 

,0000 

,6250*00 

,1000+02 

<0000 

2 

7 

3 

3 - 

.2588+00 

,1814+00 

,6847+01 - 

,5960-07 

,3256*00 

,5616+01 

-,3333+01 

,1065*00 

,3616*01 

,3333*01 

,1085*00 

2 

2 

3 

A - 

, 2588+00 

-.3772-01 

,6847*01 - 

.5960-07 

,3256*00 

,5616*01 

,3333+01 

,1085*00 

,9625*01 

.1000*02 

.0000 

3 

2 

4 

1 - 

,8716-01 

-.2831-01 

.6875+01 

, 6667+01 

.0000 

-,6250*00 

-.3333*01 

,0000 

,6250*00 

,3333*01 

.0000 

3 

2 

4 

2 - 

.8716-01 

.9421*01 

,6675+01 

,6667+01 

.0000 

6250*00 

,3333*01 

,0000 

.6250*00 

.1000*02 

.0000 

3 

2 

A 

3 - 

.8716-01 

-.1977-01 

.6875*01 

,6667^0l 

.0000 

,5616*01 

-,3333*01 

,1065*00 

,S6i6*0t 

.3333*01 

,1085*00 

3 

7 

A 

4 - 

. 8716-01 

,1/95+00 

,6875+01 

, 6667+01 

■ OQQO 

,5616*01 

,3333+01 

,1085*00 

,5625*01 

,1000*02 

.0000 


LIFT distribution DET*IL-5URF*CE NO.. l/( I, II 


J 

K 

P( X) 

P(Y) 

P(Z) 

AREA 

CPN 

C(X> 

C(Y) 

CIZ) 

VltX) VIlY) 

VlIZl 

GAMA 

1 

1 

-.625 

-6 . 657 

.ODD 

50,0000 

.3925 

,08384 

.00000 

,99673 

•00054 .00568 

.00332 • 

1472*01 

1 

2 

5.62r 

-6,667 

.054 

16,6667 

.0302 

-,00360 

-.01627 

,99893 

.OO 28 Y ■, 00472 

,09q8A - 

3780-01 

2 

1 

-.625 

-.000 

.000 

5o >0000 

,3178 

-.01521 

.00000 

Ii00l60 

.00541 ,00300 

,10236 - 

1192*01 

2 

2 

5.616 

-.000 

,109 

16,6667 

,9942 

-.01031 

.00000 

,99872 

.00253 ,00300 

,09747 • 

1243*01 

3 

1 

-.625 

6.667 

.OCQ 

50,0000 

.3925 

,08384 

.UOOOO 

,99673 

.00054 .,oq56B 

,00332 - 

1472*01 

3 

? 

5,62n 

6.667 

,054 

16,6667 

,0302 

-.00380 

.01627 

,99893 

.00287 ,00*72 

,q9o88 • 

378Q-01 





SECTION airload 

coefficients-surface 

NO," l/t 

1. 1) 




J 


Y* Y 

Z 

u 

SCN 

sex 

SCL 

SCO SMP 

■ C/4 SCLC/B IXL lYL 

IZL 


2 


,C0OP -,000 

,009 

.000 

.4870 

,0062 

,4846 

,0430 

1245 

,2423 ,9103 .0000 

-.9999 

3 


,3333 6,667 

,00a 

6,667 

.3010 

-.0247 

,3020 

,0241 

0141 

.1510 ,0038 -.0163 

-,9999 


JOBFLaC 1 2 3 A 5 6 7 6 9 10 11 12 l3 n 15 16 17 18 l9 20 EXAMPLE NO, 5 - DEBUC'DUMP DEMONSTRaT I 0N7 NFLCtZO)* B PACE 

value 30'-:02000aiOD0000105 ALFA* 5.00 MAcMND* ,0000 ALTITUflE******* 17 


INTEGRATED AIRLOAD C0EFFICIENT5-SUHFACE Nps.a 1-1 


E 

LCM 

ECX 

bCY 

ECL 

ECD 

ecmp 

ecmr 

ECMY 

EXA 

EZA 

ES 

EMCC 

EB 

1 

,363t! 


.0030 

.3629 

.0)73 

-.0321 

-.0000 

-,0000 

,UI] 

,00 

200,00 

10,00 

20,00 

1 

•:i64. 

. J164» 

,0030" 

.0149" 

.0178" 

.0041 + 

-.0000* 

,0300* 

,D0* 

.DO* 

200,00" 

10,00* 

20,00* 







AIRLOAD 

SUMS ••* 







AC 

.363f, 

-,:i*4 

.0000 

.3629 

.0173 

-.0321 

-.0000 

-.0000 

,00 

.00 

200.00 

10,00 

20>0Q 

CG 

7?6 

-.3029 

.0030 

.0726 

.0035 

-.0006 

-,0000 

-.0000 

,00 

.DO 

lUOO.OO 

100,00 

100.00 

AC 

. 'l64* 

,•■154" 

.0030" 

.0149" 

.0178" 

.0041" 

-.0000* 

,0000* 

,1)0* 

,00* 

209,00* 

lOiOO* 

20,00* 

cc 

.0033» 

.:.033« 

.0030" 

.0030" 

.0036* 

.0001" 

-,0000* 

.0000* 

.(IQ* 

• DO* 

1009. OO" 

100,00* 

100,00* 


• 0ETERI1INAMT= .1073+02 • SCALE" , 70A2-01 « 


• J0*» TIME= 1 / elapsed TIME" 4 / NO, PLOT FILES" 0 7 NSURF EXEC. VERSION 6*18-72 •••• 


OF ?0C3, Q'-JAU": 
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6.6 EXAMPLE PROBLEM i 5, OEBU6>PRINT OUTPUT OPTIONS (CONTINUED) 


JOBFLAC 1 

Value 3 

--J 

2 3 4 

0 0 0 

9 6 7 6 

0 2 0 0 

9 10 11 
0 0 1 

12 13 14 19 
0 0 0 0 

16 IT 16 
0 0 1 

19 20 example N0,» 
0 6 ALFA* 1 

- OEBUO'OUMP OeHONETHATJON/. 
iOO MAcHNO* ,0000 ALmucE* 

NFL6(20>* • ^AM 

,*•*••• 20 



XAIlI/C 

XAI21/C 

XA(3)/C 

XM4t/C 

XACSI/C 

XAC61/C 

XA<7)/C 

XA|B>/C 

XA(9)/C 

XKtOl/C 



,0300 

1,0000 

,0000 

,0000 

,0000 

,0000 

,0000 

,0000 

• 0000 

,0000 

K 

V 

zaui/c 

ZAI2I/C 

Z4(JJ/C 

ZA<4)/C 

IA<5»/C 

ZA161/C 

ZAI7)/C 

ZA(B)XC 

ZAC9VC 

ZAIlOI/C 

.0000 

.0000 

.0020 
10 . 0030 

,0300 

,0300 

,0000 

.0000 

,0000 

,0000 

• 0000 
■ OOOO 

,0000 

,0000 

.0000 

.0000 

,0000 

,0000 

,0000 

,0000 

,0000 

.oooo 

.0000 

.0000 


J 

X Y 

Z 

WL 

ew 

□ ML 

OC 

□ S 

1 

1 -6.667+00 

3.000 

6,667+00 

6,667*00 

6,667*00 

7,900*00 

9,000*01 

2 

1 -5.9.')0-0e 

O.ODD 

0,000 

0,000 

6.667*00 

7.900*00 

9,000*01 

J 

1 6.667+00 

3,000 

6,667+00 

6,667*00 

6.667*00 

7,900*00 

9,000*01 

1 

2 -6. 667*00 

0.000 

6.667*00 

6,667*00 

6.667*00 

2.900*00 

1,667*01 

2 

2 -5.960-08 

0.000 

0.000 

0,000 

6.667*00 

2,900*00 

1,667*01 

3 

2 6.667+00 

0.000 

6.667*00 

6,667*00 

6.667*00 

2,900*00 

1,667*01 


J 

K XV YV 

ZV 

txv 

lYV 

12V 

XN Yn 

ZN 

IXN 

lYN 

12N 

1 

1 -6.250-01 -1.000*01 

0,000 

0,000 

1.000*00 

0,000 

3,129*00 +6,667*00 

0,000 

0,000 

0,000 

1,000*00 

2 

1 -6.250-01 -3.333*00 

0.000 

0,000 

1.000*00 

0,000 

3,129*00 -9, 960-OS 

0,000 

0,000 

0,000 

1,000*00 

3 

1 -6.250-01 3.333*00 

0.000 

0,000 

1.000*00 

0,000 

3,129*00 6,667*00 

0,000 

o,odo 

0,000 

1,000*00 

J 

2 5.625+00 -1,000*01 

0.000 

0.000 

1.000*00 

0,000 

6,079*00 -6,667*00 

0,000 

0,000 

0,000 

1,000*00 

2 

2 5.625+00 -3,333*00 

0.000 

0,000 

1.000*00 

0,000 

6,079*00 -9,960-08 

O.OOO 

0,000 

0,000 

1,000*00 

3 

2 5,675+00 3.333*00 

0.000 

0,000 

1.000*00 

0,000 

6,|79*D0 6,667*00 

0.000 

0,000 

0,000 

1,000*00 


loauovi 

p 

_ 

.31250000E+01, 

-.99604645E-07, 

.qoooooooe*oo. 

9 

s 

- , 6290D000E+DIJ' 

-.333333336 *01. 

,000000006*00, 

D 

B 

- .62900000E+Oai 

,333333326*01, 

,000000008*00, 

TANA 

z 

-.43660927E-01, 



cama 

z 

.79577538E-01, 



PSIF 

= 

,3489i974E*01. 



VCOS 

send 

SDBUCV2 


.15201366E+00, 

-.17101539E+DO, 

,346166696*01 

PSIF 

VCOS 

z 

m 

-,348’l»74E+gi. 

.30402735E+00, 

.000000006*00, 

,696337308*01 

SEND 






SDBUCVl 

PSIF = ,23621S25e*01i 

VCoS => . 30402733^-^00 > . ODDOOOOOE^QD i , 932395i3E*01 1 

SEND 

VO«TEX LATTICE MATRIX DETAIL-SURFACE NO,* l/( 1, U 


J K NP NC VFSTflATI VIN(MAT) P<X) P(Y) P< Z > B<X) B(TJ BIZ) OIK) DIY) OIZ) 

2111 -.8716701 ,1113*00 ,3125*01 ”,9960'07 ,0000 -,6290*00 -,3333*ot ,0000 -,6250*00 ,3333*01 ,0000 


SDBUGVl 

P 

_ 

.31250000E+01 , 

-,596a4645E'07, 

.000000006+00 

B 

a 

-.62500000E+OD, 

.333333326*01. 

.000000006*00 

0 

z 

-.629000006+00* 

,999999966*01, 

.000000006*00 

Tana 

a 

-.4366o927£-oi. 



GAMA 

s 

.795775386-01, 



PSIF 

a 

.346919756+01. 



VCOS 

SEND 

1DBUCV2 


-.1520i368e+00, 

-,171015406*00. 

-.348168706*01 

PSIF 

z 

-.90C4O575E+OQ, 



VCOS 


-.112743806+00. 

-.156289196*00. 

-.258225866*01 

SEND 

SD3UCV3 

PSIF 


,463493996+00. 



VCDS 

a 

-.1127438DE+D0, 

-,156289196*00. 

-.20987447E+01 

SEND 






SOBUGVl 

P 

n 

. 312500006+01, 

-.59604645E-07. 

•OOOOOOOOE+OO, 

a 

S 

-.625000006+00, 

-.100000006*02. 

.000000006*00. 

0 

= 

- . 625Od000e*00 • 

-.333333336*01. 

,000000006*00. 

tana 

s 

-.436609276-01. 



GAMA 

s 

.795775386-01. 



PSIF 

S 

.900405746+00. 



VCOS 

= 

,392698786-01. 

-.147262046-01, 

,899428436*00. 

SEND 

S0BUCV2 





PSIF 

s 

-.348919766*01 . 



VCOS 

SEND 

loaucvs 


-.112743816+001 

, 1562B920E+00. 

258225876*01. 

PSIF 

s 

.483493996*00, 



VCOS 

a 

-.112743816+00. 

.156289206*00. 

-, 209876476+01. 

iend 
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6.6 EXAMPLE PROBLEM # S, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 
_ 


PSIF 


,464909*OE-02i 


vcos 

SEND 


-.7CI147156E-02. 

-,4900239«E-02i 

-.26632B3DE*a0i 





ID9U0V1 

P 


.562C2524EA01, 

.66666664EA01, 

,54269035E-01i 





B 

■ 

.56159D49e*01j 

-,33333333E*01, 

,10S53oo7eaoo, 





D 

■ 

. 56155DA9E*D1. 

.33333332E+D1> 

,10853oo7E*OOi 





TANA 


- , 4366C92/E*D1< 







EAMA 

= 

, T9S7753BE-01, 







PSIF 

tt 

• i67131«8E*00> 







VCOS 

= 

. J9C99439E-01, 

,3602B7H9e-02. 

,6664B699E*O0t 





IE VO 

tD0UCV2 

PS|F 


-.?:040D»JE*01, 








VCOS 

SEmO 

soaucvj 


-.Sa3327UE-01. 

-.28a61600e-0li 

-.13353522e*01, 





PSIF 


,1452300AE-01, 







vcos 

= 

-,43»3589Ve-01, 

-.26861600E-01, 

-,13340865e*OX, 





lEvn 








sDbucvi 

P 


.5620252AE*01, 

,66666664E«01, 

.54265035E-01, 





B 

C 

.56l55o49E*01> 

.33333332E+01, 

.10853oo7E*qoi 





D 

TANA 

. 

.5625oOOOE*01, 

-.43*6o»27E-01, 

.99999996E+01, 

•ooDoooagEAQOt 


Of t 


CAMA 

■ 

.79577538E-01 , 





r 

K 

PSIF 

s 

.20C42719E*01. 





^ G 

'^Ai,J2y 

Vcos 

SEND 

3 

.A7413603E-01. 

.3246e73le-Dl, 

.20a2XD14E*Oli 




S0BUCV2 

PSIF 

a 

-.200A2719e*01, 







vcos 

a 

.l74e?721E*P0, 

.84937462E-D1, 

,43Q42o2*E*OX» 





send 

SDBUCV3 

PSIF 

z 

.OOOOOQOOEi-aO, 







Vcos 

JENO 

• 

.17482721E+00. 

.64937462E-01. 

.40042D2BE*aX, 







LIFT distribution OETa IU-SURFaCE NO,* i/t 1, 

1> 




J K 


r<X] P(Y) 

P(2) AREA 

CPN C(X) C(V> 

C(Z> 

VKXj 

VKY) 

VIlZ) cama 

1 1 


-,625 -6.667 

.000 50,0000 

,3923 ,05394 .00000 

,99673 

.00054 , 

,00868 , 

,00332 .,14724.01 

1 2 


5i62C -6.667 

.054 16,6667 

.0302 -.003B0 -.01427 

,99893 

,00247 «, 

,008« 

,09088 3780-01 


J0BFL4C 1234 

5 6 7 

8 9 10 

11 12 13 14 

15 16 17 

18 19 20 

EXAMPLE 

NO, 5 - DEBUG-OuMp 

demonstration/ 

NFLC(20| 

• 8 PADE 

V«L|jc 

-> □ C J 

0 2 0 

0 0 0 

10 0 0 

0 0 0 

10 8 

ALFA* 9,00 

MACMNO* , 

oooo 

ALylTUOE' 


21 

j 

K 

P(X) 

P(Y) 

P(2) 

AREA 

CPN 

C(X) 

C(y> 

GIZI 

VKX> 


wUY) 

Vl(Z> 

CAMA 

2 

1 

-.62s 

-.000 

,000 

50,0000 

.3178 

-.01521 

.00000 

1,00160 

<00541 


03000 

,10236 

1192401 

2 

? 

5.616 

-.300 

.109 

16,6667 

.9942 

-.01031 

.00000 

,99872 

,00253 

’ 

03300 

,09747 

1243*01 

3 

1 

-.626 

6.667 

. 000 

50,0000 

,3926 

,06384 

. 00000 

,99673 

.00054 


□□568 , 

,00332 -, 

1472*01 

3 

2 

5.620 

6 1 667 

.054 

16,6667 

.0302 

-.00380 

,01627 

,99893 

,00247 

• 

00472 

1 09088 *, 

> 780-01 





SECTION airload COEFFICIENTS-SURFACE 

NO,* l/< 

Ir 1) 






J 


r* Y 

z 

w 

SCN 

sex 

SCL 

SCO SMP C/4 SCLC/B 

IXL 

lYL 

IZL 


2 


0000 

.030 

.000 

.4670 

.0062 

,4846 

,0430 

,1245 

.2423 

,0103 

,0000 

-,9999 


3 


ft P Ao y 

.030 

6.667 

.3010 

-.0247 

,3020 

.0241 

,Dl4l 

.1510 

.0038 

-.0163 

-,999» 



INTECRATEO AlRUOAU COEKF 1 C 1 ENTS-SUBFACfc «0S,» 1 » 1 


ECU 

ECX 

ecY 

fcCL 

ECO 

ECMP 

ECMR 

ecMY 

EXA 

EZA 

ES 

EMCC 

EB 


- , 01 ^^ 

.3000 

.3629 

,0173 

-.0321 

-,0000 

-,0000 

,00 

.00 

200,00 

10,00 

20,00 

4 

>0030* 

.0149* 

.017B* 

.0041* 

»•* airload 

-.0000* 
SUMS •• 

,0000* 

,00* 

.00* 

203,00* 

10,00* 

20,00* 

363n 

-?2f‘ 

- . : 1 ^ 4 

.OO'JD 

.3629 

.0173 

-.0321 

-,0000 

-.0000 

|00 

,00 

200,00 

10,00 

20, DO 

“ t 7 \ 2 6 
* 7p164» 

■ 3000 

,0726 

. 0035 

-.000* 

- .0000 

-,0000 

,00 

.00 

1003.00 

IDOlOO 

lOQiOQ 

•0000* 

.0149* 

.0178* 

.0341* 

-tOOOO* 

,0000* 

,00* 

.00* 

200,00* 

10,00* 

20 ,00* 

*C 

.003 J* 

•003o* 

.0036* 

.0001* 

',0000* 

iOOOO* 

lOO* 

.00* 

1000,30* 

too , 00 * 

100,00* 


• OETERMIKAMT* .1Q73*02 • SCALE* ,7342-OX • 


JOBFLaS 1 2 

VALUE 3 0 


n t 5 11 32 13 14 15 16 l7 18 X9 20 EXAMPLE NO, 5 - OEBUC-OUMP DEMONSTRATION/ NFLC(20)» 8 PaCE 

“‘^^^^OlOOOOODlDB ALFA* 5,00 MAcHNO" ,0000 AL T I TU[)t *•***•• 22 


*••• JOB time* 3 / elapsed time* 7 / VO, PLOT FJLESa 0 / NSURF £XEC, VERSION 6-19-72 *••• 

*************i***********«****«*«***»**»»»»*»*«*»««*»«*«»»#»#»«**»«»»t»»*»**»**»»»»»»i,, »,,«»»»* 
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6.6 EXAMPLE PROBLEM « 5, DEBUS- PRINT OUTPUT OPTIONS (CONTINUED) 


JOBFLAO 1 
Value 3 

2 3 4 9*78 

0 C 0 0 2 0 0 

9 10 11 
0 0 1 

12 13 14 19 
0 0 0 0 

— J 

16 17 18 19 20 example NO, 5 
0 1 t 0 16 AUFA* I 

- DEBUO-OUMP DfiMON«TP*tlON/ NPWClWjB 
iDO MAOHNO- ,0000 AtTlTUOE******* 


XA(i)/C 

XA(2>/C 

XAI3I/C 

XAC41/C 

XA(9)/C 

XA(«>/C 

XA(7)/e 

XAiatxe 

XAI»)/C 

XA(ior/o 


,0000 

1,0000 

• OOOO 

,0000 

,0000 

.0000 

.0000 

,0000 

,0000 

.0000 

K 

Y 2a(U/C 

ZAI2I/C 

ZaI 3 )/C 

ZA(4>/C 

ZA<9)/’C 

Z*(«l/c 

Z*<7>/C 

ZAI81/C 

ZAt«>/C 

ZAUOl/C 

,0300 

.0000 

,3000 ,0000 

10,0030 ,0000 

.DODO 

.0000 

,0000 

,0000 

,0000 

,0000 

,0000 

.0000 

,0000 

,0000 

.0000 

.0000 

.0000 

.0000 

,0000 

,0000 

.0000 

.0000 


29 


Y 

Z 

WL 

EW 

OUL 

DC 

OS 





-6.6f 7*00 
-5.®60-0# 
5.667+00 

0,000 

c.ooo 

D.OOO 

6,667*00 

0,000 

6,667*00 

6,667*00 

0,000 

6,667*00 

6,667*00 

6.667*00 

6.667*00 

7,500*00 

7,500*00 

7,500*00 

9,000*01 

9.000*01 

9,000*01 





-6.667+00 

-5.960-09 

6.667+00 

O.OOD 

c.ooo 

0.000 

6,667+00 

0,000 

6,667*00 

6,667*00 

0,000 

6,667*00 

6.667*00 

6.667*00 

6.667*00 

2,900*00 

2,500*00 

2,900*00 

1,667*01 

1,667*01 

1,667*01 





XV 

YV 

2V 

IXV 

IVV 

12V 

XN TN 

ZN 

IXN 

IVN 

IZH 

-6.P50-01 -1.000*01 
-4.250-01 -3,333*00 
-4.250-01 3,333*00 

0,000 

0,000 

0,000 

0,000 

0.000 

0,000 

1.000*00 

1.000*00 

l.OO0*00 

0,000 

0.000 

O.OOD 

3,1Z9*00 -6.667*00 
3,125*00 -9.960-09 
3,129*00 $.667*00 

0,000 

0.000 

0,000 

0,000 

0,000 

0.000 

0,000 

0.000 

0,000 

1,000*00 

1,000*00 

1,000*00 

5.525+00 -1.000*01 
5.629*00 -3.333*00 
5.625+00 3.333*00 

0,000 

0,000 

0,000 

QiOOO 

0.000 

O.OOD 

1.000*00 

1,000*00 

1.000*00 

0,000 

0,000 

0.008 

6,879*00 -6,667+00 
6.879*00 •9.96Q-0I 
6,879*00 8. 667+00 

O.OQO 

0,000 

0.008 

0,000 

0,000 

O.OOO 

0,000 

0,000 

0,000 

1,000*00 

1,000*00 

1,000*00 


SDBUGVl 
p ® 

.3125000UE+01. 

-,996046*SE-07* 

,00D0C000E*00i 

8 ® 

629O0000E+00. 

-.333333336*01. 

,OOOOOOaOE*OOi 

D « 

- , 629DOOOOE+00< 

.33333332E+01, 

,ooooooooc*oo< 

TANA ® 

- . 4366o927E-Qn 



CAMA ® 

,7997763«E-01. 



PSIF ® 

,3A*9i974E+D1, 



vcos = 

,l32Dl3»8e+00. 

-.171D1539e+00i 

,34B16969£*Q1 

fEND 




S0BUCV2 




PSIF I 

-.3489t974e*01, 



VCOS » 

.304a2735E+00« 

.000000008*00, 

.696337368*01 

SEND 





soeucvi 

PSIF 

_ 

,23621 825E*01< 

VCOS 


.304O2735E+D0 . 

SEND 

sreflex 

PX 


,poooooaoE*oo. 

PV 

• 

-,625S00aaE+00, 

XI 

S 

.lC039198€+05i 

Y1 

s 

.OOOOOQOOE+00, 

PHI 

z 

-.8726643DE-Q1. 

ALFAR 

B 

,R7266430E-01i 

RX 

S 

10CODO52E*O5i 

RY 

- 

.«7429D12E+D3, 

ZL 


, lODOOOOOE+05, 

COSR 

a 

, 99619471E+00' 

SEND 



sreflex 

PX 

t 

,19923998E+05 

PY 

s 

.17429248E+04, 

XI 

z 

.1Q039199E+09 

Y1 

s 

,OgOOOOODE*QO 

PHI 


-.9726643DE-01 

alfar 

s 

. 97266430E-01 

Rx 


.130000526*05 

.H7429012E+0® 

RY 

S 

2L 

8 

.lOOOi'i'-' 

COSR 

8 



SEND 



\ 


, O 0 QaOQ 0 OE * OO < 


,932555»Je*Qli 


about so paces of output omitted 


.0241 


INTECRITED airload COEFFICIENTS-SURFACt MgS.* 1 - i 



,0000 

-.0163 


■9999 
■ ,9999 



cCN 

ECX 

6CY 

ECL 

ECO 

EC«P 

ECMR 

ECnr 

EXA 

EZA 

ES 

EMCC 

eb 

1 

1 

.3630 

.;';164» 

-.0144 

,C164. 

,Q00C 

.0000* 

. 3429 
,0149+ 

.0173 
,ai7B + 

-.0321 

,a04x+ 

.,0000 
- ,0000* 

-.0000 

.0000* 

,00 

,00* 

,00 

.004 

200,00 
2Q0 lOQ* 

10,00 

10,00* 

20,00 

20,00* 






••• airload 

SUMS •• 

• 






AC 

CG 

AC 

CG 

.3630 

,C726 

.0164. 

. ;o33* 

-.3144 

-.0029 

.0164+ 

.0033+ 

.0000 

.0003 

iQOOO* 

.00304 

.3629 

.0726 

,0149* 

,003o» 

,0173 

.0035 

.0178* 

,0036» 

-.0321 

-.0006 

.0041* 

.0001* 

.,0000 

-.0000 

-.0000* 

-,0000* 

-.0000 

-.0000 

,0000* 

,0000* 

,00 

,00 

,00* 

,00* 

.00 

.00 

.00* 

.00* 

200.00 
1000.00 
200,00* 
1000, 00* 

10,00 

100,00 

10,00* 

100,00* 

20 ,00 
lOOiOO 
20,004 
100, DO* 


• OEtErFIIMaMt* ,1D73*02 • SCALE® ,7042-01 • 


JDBFLAC 123454^6 
VALUE 30COO2OD 


9 10 11 12 13 14 15 16 17 IB 19 2Q 
00100000110 16 


example no, 6 - DEBUC-DUMP OEMONBTRaTIOn/ NFLC(20)» 16 Pa6e 
ALFA* 5i00 HAcHNO* ,0000 ALTITUDE 27 


•••• JOB tine* 6 / ELAPSED T|HE* 13 / NO, PLOT FILES* 0 / NSURF £XEC, VE«S10N 4-19-72 



* 
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6.6 EXAMPLE PR03LEH i S, DEBUG-PRINT OUTPUT OPTIONS (CONTINUED) 


XOT NSURFT 




10*i0' J.97* 


1.032000*00 

7.065000*00 

3.216000*00 

3.031000*00 

1.032000*01 

7.680000*00 
-6. 390 000*00 
6.900000*00 
- 1.030000*00 
5.690000*00 

3. 030000*00 
-3.360000*00 
-1.167000*01 
6.160000*00 
-3.600000*00 

-2.930000*00 

5.670000*30 

8.323000*00 

9.073000*00 

3.760000-02 

-9.780000-02 

7.103000*00 

9.992000*00 

9.780000-01 

1.516000*01 

' TEST MaTSIT - 

[w] 

3.220550-01 
1.001531-01 
-0.700076-02 
-2.656 730-02 
-2.000256-01 

2.931715-01 
1.615780-03 
-1.256676-01 
- 1.696037-02 
-2.303326-01 

9. 626216-03 
3.561707-02 
-6.201933-02 
3.317090-02 
- 3.656637-02 

-0.727628-02 

1.522960-03 

1.070551-01 

0.115159-02 

8.417013-02 

-1,360662-01 
-2.353600-02 
9.26'3550-O2 
-2.028226-02 
1.896721-01 1 

mvERSB mwix » 


1.000000*00 
-8.673617-18 
0.000000 
6.336 0C8-I8 
3.669667- 10 

-3.669467-18 
1.000 000*00 
8.673fl7-l9 
9.757820-19 
6.938896-18 

6.336809-19 
1.736723-10 
1.000000*00 
0. 000000 
0.673*17-19 

-1. 782157-18 
-1.029992-1 0 
-2.663172-10 
1.000000*00 
-1.565317-18 

3,669667-10 
-8.673617-19 
-1.736723-18 
1.301063-18 
1.000 000*00 

1 

, UNIT MATSIX ^ 

M X M 


5.070328*0^ 


XOT ISURFT 


DETEEMINAIIT 




10'20' 6.108 


1.032000*00 
7.065000*00 
3.216 000*00 
3.031000*00 
1.032000*01 

7.680000*00 

-6.390000*00 

8.900000*00 

-1.030000*00 

5.690000*00 

3.030000*08 

-3.380000*00 

-1.167000*01 

6.100000*00 

-3.600000*00 

-2.930000*00 

5.670000*00 

8.323000*00 

9.073000*00 

3.780000-02 

-9.783000-02 
7.103000*00 
9.992000*00 
9,783000-Ql 
1.5160 00*01 

TEST MATRIX <= 

M 

3,220950-01 
1.001531-01 
-8.700876-02 
-2.696 73 0-02 
-2.008256-01 

2.931715-01 
1.619780-03 
- 1.258676-01 
-1.696837-02 
-2.30 3326-01 

9.626216-03 

3.561707-02 

-6.201933-02 

3.317090-02 

-3.656637-02 

-0.727628-02 
1.522960-8 3 
1.070551-01 
8,115157-02 
8.617013-02 

-1.363662-01 
-2.353600-02 j 

9.269550-02 
-2.028226-02 
1.896721-01 1 

IRVEFEE MATRIX - 

[w] 

1 .000000*00 
-8.673617-19 
0.000000 
6,33680 9-19 
3. 669647-10 

-3.669667-1 0 
1. 000000*00 
8.673617-19 
9,757820-19 
6.938896-18 

6.136809-19 
1.736T23-1B 
1.000000*00 
0. 000000 
8.673517-19 

-1.782157-10 

-1.029992-18 

-2.663172-18 

1.000000*30 

-1.565317-18 

3.669667-18 

-8.673517-19 

-1.736723-18 

1.301063-18 

1.003000*00 

• UNIT MATRIX = 

[«] * [«] 


^ DETEmiNANT 

5.070323*06 
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6.7 PLOT- OUTPUT 



2) EXAMPLE PROBLEM # 2, SINGLE-SURFACE ANALYSIS CAPABILITY 

NOTE: THE FIRST TWO PLOTS ARE SHOWN BELOH, THE REMAINDER OF THE PLOT-OUTPUT 
FOR THIS PROBLEM IS PRESENTED IN FIGURE Z.18[C] (PAGES 2-49 THRU. 2-52) 


LIF1I« HAUrCM GCC<«f*v 


V* HIM pihmcim 



original Pag 

0^ QUALOT 
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6.7 PLOT^OITTPUT (CONTIWUED) 


3) EXAMPLE PR0BLO1 # 3, NORTH AMERICAN XP>70 AIRPUWE 


imCTlIC PHOJKTKM OF UFTtWI SUIFKIi 


ISMTfK OF ttFTIM WACIf 


, iuifisiai&BS3aiaiiaujAi.i_. 

■■■■■■■■■■■■■■■■■■■■■■■■EaascEsaciSfflQscjiMl 

lEQQDlSlSBBaaEQSI 





■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 

■■■■■■■■■■■■■■■■■■■■■raaarirjaBaaaaaaaBaaa 

aaaaaaaBaaaaBaaBaBBaB'!';A^aH'BBap?aaBaaaaaaa 



aB2*>Sft'<«.i!Ki5^i''5«EBBBBl 

|BBBBBBBBBBBBBBBBBBr!!/.%.9'^»^?^'^?S'9*i£^BBBaBB 
IBaBBBBBBBBBBBBBC<V!7^'2i6^'5KK^>!iC^:.^BBBBB 
IBBBBBBBBBBaBBa.^«'/Si'>!S!!;;':>KV9<9^^«lBBBBBBB 

BBBBBBBBBBBBBBaO^?i%'«^^>&S^aBBBBaBBBaaBB 

mummmuummmmmmmr^M^s^a^iitiSMmmmmummuummmuu 

BaBBBBBBBBBBBr<^iSS<>!SailBBBaBBBBBBBBBaBBBB 

BBBBBBBBBBBBKidr^^SaaBBBBBBBBBBBBaBBaBBaaB 

lar 
IB| 

ji^lliHBBBHBBBBBBBBBBBBBl 

uummw£>'3^ummmummmmmmmmmmmmmmmmmmmmmmmmm 

BBBR^aaBBBBBBiBBflBBBBBBBBBBBBBBBBBBBBBBB 

BBraaBaaBBBBBiBaBBBBBBBBBBiBBBBBBBBBiiia 

BBBaBBBBaBBBBBBBBBBBBBBBBBiBBBBBBBBBBBBB 

BBBBBBBBBBBBBBBBBBBiBBBBaaiaBBBBBBBBBBBB 

BBBaBBBBBBBBBaBBBBBiBBBBBBBBBBBiiBBaflaBa 

BBBaBBBBBBBBaBBBBBBBBBBBBBBBBaBiiBBBBBBB 

aBBaBBBBaBBBBBBBBBBBBBBBBBBBBBaSSr" 


IBBBBaBBBBBBBBBaBBBBBiaDiaSfiiSAaiaitttfaiUttl 
iaBBBBBBBBBBBBBBBBBBEaaiSCCa!ESISQB&Br~ 
IBBBBBBBBBBBBBBBBBBBESlIZSiaiSBBaCSIiaSBBI 
IBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBI 

IBBBBBBBBBBBBBBBBBBBBBBBBaBBBBBBBBBBI , 

laaBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBaBBBl 
IBaBBBBaBBBBBaBBBBaBBBBBBBBBBBBBBBBBBBl 
IBBBBBBBBaaaaBBBBBBrpBBBBBBBBBBBBBBBBBl 
-IBBBBBBBBBBBBBBBadvBBBBBBBBBBBBBBI 
. _ JBBBBBBBBBBBBBBBM^ rUBBBBBBBBBBBBBI 
IBBBBBBBBBBBBBBBBayiPSaaeBBBBBBBflBBBBBBBl 
IBBBaBBBBBBBBBBBBr/M'CffSriaik'BBBBBBBBBBBBBBl 
laaBBBBBBBBBBBBBKMareif&aaBBBBBBBBBBBBBBl 
nmmmmummummmwswsiKiK^iiisgmmmmmuummummnl 

|BBBBaBBBBBBBBBB’il'«:j;iR:«QI«aBB3aBBBBBBBBBBl 

.. _IBBBBBiBBBBBr><;jira'2B;'JlB#.'!i|IBBak'^BBBBBBBBBB| 

|BBBBBBaBBaBBBFi%IS«ariSB!2!^BS^aeBBiBBBBBBBBl 

|BBBBBBBBBaBBrjrar:»siss;az^2:»^^tf^^aBBBaa| 

iBBBBBBBBBBBK^I^B&KtfgRB^E^S^^&saBBBBBBBBBl 
|BBBBBBBBBBrSi«i«*S:»a«%SaBaBiBEaBBBBBBBiB| 
lBBBBBBBBaaaB«!B»SaiiBBBBBBBBBaBBBBBBBBEB| 
iBBBBBBBBCif^SaBBBBaaBBBBBaBaBBBBBBBaaBBl 
iBBBBrieBP^SaaBBBBBBBBBBBBBBBBaBBBBBBBBBBl 
|BBBB«r;»^t*^aBBBflBBBBiBBBBBBBBBBBBBBBBI 

|BBRri^Sk'n^^BBBBBBBBBBaaBaBaBBBB|BBBaBBB| 

|P::iaBBBBBBBBBBBBBaaBBEBaBBBBBBBBBBBBBai. 

iBBBBBBBBBBaaBBaaBBBBaaaBBBBaaBBBBiiiiBl 

iBBBBBBBBBBBBBBaBBBBBBBBBaBBBBBBBiiiEiBl 

|bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb| 

|BBBBBBBBBBBBBBBBBBaaBBBBBBBaBflgBgBBBn| 

iBBBBBBBBBaBBBBBBaaBaBBBBBiaSBBBBli 

iBBEBBBBBBBBBBBBBBBBBBBBBBEBBBaSiaiiEEBBl 

iBBBBfiBBBBBBBBBBBBBBBBBBiBBBBBWMBMgiBMl 


E 




7.0 PROGRAM DESCRIPTION 


7 . 1 Operating Procedures 

The "TRW Vortex-Analysis Program #HA010B (N. SURFACE)" is written in 
Fortran V source language for execution in the UNIVAC 1108 computer, with 
a 65K core or a computer of similar configuration. Five separate execution 
modes for the program are permitted; 

1) XQT ISURF or XQT NSURF 

Two main execution modes for solving lifting-surface problems by 
the vortex-lattice method are permitted. NAMELIST statements are used ex- 
clusively for input of numeric quantities along with "A" formatted read 
statements for titles and comments. Card input and tabular printed output 
are on units 5 and 6 respectively. In addition to the program PCF tape, 
which is assigned to an unused unit, the following units* are also used: 

Unit 1 (KTl) Input data is stored in unit 1 for all the cases that 
are to be executed. 

Unit 8 (KT2) Output plot-data tape or drum physical unit assign- 
ment that is required as an input for the auxiliary 
execution mode. 

Unit 3 (KT3) Work tape or drum physical unit assignment. 

2) XQT ISURFT or NSURFI 

Two test execution -modes for determining the accuracy of the matrix 
inversion procedure are permitted. The test execution-modes require no 
input data. Tabular printed output is on unit 6. 

3) XQT TRWPLT 

One auxiliary execution mode that is used for obtaining Calcomp or 
4060-microfilm output is permitted. This mode of execution requires two 
modes of input, a tape or drum file (Unit KT2) containing the plot data 
accompanied by punched-card input describing the manner in which the data 
is to be plotted. A generalized input processor is used which compares 
the input symbols to an internal symbol table and stores the data in the 
appropriate address. The card format, which is input in unit 5, consists 
of BCD symbol equivalences to the input data in a free-form mode. Printed 
output is in unit 6 and plot output on magnetic tape (PLT tape assignment) . 

*Units, 1, 3, and 3 (KTl, KT2, and KT3) may be reassigned in execution 
(see input instructions) . 
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h 7 XQT NSURF r 7 XQT NSURFT r 7 X:3T ISURF r 7 XUT ISUHFT 

EXECUTI0N M0DE EXECUTI0N '10OE EXECUTION N0DE EXECUTION M0DE 


i 


iCl MSURF<MAIN) - Aia NSURFTtMilN) 

A02 BUKDAT - A14 DMATIN 

A03 LJZfFT I- a17 page 

UD4 LIFTX 
A05 AB0RTJ 
A06 

A07 CA^^BER 

a08 flaps 

aQ9 FLAP! 

AlO Pt»^LEC 
All IS0MET 
A12 R0TATE 
a13 V0RTFX 

aia hmatin 

A15 D0TP . 
a 16 CRJ^JSP 
A17 PAC»t 


BQI ISURF(MAIN) - B20 ISURFT(MAIM) 

B02 BUKDAT - B13 DMATIN 

B03 L0FT L Bj_9 paGE 

BOA DLIFT 

BOB INTERP 

B06 DUIKER 

B07 SPAN! 

B08 CH0RDI 
BOV CH0RDT 
BIO FLAPS 
Bll VERTEX 
B12 REFLEC 
B13 DMATIM 
BIA D0TP 
B15> CR0SP 
B16 R0TATE 
B17 CURFIT 
Bl9 CURVE 
B19 page 


FIGURE 7.01 - TRW VORTEX-LATTICE ANALYSIS PROGRAM OVERLAY STRUCTURE 








FIGURE 7.02 - CONTROL DECK SETUP 


original Pff 

nv POOK QUALITY 
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7.1 Operating Procedures (Continued) 


The program overlay diagram for the main and test execution inodes is 
presented in Figure 7.01 (Page 7—2). The program control deck setup 
is illustrated in Figure 7.02 (Page 7-3). 

7 . 2 Execution Time 

For the main execution modes of the program, i.e., XQT ISURF or 
XQT NSURF, the execution time required to complete a single case is pri- 
marily dependent on the total number of vortices or elemental surfaces 
that are considered simultaneously in arriving at a solution. The other 
factors that affect the execution time are due to the execution of the 
special options of the program, such as: ground effects, lifting-line 

extrapolated solutions, tape output, surface discontinuities (flaps or 
tabs), and the execution of XQT TRWPLT, the auxiliary mode of execution, 
for obtaining Calcomp or 4060-microfilm plots. A simple but approximate 
estimate of the total execution time for completing a given job may be 
determined using: 


hsecoads) = x ( N x AT ) + x AT 3 

M 


N = N X 
M S 


No. Surfaces 
N 




n = 1 


e.n 


(7.2.01) 


(7.2.02) 


where: AT^ = 20 


Time required (seconds) to load the program. 


AT^ = Time required (seconds) to obtain a single vortex- 

lattice solution (see Figure 7.03). 

AT^ = 10 Time required (seconds per plot) for the XQT TRWPLT 

execution 


N 


C 


Number of cases to complete job. 


N 

g 


1 

2 


No ground effects. 
With ground effects. 


N = Number of plots. 

P 

N„ = Number of elements in the vortex-lattice matrix. 


1 Unsymmetric loading. 

*= 0.5 Symmetric loading 


N 

e ,n 


Number of elemental panels for the nth, surface 
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NUMBER OF MATRIX ELEMENTS 












7 . 3 Program Organization 


The present version of the "TRW Vortex-Lattice Analysis Program 
#HA010B (N . SURFACE) " that is described in this report constitutes an 
expanded and modified version that was derived from two older prototype 
programs., i.e. , "TRW's Single Surface Vortex-Lattice Analysis Program 
//HA009A/B (ISURF) and "TRW^s Multiple Surface Vortex— Lattice Analysis 
Program #HA010A (NSURF)." The prototype programs were developed speci- 
fically for analyzing single-surface and multiple-surface configurations 
respectively. The present version (HAOlOB) incorporates the same analyti- 
cal procedures and basically the same source-program code found in the 
prototype programs and differs only in the input and output format that 
is used. In addition, the "TRW Generalized Plot Program TRWPLT 
(Reference 35)" is included in the PCF tape for providing Calcomp and 
4060-microfilm plot-output. Five separate modes of execution are per- 
mitted (see Section 7.1) that include: (1) two main execution modes for 

solving lifting-surface problems by the vortex-lattice method, (2) two 
test execution modes for determining the accuracy of the matrix inversion 
procedures, and (1) one auxiliary execution mode that is used for obtain- 
ing Calcomp or 4060-microfilm output. The source program (absolute and 
symbolics) in the program PCF tape is arranged in the following form: 


1st. File 

2nd. File 

3rd File 

(No Plots) 

(With Plots) 

(Backup) 

NSURF 

NSURF 

NSURF 

ISURF 

ISURF 

ISURF 

NSURFT 

NSURFT 

NSURFT 

ISURFT 

ISURFT 

ISURFT 

- 

TRWPLT 

TRWPLT 


The source program for each of the main execution modes (XQT NSURF or 
SQT ISURF) is organized in the following manner: one main (driver) routine, 

one block data (Initial values) subroutine, one-vortex- lattice-geometry 
calculation subroutine, one vortex- lattice— solution calculation subroutine, 
and a number of special purpose calculation subroutines. The functions 
performed by each category are as follows; 



7.3 Program Organization (Continued) 

Main (Driver) Routine 

1) Read input data (Unit 5) for all cases to be executed and 
store the input data in a drum file (Unit 1) for later use 
and initiate calculations by calling the block data sub- 
routine. 

2) Read data for the first case (or subsequent cases) from the 
data drum file (Unit 1) , 

3) Call the vortex-latt ice-geometry calculation subroutine for 
determining all the geometric parameters that will be 
needed . 

4) Setup angle of attack loop and multiple-surface loop (if 
applicable) and proceed to obtain the vortex-lattice- 
solutions by calling the vortex-lattice-solution calcula- 
tion subroutine. 

5) Finalize the first case (or subsequent case) by printing 
the execution elapsed time and the number of plot files 
created. Go back to #2 and start the execution of the next 
case. 

Block Data (Initial Values) Subroutine 

1) Stores data for the initial values (built-in Tables, see 
Section 4) . 

Vortex- Lattice-Geometry Calculation Subroutine 

1) Calculate the geometry of the. vortex-lattice for all the 
lifting surfaces that are defined in the input. 

2) Calculate the geometric parameters that define each 
lifting surface, e.g., the lifting surface reference 
dimensions. 

3) Output the calculated geometry for each lifting surface. 

4) Output bn tape (Unit 8) the geometry for each lifting- 
surface using the special format required for the plot- 
ting option (XQT TRWPLT) . 
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7.3 Program Organization (Continued) 


Vortex-Lattice-Solution Calculation Subroutine 

1) Calculate the influence coefficient matrix. 

2) Invert the influence coefficient matrix and determine 
the vorticity or circulation for all the vortex-filaments 
of the lifting surfaces that are considered simultaneously. 

3) Calculate the airload distribution on each lifting surface 
and perform all the required summations. 

A) Calculate the section-airload coefficients and output same 
as printed output and on tape (Unit 8) if applicable. 

5) Finalize the calculations by printing the spatially- 
integrated airloads for each lifting surface and the 
net airload summations. 

Special Purpose Calculation Subroutines 

1) Perform calculations directed towards a limited objective. 

The program logic flow diagrams for the main (driver) routine and the 
principal subroutines of the program are presented in Figures 7.04 through 
7.09 following Section 7.5. A description of the functions performed by 
each individual routine are presented in Sections 7.4 and 7.5. 

7.4 Program Routines for XQT NSURF 

1) MAIN ROUTINE (AOl) (237 FORTRAN Statements) 

This is the main routine or driver routine for the XQT NSURF execution 
mode of the program that performs solutions for multiple-lifting-surfaces 
problems by the vortex-lat tice method. 

2) SUBR0UTINE BLKDAT (AO 2) (55 FORTRAN Statements) 

This is a block data routine where the initial values (built-in tables) 
of selected input variables are stored (see Section 4.0), 

3) SUBR0UTINE L0FT (A03) (864 FORTRAN Statements) 

Subroutine L0FT constitutes the vortex-lattice geometry calculation 
routine. In this routine all the geometry calculations are carried out. 

It includes the setup of the vortex-lattice field point coordinates, 
unit vectors, areas, etc., and the calculation of the reference dimensions 
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7,4 Program Routines for XQT NSURF (Continued) 


for each lifting surface that is input. Also, as a special option 
(NFLG(19) ^ 0) , the geometry of the vortex-lattice is output on tape or 
any specified internal unit which is used as the input data-tape in the 
execution of XQT TRWPLT for generating Calcomp/ 4060-microfilm plot-output. 

4) SUBR0UTINE LIFTX (A04) (1,178 FORTRAN Statements) 

This is the vortex- lattice-solution calculation subroutine for multiple- 
surface analysis (XQT NSURF). In this subroutine all the calculations 
directed towards obtaining a solution for a given vortex-lattice origi- 
nate, that include: calculate influence coefficients, calculate the cir- 
culation strength of the vortex-filaments, etc. In addition, the section 
airload coefficients, lift distribution, and spatially-integrated suras 
of airload force and raoments are performed. 

5) SUBR0UTINE AB0RTJ (AOS) (92 FORTRAN Statements) 

All diagnostic and job termination output originates in this subroutine. 
Tests are performed in this routine for selected key variables during 
the execution and if unallowable errors are incurred the job execution is 

aborted. 

6) SUBR0UTINE C0RDF (A06) (60 FORTRAN Statements) 

This routine calculates the planform dimensions at a wing station for a 
lifting surface, e.g. , Y, ^f* ^tab* ^ function 

of a function of a dummy argument W. 

7) SUBR0UTINE CAMBER (A07) (53 FORTRAN Statements) 

Subroutine CAMBER determines the normal coordinate of the median camber 

line of an airfoil, i.e. , Z /C as a function of X /C. 

a « 

8) SUBR0UTINE FLAPS (AO 8) (169 FORTRAN Statements) 

This routine together with Subroutine FLAPI is used to update the coordinate 
and unit normal vector (no deflection) of a field point on the surface of 
a lifting-surface due to flap and/or trim-tab deflection. 

9) SUBR0UTINE FLAPI (A09) (28 FORTRAN Statements) 

See Subroutine FLAPS (#8) . 
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7.4 Program Routines for XQT NSURF (Continued) 


10) SUBR0UTI1SIE REFLEC (AlO) (53 FORTRAN Statements) 

Subroutine REFLEC calculates the coordinates of a mirror image of a field 
point using the ground plane as the mirror plane. It is used in the 
ground effect analysis for determining the coordinates of the image vortex- 
lattice . 

11) SUBR0UTINE IS0MET (All) (27 FORTRAN Statements) 

It transforms the coordinates of a given field point (P(X,Y,Z) to a new 
coordinate system P(X',Y’,Z’) that is used to obtain an isometric pro- 
jection of the vortex-lattice. 

12) SUBROUTINE R0TATE (Al2) (45 FORTRAN Statements) 

It transforms the coordinates of a given field point P(X,Y,Z) to a new 
coordinate system P(X',Y',Z') involving a prescribed rotation and 
translation. 

13) SUBR0UTINE V0RTEX (A13) (189 FORTRAN Statements) 

Subroutine V0RTEX calculates the induced velocity or influence coefficient ^ 
for a field point P(X,Y,Z) due to a skew-shaped horshoe vortex filament 
of circulation strength f defined by the field points B(X,Y,Z) and D(X,Y,Z). 

14) SUBROUTINE DMATIN (A14) (149 FORTRAN Statements) 

Subroutine DMATIN is a double precision, 100 x 100, matrix inversion 
routine, 

15) SUBR0UTINE D0TP (A15) (17 FORTRAN Statements) 

It calculates the dot— product of two vectors. 

16) SUBROUTINE CR0SP (A16) (20 FORTRAN Statements) 

It calculates the vector cross-product of two vectors. 

17) SUBROUTINE PAGE (A17) (43 FORTRAN Statements) 

This subroutine causes a new page to be started and the job title and 

job execution flags to be printed at the top of the page in the program 
execution. 
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7 . 5 Program Routines for XQT ISURF 


18) MAIN R0UTINE (BOl) (211 FORTRAN Statements) 

Same as //I (AOl) except the solution for a single-lifting-surface is 
considered exclusively. 

19) SUBR0UTINE BLKDAT (BO 2) (55 FORTRAN Statements) 

Same as (A02) except the solution for a single-lifting-surface is 
considered exclusively. 

20) SUBR0UTINE L0FT (B03) 935 FORTRAN Statements) 

Same as //3 (A03 except the solution for a single-lifting-surface is 
considered exclusively. 

21) SUBR0UTINE DLIFT (B04) (699 FORTRAN Statements) 

Same as #4 (A04) except the solution for a single-lifting-surface is 
considered exclusively. 

22) SUBR0UTINE INTERP (BOS) (406 FORTRAN Statements) 

Subroutine INTERP is used to calculate coefficients from two exact 
vortex-lattice solutions at different angles of attack. These coefficients 
are used to generate arrays of approximate solutions that are based on the 
lifting-line theory linearized analysis technique. 

23) SUBR0UTINE DLINER (B06) (601 FORTRAN Statements) 

Subroutine DLINER calculates arrays of approximate solutions using the 
coefficients determined by INTERP. 

24) SUBR0TINE SPANI (B07) (125 FORTRAN Statements) 

This routine is. used to calculate constant and variable span spacing of 
the vortex-lattice elemental panels. 

25) SUBR0UTINE CH0RDI (BOS) (77 FORTRAN Statements) 

Subroutine CH0RDI calculates constant or cosine spacing of the vortex- 
lattice elemental panels in the chordwise direction, 

26) SUBR0UTINE CH0RDT (BO 9) (44 FORTRAN Statements) 

Same as #6 (AD6) except the presence of a trim-tab has been omitted. 
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7.5 Program Routines for XQT ISURF (Continued) 

27) SUBR0UTINE FLAPS (BIO) (93 FORTRAN Statements) 

Same as //8 (AOS) except the presence of a trim-tab has been omitted. 

28) SUBR0UTINE V0RTEX (Bll) (190 FORTRAN Statements) 

Equivalent to //13 (A13) , 

29) SUBR0UTINE REFLEC (B12) (50 FORTRAN Statements) 

Equivalent to //lO (AlO) 

30) SUBR0UTINE DMATIN (B13) (.149 FORTRAN Statements) 

This is a double precision, 70 x 70, matrix inversion routine. 

31) SUBR0UTINE D0TP (B14) (18 FORTRAN Statements) 

Equivalent to //15 (A15). 

32) SUBR0UTINE CR0SP (B15) (21 FORTRAN Statements) 

Equivalent to #16 (A16). 

33) SUBR0UTINE R0TATE (B16) (46 FORTRAN Statements) 

Equivalent to #12 (A12) . 

34) SUBR0UTINE CURFIT (B17) (103 FORTRAN Statements) 

The CURFIT routine calculates the coefficients of cubics that are used 
by the CURVE subroutine. 

35) SUBR0UTINE CURVE (B18) (58 FORTRAN Statements) 

Using the coefficients of cubics calculated by the CURFIT subroutine, the 
subroutine CURVE determines the value and the derivative of a given function 
at selected values of the independent variable. CURVE together with CURFIT 
constitute a spline point (cubic), continuous derivative, interpolation 
procedure used in the program. 

36) SUBR0UTINE PAGE (B19) (40 FORTRAN Statements) 

Same as #17 (A17), except, the title and the job execution flag IFLG used 
in XQT ISURF are output. 
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7 , 6 Program Routines for XQT NSUKFT and ISURFT 


37) MAIN R0UTINE (A18) (76 FORTRAN Statements) 

This routine performs a matrix-inversion test by calculating the inverse- 
matrix and the unit-matrix using the values of a 5 x 5 built-in matrix. 

38) MAIN ROUTINE (B20) (76 FORTRAN Statements) 

Equivalent to jf37 (A18) . 

7.7 Program-Logic Flow Diagrams 

The program-logic flow diagrams for the main (driver) routines 
and the most important calculation routines that are used in the main 
execution modes (XQT NSURF and XQT I SURF) are presented in Figures 
7,04 through 7.06 (see Pages 7.14 through 7,19). 
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A) I-IAIN ROUTINE (API) 




«-^CAlL BIKOAT^ 


READ (UNIT #5) AND PRINT 
(UNIT «€) INPUT DATA FOR 
ALL CASES TO BE EXECUTED 
UP TO $ENOJ0BS CARD. AND 
STORE SANE IN ORUM/TAPE 
UNIT fKTI 


< 


1090 CONTINUE 


READ (UNIT #KT1) AND PRINT 
(UNIT #6] INPUT DATA FOR 
FIRST/NTH CASE: JOB TITLE, 
COMMENTS, NAMELIST lINPUT 



I : --p- ^CALL L1FTX(HSI,HS2) ^ 



1 

PRINT JOB-TERMINATION 
OUTPUT 




1420 CONTINUE 


-^GO TO 109^ 


FIGURE 7.04 - LOG I C» FLOW- DIAGRAMS FOR THE WAIN (DRIVER) EXECUTIOM ROUTINES 
jPROGRAM HAQ10B) 


OKIGINAL PAGE 18 
QUALIW 
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B) MAIN ROUTINE (B01 ) 



FIGURE 7.04 - LOG I C-FLQH- DIAGRAMS FOR THE MAIN (DRIVER) EXECUTION ROUTINES 
(PROGRAM HAQ7QB) [CONTINUED! 
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A) SUBROUTINE L0FT (AQ3) 


SUBROUTINE LOFT 



IMAGE GEOMETRY 
CALCULATED ? 


CALCULATE IMAGE 
{SYt-WETRY ABOUT 



FIGURE 7.05 - LOGIC-FLOW-DIAGRAMS FOR THE VORTEX -LAHICE GEOMETRY CALCULATION 


ROUTINES (PR OGRAM HAOlOB) 
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B) SUBROUTINE LOFT (BQ3) 


SUBROUTINE LOFT 



FIGURE 7.05 - LOGIC- FLO!*!- PI AG RAMS FOR THE VORTEX^LATTICE GEOMETRY CALCULATION 
ROUTINES (program HAOIOB) ICONTINUED] 
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IDO 2040 K- 1 , K2 
llCHORDHrSE LOOP) 


ICOMPUTE AFRIOADS FOR] 
ELEnEHTAL PANELS 


PERFORM CHOROmSE I 
, airload SUMHATlOHy 


rF(HaS(20).GE.2) 1 

OUTPUT ELEMENTAL PANEL I 
'LIFT AND INDUCED VELOCITlESj 


) PERFORM SPANUISE I 
AIRLOAD SUWIATIONS 


2100 CONTINUE 


PERFORM SURFACES 
1 airload SUMMATIONS 


ORIGINAL PAGP Ik’ 

^OOR qualU^ 


2110 CONTINUE 


FIGURE 7.06 - LOGIC- FLOW- DIAGRAMS FOR THE VORTEX^LATTICE SOLUTION CALCUUTION 
ROUTINES (PROGRAM HA01QB) 
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FIGURE 7.06 - LOGIC-FLOVi-DIAGRAMS FOR THE VORTEX-LATTICE SOLUTION CALCULATION 


ROUTINES (PROGRAM HAOIOR) [CONTINUED] 
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9.0 SOURCE-PROGRAM LISTtNG 


V MAP NSURF.NSURF 

SEG AOI-A02-A03-A04-A05-A06-A07-A09-A09--AU1-A1 1-A12-A13-AIA-T 
A15-A16-A17 


NSU 10 
NSU 20 
NSU 30 


1 

2 
3 


V MAP ISU1IF.ISURF 

SEG eOX-BO2-BO3-8O4-BO5-0 06-B07-B08-B09-BUI-B1 l-Bl2-Bl3-BXA-f 
B 15 -B 16 -BIT-BIB-B 19 


ISU 10 
ISU 20 
ISU 30 


A 

5 

6 


V MAP NSURFT.NSURFT 

SEG A1B-A1A-A17 


NtUT 10 

MtUf >0 


7 HAP ISORFT, iSURFT 

SEG B20-813-B19 


ISUT 10 9 

ISUt 20 10 



ADI 
AOl 
AO I 
AOl 

MAIN ROUTINE N-SORFACE VORTEX LATTICE ANALYSIS PROGRAM HAOIOB-71* AOl 

AOl 

: THEORY ANO PROGRAM DEVELOPED BY ANTULIO V» G0ME1» STAFF ENGINEER • AOl 
: TRM SYSTEMS GROUP* DIVISION OF TRW INC.* HOUSTON* TEXAS - T7058 • AOl 
' VERSION 2 ROUTINE lOOUBLE PRECl SSION-LANGLEY MATINV SUBROUTINE) * AOl 

• TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG-72 *AOl 

* PROGRAM DEVEtOPEO 0Y A.V.G0HE2 ITRW SYSTEMS) ON JUNE-JULY 1971 *A01 

AOl 

XXKXXXXXXKKXXKXXXXXXKKXXXXXXXKXXXXXXXXXXXKXXXXXXXXKXXXXXXKXXXXXXXXAOl 

AOl 

REAL MACHNIlOl *01 

□ IMENSIOM STOREIIA). C0MMTSI42) Ml 

DIMENSION WCL(2U.ALFAI20)*HEIGHTIIO) Ml 

DIMENSION SYHLFI 8I.NS0LVI2*A) iNFLGIZO) Ml 

AOl 

AOl 

COMMON/OATAOO/ TITLEIIA). ALFAQ, 2H0* CMAX AOl 

AOl 

COMMON/OATAOl/ KIN* KOUT, KTl , KT2* HT3 * KREC* XFILE* LIN, IINX AOl 

1 ,RAD* PIE, CUTOFl* CUTnF2, OELALF* LFLAP, LORAG, COLOCP AOl 

2 .IFLGI20)* EXECKU5) Ml 

AOl 

C0MMON/DATA02/ NbINC* NFUS, NVTAIL. NSSI3)» NSSOHI* NCSISt AOl 

1 .X(30), YI30It 1130)* EI30I* COO), X0CRI301, FLAPCI30) ,T ABC! 30) AOl 

2 *WSMOTH, FMEI30), ELEC30). ETEI30), EHEI30). EMEEOOI 

3 .XOCI10*8), Z0C(10*30I 


V FOR AOl, AOl 

C 

C 

c 
c 
C 

c 
c 
c 
c 
c 
c 
c 
c 


AOl 
AOl 

AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOl 
AOL 

1050 F0RMATIlHl,///.///.29X* Ml 

1 53HSUBSONIC-FLO). LIFTING SURFACE ANALYSIS PROGRAM HAO 108, //, 37X, AOl 

2 36HTRW systems INC., HOUSTON OPERATIONS,// .AAX, AOl 

3 22HH0USTDN, TEXAS 1 77059 ).///, 16 X, 401 

4 25H**** jobs input list ♦••*,/, IX ) AOl 

AOl 
AOl 

XXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXAOl 

AOl 
AOl 
AOl 

CALL BLKOAT Ml 

REWIND KTl Ml 

WRITE IKnUTplOSO) Ml 


C0MM0N/DATA03/FLAPDJI51 ,TABD JI5 ) , A IL0JI2 ,5 1 , OELFF U 5) ,0ELT F2I 5) 

1 ,WFF11(5), HFF12I5), WFF21I5), HFF22I5I. WFF3H5) 

2 ,WFL4P1I5), WFLAP2I5), WFLAP3(5» 

COMMON/OAT605/XCC,YCG,2CG , REFS. REFC , REF R 
EQUIVALENCE (NFLG.IFLG) 

NAM EL I ST/ INPUT/KCUT,KT1 .KT2 ,KT3 ,LI NX.NWINC.NVT AlL , NFUS, COLOCP 

• , CUTOFl, CUTDF 2 

• , LFLAP, GSCALE 

• ,NSS,NCS,X,Y,2,E,C,XOC,ZOC,XOCR 

• ,WFLAPl,WFL4P2,liFLAP3,FLAPC.TABC,WSMDTH 

• ,XCG,YCC,2C6, REFS, REFC, REFB 

• , NJ08, ALFA. MACHN, HEIGHT .FLAPOJ ,TA80J,AILOJ 

• .NFLG.NSOLV 

DATA TE5T/6H AENDJ/ 

DATA NJQB/l/, NJ0BL/20/, ALFA/20*0.0/ 

DATA WCL/1,0, -0. A, -0.3, -0.2, -0,1, 0.0, 0.1,0. 2, 0.3,0, A, 0.5, 0,6, 

• 0.8,0.9,1.0,1.1*1.2,1.3«1«A,1.5,1.6/ 

DATA MACHN/lO*O.C/, HE I6HT/10*10000.0/ 

DATA SYMLF/5*D.Q/,NS0LV/1 ,1 ,10*0/ 


1000 FOnMATI L3A6,A2) 

"lOlO FQRMATI //, 15X, lAH**** JOB TIME“»IA,16M / ELAPSED TIME=,1A, 

1 17H / NO. PLOT FILES»,|A,35H / NSURF EXEC. VERSION 6-18-72 

2 //,15X,A7I2H**) ,/,15X,A7l2H**l ) 

C 

1020 FORMAT! IHl ,10X, 35H**** JOBS INPUT LIST-CONTINUED *•**,/, IX 

1030 FORMAT! IX, 13A6,A2) 

lOAO FORMAT! IX, IIM7 XOT NSURF) 


10 

20 

30 

AO 

50 

60 

70 

80 

90 

100 

110 

120 

130 

lAO 

150 

160 

ITO 

IBO 

190 

200 

210 

220 

230 

2A0 

250 

260 

270 

2 SO 
290 
300 
310 
320 
330 
3A0 
350 

3 60 
370 
380 
390 
AOO 
AIO 
A20 
A30 
AAO 
A50 
AAO 
A70 
ABO 
A90 
500 
510 
520 
530 
5A0 
550 
560 
570 
590 
590 
600 
610 
620 
630 
6A0 
650 
660 
670 
680 
690 
700 
710 
720 
730 
7A0 
750 
760 
7 TO 
780 
790 
800 
810 


11 

12 

13 

lA 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 
27 
2 B 

29 

30 

31 

32 

33 
3A 

35 

36 

37 
30 

39 

40 
Al 
A2 
A3 
AA 
A5 
A6 
AT 
A8 
A9 

50 

51 

52 

53 
5A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7A 

75 

76 

77 

78 

79 
BO 
01 
82 
83 
9A 
B5 
86 
97 
88 

89 

90 

91 


V = 7/8 PUNCH 
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WRITE (HOUT,10?OI 
WRITE IK3UT,10<>0» 

L IN = 15 

1D60 PE4D mn, lOOOHSlnRFIJ » ,1=1.14) 

WR ITE (KTl.lOOOMSTORF m .1=1 ,14) 
IF (LINX-LIM lOTC.lOBO.l 080 
1070 WftITF IKDUT.1020) 

1. IN= 3 

1000 LIN= LtN *1 

WRITE (OUT,l030MSTnftE (I » ,1 = 1.14) 
C 

IF ( STORE! II, NF. TEST) GO TO 1060 
FNO FUF KTI 
REWINO KTI 
WRITF IKOUT, 10401 
C 

NCOMT=- I 
NCALCP= -1 
ISUH = 0.0 
GSCALE= 1.0 
C 

CALL RESET 
C 
C 

10«JO HEAD IKTl, 1000) (TITLE! I) .1-1.14) 
IFITITiei 1 I.EO. TEST) CALL FXIT 
IF (NCOMT) 1100.1100.1110 
1100 BEAD (KTI, 1000) ICCMMTSn ) ,1-1 ,42) 
mo NCOMT- 1 

REAC (KTI, INPUT) 

C 

IF (NCALCPI 1120,1120,1140 
1120 NCALCP- 1 
1130 REWIND KT2 
1140 CONTINUE 
C 

NSUPF= NWING ♦MFCS ♦) AH S ! NVTAl LI 
NSTM = NWINC t NFUS 
DO 1160 NSF=1,NSLRF 
SVMLFINSF ) - 0.0 
IF (NSTM-NSF) 1 1 FD, 1160,1 160 
IISO SVMLFINSF ) = 1.0 
1160 CONTINUE 
C 
C 

ALFAO= 0.0 
ZHO = 10000.0 
CMAK = 0.0 
C 

XCG = GSCALF*XCG 
YCC = CSCALF*VCG 
ZCG = GSCALE*ZCG 
REFC« GSCALF4R6FC 
REFB- GSC4LF4REFB 
REFS- CSCALF*GSCALE»RFFS 
C 

IF (WSMOTH-l.OI 1180,1100,1170 
1170 WSMOTH- WSM0TH4GSCALF 
1160 CONTINUE 
C 

DO 1240 N-l,*; 

IF ( WFLAP IINI- 1.0) 1200,1200.1190 
1190 WFLAPKN I = WFLAP1(N)*GSC4LE 
1200 IF (HFLAP2(N|-1.0I 1220 . 1220, 12 10 
1210 UFLAP2(N) = WFL AP2 (N) «GSCALE 
1220 IF (WFLAP3(NI- l.CI 124 0 . 1 24 0, 1 2 30 
1230 WFLAP31NI = WFLAP3(N)*GSCALE 
1240 r.ONT INUE 
C 

JX= NSSINSUBF) 

00 1270 K=l,10 
DO 1260 J-l.JX 
IF 1IFLG(16I) 12(0,1260,1240 
1240 zoc(K,ji= znc (K, JI/CI J) 

1260 CONTINUE 
1270 CONT INUE 
C 

DO 1310 J=l,30 
X!JI = XlJl*GSCALE 
V! J 1 = Y( J)*GSCALE 
Z(J) = Z(J)*CSCALE 
CIJ) - C(J)*GSCALE 
IF (FLAPCIJI-l.O) 1290,1290,1280 
1280 FLAPCIJI- FLAPC! J)*CSC6LE 
1290 IF (TABC(JI-l.O) 1 310 , I 31 C, 1 3 00 
1300 TABCIJ) = TAHC (J)*GSCALE 
1310 CONTINUE 
C 

GSCAlE= l.O 
C 
C 

CALL PAGF 

WRITE (KDUT.INPLITI 
C 
C 
C 

CALL LOFT 
C 
C 

00 1420 N=1,NJ09 
C 

4LFA0- ALFA(N) 

ME IGT- HEIGHT(N) 

ALFAD= ALFAD 
ZHO = MEIGT 
CMAK = 0.0 


AOI 

820 

92 

AOl 

830 

93 

AOI 

840 

94 

AOl 

a SO 

95 

AOI 

860 

96 

AOl 

870 

97 

AOI 

880 

98 

AOl 

890 

99 

AOl 

900 

100 

AOl 

910 

lOl 

AOl 

920 

102 

AOl 

930 

103 

AOl 

940 

104 

AOl 

9S0 

105 

AOl 

960 

106 

AOl 

970 

lOT 

AOl 

9 80 

lOfl 

AOl 

990 

109 

AOl 

1000 

110 

AOl 

1010 

111 

AOI 

1020 

112 

AOl 

1030 

113 

AOl 

1040 

114 

AOl 

1050 

116 

ADI 

10 60 

116 

AOl 

1070 

117 

AOl 

lOBO 

116 

AOl 

1090 

119 

AOl 

1100 

120 

AOl 

1110 

121 

AOl 

1120 

122 

AOl 

1130 

123 

ADI 

1140 

124 

AOl 

1150 

125 

AOl 

1160 

126 

AOl 

1170 

127 

AOl 

1180 

128 

AOl 

1190 

129 

AOI 

1200 

130 

AOl 

1210 

131 

AOl 

1220 

132 

AOl 

1230 

133 

AOl 

1240 

134 

AOl 

1250 

135 

AOl 

1260 

136 

AOl 

1270 

137 

AOl 

1280 

138 

AOl 

1290 

139 

AOl 

1300 

140 

AOl 

1310 

141 

AOl 

1320 

142 

AOl 

1330 

143 

AOl 

1340 

144 

AOl 

13SD 

145 

AOl 

1360 

1*6 

AOl 

1370 

147 

AOl 

1380 

148 

AOl 

1390 

149 

AOl 

1400 

1 50 

AOl 

1410 

151 

AOl 

1420 

152 

AOI 

1430 

153 

ADI 

1440 

154 

AOl 

1450 

155 

AOl 

I46D 

156 

AOl 

1470 

157 

AOl 

1480 

158 

AOl 

1490 

159 

AOl 

ISOO 

160 

AOl 

1510 

161 

AOl 

1520 

162 

AOl 

1530 

163 

AOl 

1540 

164 

AOl 

1550 

165 

AOl 

1560 

166 

AOl 

1570 

167 

AOl 

1580 

168 

AOl 

1590 

169 

AOl 

1600 

170 

AOl 

1610 

171 

401 

1620 

1 72 

AOl 

1630 

173 

AOl 

1640 

174 

AOl 

1650 

175 

AOl 

1660 

176 

AOl 

1670 

177 

AOl 

1660 

170 

AOl 

1690 

179 

AOl 

1700 

IHD 

AOl 

1710 

lai 

AOl 

1720 

182 

AOl 

1730 

183 

AOl 

1740 

184 

AOl 

1750 

185 

AOl 

IT 60 

1 86 

AOl 

1770 

187 

AOl 

1780 

188 

AOl 

1790 

189 

AOl 

1800 

1 90 

AOl 

18 10 

191 

AOl 

1820 

192 

AOl 

1830 

193 

AOl 

1840 

19* 

AOl 

1850 

195 

AOl 

I860 

196 

AOl 

1870 

197 
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EXKKin= 1.0 

IF CHACHN(Nl-0.9£) 1320.1 320.1930 
1320 CHAK = HACHNCNI 
C 

CAtL ABOATJISiCHAKiNI 
C 

exECKm« SQ«T( l.0-CMAK**2l 
1330 CONTINUE 
C 
C 

DO 1390 L-1.6 
N$l3 NSOLVIl.LI 
N$2= N$0LVI2.LI 
IF INS2) 1390.1390,1390 
1390 CONTINUE 
C 

TEST - 0.0 
DO 1350 M>NS1.NS2 
SYMLFINM 0.0 

1350 TEST= test ♦ AflSI AILDJIl.H) - AIL0JI2.MI I -0.01 
IF ITFSTI 1380.1380,1360 
1360 CONT INUE 

00 1370 «=NS1,NS2 
1370 STMLFIHJ” 1.0 
13R0 CONTINUE 
C 
C 

CALL L IFTXIALFAD,H61GT,SYMLF,NS1,NS21 
C 
C 

1390 CONTINUE 
C 
C 

CALL TIHEIIMSI 
IS= INS/1000 
I5JB== IS- I SUN 
!SUN= IS 
C 

LIN= LIN+6 

IF (LINX-LINI 1900.1910,1910 
1900 CALL PAGE 

1910 MRTTE (KOUT,1010I1SJB .IS.KFILE 
LIN= LIN ♦ LINX 
C 

1920 CONTINUE 
C 

GO TO 1090 
C 
C 

END 


not 

1580 

198 

AOl 

1590 

l99 

AOl 

1900 

200 

AOl 

1910 

201 

AOl 

1920 

202 

AOl 

1930 

203 

AOl 

1940 

209 

AOl 

1950 

205 

AOl 

1960 

206 

AOl 

1970 

207 

AOl 

1950 

205 

AOl 

1990 

209 

AOl 

2000 

210 

AOl 

2010 

211 

AOl 

2020 

212 

AOl 

2030 

213 

AOl 

2040 

214 

AOl 

2050 

215 

AQl 

2060 

216 

AOl 

20 70 

217 

AOl 

2080 

215 

AOl 

2090 

219 

AOl 

2100 

220 

AOl 

2110 

221 

AOl 

2120 

222 

AOl 

2130 

223 

AOl 

2140 

224 

AOl 

2150 

225 

AOl 

2160 

226 

AOl 

2170 

227 

AOl 

2180 

228 

AOl 

2190 

229 

AOl 

2200 

230 

AOl 

2210 

231 

AOl 

2220 

232 

AOl 

2230 

233 

AOl 

2240 

234 

AOl 

2250 

235 

AOl 

2260 

236 

AOl 

2270 

237 

AOl 

2250 

238 

AOl 

2290 

239 

AOl 

2300 

240 

AOl 

2310 

241 

AOl 

2320 

242 

AOl 

2330 

243 

AOl 

2390 

244 

AOl 

2350 

245 

AOl 

23 60 

246 

AOl 

2370 

247 


FOR A02.A02 


SUBROUTINE BLKOAT 


A02 
A02 
A02 
A02 
A02 

* TRW NULTIPLE- SURFACE VORTEX-LATTICE PROGRAN - REVISED 8 AUG. 72 *A02 
» PROGRAN DEVELOPED BY A.V.CQNE2 ITRH SYSTENSl ON JUNE-JULY 1971 *A02 

AOZ 

XXKKXXXXXXXXXXXKXXXKXXXXXXXXXXXXXXXXKXXKXKXXXXXXXXXXXXXXKXXXXXXXXXA02 

A02 

ALFAO. ZMO, CNAK 


COHNON/DATAQO/ TITLE1191, 

CONNON/DATAOl/ KIN, KOUT, KTl , KT2, KT3, KREC, KFILE, LIN, LINK 

1 ,RAD. PIE, CUTOFl, CUT0F2, DELALF, LFLAP, LORAG, COLOCP 

2 ,IFLCI20), EXECKI151 

C0NN0N/0ATA02/ NhlNG, NFUS, NVTAIL, NSSI5I, NSS0I51, NCSI5I 


AO 2 
A02 
AO 2 
A02 
A02 
A02 
AO 2 


1 ,XI30I, YI301, II30I, EI30I, CI30J, X0CRI30I, FL APCI 30 1, T ABCI 30 1 A02 

2 .WSMOTH, EWEI301, ELEI30I, ETEI30I, EHEI30I, EHEEOOI 

3 ,X0C<I0,5). 20CUO,30J 

CONNON/OATA03/FLAPDJI5I .TAB0JI5 »,AILDJI2,51,0ELTFII5I. 0ELTF2I 51 

1 ,WFF11I51, WFF12I5I, WFF2H5I, WFF22I51, UFF31I51 

2 .HFLAPII51, WFLAP2I5I, WFLAP3I51 


A02 
AOZ 
AO 2 
AOZ 
AOZ 
AOZ 
AOZ 

COHNON/OATA09/ HING0I5.161, JNl IS) , JN2I5I, KN2151, S YNGFl 5 1, NSURFA02 

1 .EWIAO.lOlt EYI60,10), ECIAO.lOl, ESI60,10), EG(60«10I AOZ 

2 ,EN(60. 10,61, EVI60,10,6), VVI NDXI60,10,3I A02 

AOZ 

CONNON/OATAOS/XCG.YCG.ZC&.REFS.REFC.REFB A02 

AOZ 

XXXKXXXKXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXKXXKXXXKXXXKXXXXXXXXXAOZ 

AOZ 

DATA KIN/S/. KOUT/6/, KTl/1/, KT2/8/. KT3/3/ , KREC/O/, KFILE/0/ AOZ 

1. LIN/0/. LINX/S6/, RAD/57.2958/, PIE/3.19159/, CUTOFl/0.000 1/ AOZ 

2. CUTOF2/O.OOZ9/, DELALF/1.0/. LFLAP/0/, LORAG/0/. C0LXP/0.T5/ AQ2 

3, IFLG/10,0.0,0,0, 9,0. 0,0,0, 5*0, 0 ,0 ,1 ,0 ,9/ ,£XECK/ 15*0 .0/ AOZ 

A03 

DATA NWINC/l/t NFLS/0/, NVT AIL/0/, NSS/2,9*0/ ,NSS0/ l,9*0/,NCS/2,9*0/A02 
l.X/30*0.0/,Y/0. 0,1000. 0.2 9*0.0/,Z/30*0.0/,£/30*0.0/,C/lOO.O, 100. Q AOZ 

- “ AOZ 

AOZ 
AOZ 
AOZ 
AOZ 
AOZ 
AOZ 
AOZ 
AOZ 


2,28*0.0/,XOCR/30*0.25/,FLAPC/30*0,25/,TABC/30*0.1Z5/ 
3,WSNOTH/0. 10/. XCC/0.0,1. 0.98*0,0/,znC/300*0.0/ 

DATA FLAP0J/5*0,C/.TA8OJ/5*0. 0/.AILOJ/10*Q.O/ 

DATA wFLAP 1/5*0. 0/,HFLAP2/5*0.60/.HFLAP3/5*l .00/ 

DATA XCG/O.O/, YCG/0.0/, zee /0,0/, REFS/ 1 000.0/, HEFC/ 100.0/ 
I ,REFB/IOQ.O/ 


XXXXXXKXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXKXXADZ 

AOZ 


RETURN 

XXXXXX 


AOZ 

AOZ 
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920 
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530 


248 

299 

250 
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267 
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289 

290 
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299 

300 
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A02 

9«0 

301 

ENO 

A02 

550 

302 


FOR A03fA03 




AOS 

10 

303 





AOS 

20 

309 

SUBROUTINE LOFT 




A03 

30 

305 





A03 

90 

306 

* TRM MUlTIPLE-SURf ACE VORTEX-L ATTI CE PROGRAM 

- REVISED 

8 AUG. 72 *A03 

50 

307 

* PROGRAM DEVELOPED 8r A.V.GDME2 ITRW SVSTEHSI 

ON JUNE-JULY 1971 AAOS 

60 

308 





A03 

70 

309 

KXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXKKXXXA03 

80 

310 





A03 

90 

111 

DIMENSION Cnsil 31 .C052I31 ,C0S3I31 




AO 3 

100 

312 

DIMENSION DUMYFIIC) 




AO 3 

110 

313 





AO 3 

120 

319 





A03 

130 

115 

CDHMON/DArAOl/ MAJ, KOUT , XTl, KT2, 

XT3, KREC, 

KFILE, LIN, LINK 

AO 3 

190 

316 

1 ,RAD, PIE, CUTOFl. CUT0F2, DELALF, 

LFLAP, LORAG, COLOCP 


AO 3 

150 

317 

2 , IFLG(20I t EXECK 1151 




AO 3 

160 

318 





AOS 

170 

319 

COMMON/DA TA02/ NhING. NFUS, NVTAIL, 

NSSI5), NSS015), NCS15I 

AO 3 

180 

320 

1 ,X(3D», rOOI, 2001. EO0>, COO) 

• XOCRI30), 

FLAPCI30) 

,T ABC! 3DI 

AO 3 

190 

321 

2 .WSMDTH, EUEITO), ELEOO), ETE(30I 

, EHEI30), 

EHEE130I 


AO 3 

200 

322 

3 ,xnc(10,5), ZOCUO,30I 




A03 

210 

323 

COMMON /DAI A22/'1MAGEF ( 5 | , JSINGPI 5) 




AO 3 

220 

329 





AO 3 

230 

325 

COMMON /OATA03/FLAPOJI5) .TA80J (5 » » A I LOJ( 2,51 , DELTF II 51 , CELT F2I 51 

AO 3 

290 

326 

1 ,WFF1U5), WFF12I5). WFF2H5), WFF22I5I, MFF31I5P 


A03 

250 

327 

2 ,WFLAP1I5I, MFLAP2I5), UFLAP3I5) 




A03 

260 

326 





A03 

270 

329 

COMMON/DATAOA/ h I NGD4 5 , 16 1 , JNM5), 

JN2C5I, KN2I5), SYMGFI 5 ), NSURF A03 

2 80 

3 3D 

1 .EU(60,10), EYIAO.IO), EC46D,1D>, I 

ESI60,10I , 

EGlbOtlOl 


A03 

290 

331 

2 ,EN(60,IO.M, EV(60,10.6I, VVI N0XI60, 10,31 



AOS 

300 

332 





AO 3 

310 

333 

COMMON /OATA05/XCC, VCC.ZCG, REF S,R£FC 

,PEF8 



AOS 

320 

339 





AOS 

330 

335 

XXXXXXXXKKXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXKXXXKXXXXXXXXXXKXXXXA03 

390 

336 





AO 3 

350 

337 

1000 FORMAT! IX,//, IX) 




AO 3 

360 

338 





AOS 

370 

339 

1010 FORMATISOX.IQHLIFTING SURFACE N0= • 1 2 , / .50X.2 11 IH* 1 ,/// , IX, 

AO 3 

380 

390 

1 60H SPAN ROOT TIP 

ROOT 

TIP 

AREA . 

AO 3 

390 

391 

2 59H ASPECT MEAN MCC 

Y8AR 

XBAR 

Z0AR,/ 

, A03 

900 

392 

361H CHURO CHORD 

TWIST 

TWIST 

, 

AO 3 

910 

393 

A 60H RATIO CHORD IMAC) 

IMGCI 

IMGC) 

IMGC), 

/A03 

920 

399 

5/, IX,3FI0.3,2F IO.A,F10.2,FIQ.A,5FIO 

.3,//, IX, 



AOS 

930 

395 

6 60H FLAP FLAP FLAP 

FLAP 

TAB 

L.AIL . 

AO 3 

940 

396 

7 60H R.AIL OIHED. SMFFP 

NO. SPAN 

NO, CHORD 

NC. CHORD, 

/A03 

950 

397 

0.61H SPANl SPAN2 SPAN3 

DE Ftec 

DEFLEC 

DEFLEC 

• AOS 

960 

398 

R 60H DEFLFC M6C/A MGC /A 

ELEMENTS 

ELEMENTS 

OISCONT ., 

AOS 

970 

399 

•/, lX,9Fl0.3,17,2tlD,//,3AX, 




AO 3 

9 80 

350 

1 SbHFUS STA XING STA ML STA 

AREA 

CHORD 

SPAN •/ 

• A03 

990 

351 

23AX,56H XlfG) VICGl ZICGI 

SICGI 

CICC) 

BICCI, / 

, A03 

500 

352 

33IX,6F10.3,///, IX) 




AO 3 

510 

353 





AO 3 

520 

359 

1020 FORMAT! IX) 




AOS 

530 

355 





AO 3 

590 

356 

1030 FORMAT! IK, 




A03 

550 

357 

1 60H WS V 1 

X(LE) 

K!C/AI 

X(TE) , 

AO 3 

560 

358 

2 60H TWIST OlHEIC/A) SWEPIC/A) 

CIWINC) 

C!FLAP| 

CITA01 , 

A03 

5 70 

359 

3 /.IX) 




A03 

580 

360 

lOAO FORMAT! IX, 12FIC.3 ) 




AO 3 

590 

361 





A03 

600 

362 

IQ5Q FORMAT! 21 X.AOH KA ! 1) /C XA!2)/C 

XAOI/C 

XAIAI/C 

X A!5)/C, 

AO 3 

610 

363 

1 50H XA!6)/C XAI7)/C XAI8)/C 

XAni/C 

XAI 10)/C,//,2IX, 

A03 

620 

369 

2 lOFlO.A,///, IX, AOH X 

Y 

ZAIU/C 

Z AI2I/C, 

AO 3 

630 

365 

3 60K ZA!3)/C £A!A)/C ZA451/C 

ZA!A)/C 

ZAITI/C 

z Aiai/c, 

A03 

690 

366 

A 20H ZAt0)/C ZAI1D)/C,/,1X ) 




A03 

650 

36 7 

1060 FORMAT! 1X,12F10.A ) 




A03 

660 

368 





A03 

670 

369 

1070 FORMAT! 3X, AMJ K, AOH Y 

z 

ML 

EM , 

AO 3 

680 

370 

1,30H nWL DC OS , 

/,IX) 



A03 

690 

371 

1080 FORMAT! IX, 213, 12IIPE10. 3) ) 




AO 3 

700 

372 





AO 3 

710 

373 

1090 FORMAT! 3X, IH J . 2 X , IHK, 5 X ,2HXV,8 X ,2H YV, 8X ,2 H2V ,8X,3H1XV,7X 

;,3H1YV, 7X 

, AOS 

720 

379 

* 3H12V,7K,2HXN,8x,2HVN,flX,2H2N,8X,3HlXN,7X,3HlVN,7K,3Hl2N, / ,1XI 

AOS 

730 

375 

IlOO FORMAT! IX, 213, 12UPF10.3) 1 




AO 3 

790 

376 





AO 3 

750 

377 

1110 FORMAT! 5X , IHB , 9X , 2HCP « 9X ,2HC T ,B X , 2HER ,6 K,2HET, 

,ex, 1HS,9X 1 

,2HAfl, ax. 

ADS 

760 

178 

♦ 2HMC,8X,3HMCC,6X,AHYMGC ,6X,AHXMCC, 

6X ,AHZMGC ,/ 

,1X1 


AOS 

770 

379 

1120 FORMAT! IX, 12F10.3 ) 




AOS 

780 

380 





AOS 

790 

381 

1130 FORMAT! IX,/, IK, lAHIEOF PLOT FILE, 13 

,1H) I 



AO 3 

800 

382 





AO 3 

810 

383 

KXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXKXXXXXXXX A03 

820 

389 





AO 3 

830 

305 





AOS 

890 

386 





AO 3 

850 

387 

**• INITIALIZE •** 




A03 

860 

388 





AO 3 

870 

389 

XEROX = 0,0 




AO 3 

880 

390 

ZEROX = 0,0 




AO 3 

890 

391 

NHING= NWING * NFUS 




AO 3 

900 

392 

NSUPF* NHING * lABSINVTAIL) 




A03 

910 

393 

MFLAG= lOO 




AOS 

920 

399 

1F1NVTAIL.LT,0) rflac* NMING +l 




AOS 

930 

395 

NFUS ’ 0 




AOS 

990 

396 





AO 3 

950 

397 

CALL abort J l 1, XEROX, NSUPF > 




AOS 

960 

398 





AO 3 

970 

399 

SUMW = 0.0 




AOS 

980 

400 





AOS 

990 

901 

NK> 30 




A03 

1000 

902 

00 1190 N=l,NX 




AOS 

1010 

903 


9-4 



EM(F(N»- SUHH 

A03 1020 

404 

ELE(N»= XJN) - CIN»*XOCMNI 

A03 1030 

409 

ETEtN»= ELEIN> » CCN> 

A03 1040 

406 

CftAP » FLAPCIN) 

A03 1090 

407 

CTA8 > TABCIN) 

A03 1060 

408 

c 

A03 1070 

409 

IF <CFLAP-l.OI 1140,1190,1190 

A03 1080 

410 

1140 CFLAP = CFLAP*CINI 

A03 1090 

411 

1190 IF ICTAB-1.0) 1110.1170, 1170 

A03 IlOO 

412 

1160 CT48 = CTAB^CIN) 

AQ3 mo 

413 

1170 CONTINUE 

A03 1120 

414 

EHEINt » ETEINJ - CFLAP 

AOS 1130 

419 

EHEEINI- ETEINI - CTAB 

A03 1140 

416 

IF IN~NXl lieOfl 190,1 1<)0 

AOS 1190 

417 

Iieo Nl> N4l 

A03 1160 

410 

1190 SUMH » SUNW ♦ SQ«T< 1 Z INI -ZINIM **2 ♦ 1 YINI-VINII 1 

A03 1170 

419 

c 

A03 1180 

420 

NO > 1 

A03 1190 

421 

Jl“ 0 

AOS 1200 

422 

00 1200 N> UNSURF 

A03 1210 

423 

J2» NSSINI 

A03 1220 

424 

CALL ADORTJIIO.JZ.JII 

A03 1230 

429 

Jl» J2 

A03 1240 

426 

NSSOINU NO 

AOS 1290 

427 

1200 NO ' NSS4NI tl 

A03 1260 

420 

J 1 3 1 

AOS 1270 

429 

C 

A03 1280 

430 

CALL AaaPTJI6,KER0X,NI 

A03 1290 

431 

C 

A03 1300 

432 

C 

A03 1310 

433 

C N- SUP FACE LOOP 

A03 1320 

434 

C 

A03 1330 

439 

00 2060 NSF-l.NSURF 

AOS 1340 

436 

C 

A03 1390 

43T 

C 

A03 1360 

43B 

C •* CALCULATE HETTEO LENGTH •* 

A03 1370 

439 

C 

A03 1380 

440 

NREPET- 0 

AOS 1390 

441 

IFINSF.GE.MFLAGI NREPET~ 1 

A03 1400 

442 

NSFWla NSf - 1 

AOS 1410 

443 

NSF5 ■ NSF ♦ 9 

AOS 1420 

444 

NSF10= NSF ♦ 10 

AOS 1430 

449 

NSPV = IFLCINSFl 

A03 1440 

446 

nCv » IFLG(NSF5I 

AOS 1490 

447 

NCDIS> IFLG(NSFIO) 

AOS 1460 

448 

NCVW ” NCV - NCOIS 

AOS 1470 

449 

NSPV1» NSPV ♦ 1 

AOS 1480 

450 

NCVl “ NCV ♦ 1 

AOS 1490 

451 

NB = NSSINSF) 

A03 1900 

492 

NO * NSSOCNSFI 

A03 1910 

493 

NK • NCSINSF) 

AOS 1920 

494 

OCORO > l.O/FLOATINCVVO 

A03 1930 

499 

IMACEFINSF 1- NSPV 

AO 3 1940 

496 

JSINGPINSF l> 0 

AOS 1950 

497 

C 

AOS 1960 

458 

CALL A80RTJI3,XEP0X,NCV» 

A03 1970 

459 

CALL A80RTJ<7,XEROX,NK) 

AOS 1980 

460 

CALL AB0RTJI8,XER0X,NSPVI 

A03 1590 

461 

CALL ABORTJIO.XEROX.NCVHI 

AOS 1600 

462 

C 

A03 1610 

463 

BOTU >=lEHe(N9l-ENE(N0M 

A03 1620 

464 

C 

A03 1630 

469 

OELTFllNSFJ = NSPCTH 

A03 1640 

466 

0ELTF2INSF1 - NS«OTH 

AOS 1650 

467 

C 

A03 1660 

468 

IF 40ELTF1INSF l-l.Ot 1210,1220,1220 

AOS 1670 

469 

1210 DELTFUNSF) = OELTFKNSF) *60TU 

AO 3 1660 

470 

0ECTF2INSFJ - 0ELTF21N5FI *BGTU 

A03 1690 

471 

1220 CONTINUE 

A03 1700 

472 

C 

A03 1710 

473 

HFFIKNSFI = HFLAPliNSF) 

A03 1720 

474 

WFF2KNSF1 = HFLAP2(NSF» 

AO 3 1730 

475 

WFF31INSFI * NFLAP3<NSF» 

A03 1740 

476 

C 

A03 1750 

477 

IF lUFFlllNSFl-l.Ol) 1230,1240,1240 

AOS 1760 

478 

1230 WFFIHNSFI = hFF11INSF)*B0TU 

AOS 1770 

479 

1240 IF (MFF21(NSf 1-1,01) 1250,1260,1260 

A03 1780 

480 

1250 VFF2UN5FI = HFF2UNSFI *BQTU 

AOS 1790 

481 

1260 IF (UFF31(NSF)-l.all 1270,1200,1260 

AOS 1800 

482 

1270 NFF31INSF) = WFF3 11 NSF 1 *BOTU 

AOS 1810 

483 

1260 CONTINUE 

AOS 1820 

464 

C 

AOS 1830 

465 

MFFIKNSFI • WFFllfNSFI - DELTFll NSF 1/2.0 

AOS 1640 

486 

MFF21INSFI » WFF2KNSFI - OE LTFl I NSF 1/2.0 

AOS 1B90 

407 

HFF31INSFI = WFF3KNSF1 - OELTFI < NSF 1/2.0 

AOS 1660 

4B8 

C 

AOS 1670 

4B9 

HFF12(NSFI = UFFIKNSFI * DELTFlINSFl 

AOS 1660 

490 

HFF22INSFI = HFF2UNSF1 *■ DELTFlINSFl 

AOS 1890 

491 

C 

AOS 1900 

492 

C 

AQ3 1910 

493 

c ** calculate wing panels *• 

A03 1920 

494 

c 

AOS 1930 

495 

IF (NSF-HHINGI 1290,1290,1300 

AOS 1940 

496 

1290 CONTINUE 

A03 1950 

49? 

SVHF= 2.0 

AOS 1960 

498 

SPAN = 0OTU*2.O 

A03 1970 

499 

WINGDINSF, ll>= V(NB1*2.0 

A03 1980 

900 

GO TO 1310 

AOS 1990 

501 

1300 CONTINUE 

A03 2000 

502 

SyMF= l.O 

AOS 2010 

503 

SPAN' BOTU 

AOS 2020 

504 

WINCDINSF, 11= SPAN 

ADS 2030 

505 

1310 CONTINUE 

AO 3 2040 

506 

C 

AOS 2090 

507 

MINGOINSF, 21= CINOI 

AOS 2060 

508 

UINGD4NSF, 3ls CINBI 

AOS 2070 

909 
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UlNGOINSF,*!- E(KIO> 

AO 3 

2080 

510 


HlNCniNSf ,51“ ecnbi 

A03 

2090 

511 

c 


AO 3 

2100 

512 


OSPAN= SPAN/FL04TtNSPVI 

AO 3 

2110 

513 

c 


AO 3 

2120 

51* 


JNl(NSF) > JI 

AO a 

2130 

515 


JMZINSFI = Jl ♦NSPV -1 

AO 3 

21*0 

516 


KN21NSF1 = NCV 

AO 3 

2190 

517 


J2 - JNZiNSFI 

AO 3 

2160 

518 


J3 “ J2 ♦! 

A03 

2170 

519 

c 

AO 3 

2190 

520 


CALL AflORTJlZtXFRCX,J3I 

A03 

2190 

521 

c 


AO 3 

2200 

522 


SYHGF«NSFl= SYHF 

AO 3 

2210 

523 

c 


AO 3 

2220 

52* 

c 


AO a 

2230 

525 

c 


AO 3 

22*0 

526 

c ♦* 

VORTEX LATTICE CECHETRY •• 

AO 3 

2250 

527 

c 


AO 3 

2260 

528 


DO 1300 J-JI.J3 

AO 3 

22T0 

529 

c 


AO 3 

22 90 

530 


WS= -BOTH* I SYNF- 1.01 ♦ 0SPAN*FLCAT1J-J1 1 

A03 

2290 

531 


WAA> ABSIWS) 

AOS 

2300 

532 


HA = UAA * EWE < NCI 

AO 3 

2310 

533 

c 


AO 3 

2320 

53* 


CALL COROF (MA , Y A , KLE ,XTF , ZLE ,FPS, CH.CF, CT A8 ,T AND, T ANS , RATS , Ml ,H2 1 

AO 3 

2330 

535 

c 


A03 

23*0 

536 


SIGN^l.O 

AO 3 

2350 

537 


TEST- a.OOOl-UAA 

A03 

2360 

539 


IF ITESTl 1320,1330,1330 

A03 

23T0 

539 

1320 

StGN> HS/WAA 

AO 3 

23 80 

5*0 

1330 

V8« YA*S1GN 

A03 

2390 

5*1 


IF (NCOIS-11 1330,13*0,13*0 

A03 

2*00 

5*2 

13*0 

CM= CW - CF 

A03 

2*10 

5*3 

ISSO 

CONT INUe 

A03 

2*20 

5** 

C 


AO 3 

2*30 

5*5 


00 1360 K^l.NCV 

AO 3 

2**0 

5*6 

C 


A03 

2*50 

5*7 


XKM= FLOAT(K-l) 

AO 3 

2*60 

5*8 

C 


AO 3 

2*70 

5*9 


BYIJ.K 1= WS 

A03 

2*80 

550 


EC< J,K 1= CW*DCORO 

AO 3 

2*90 

551 


EH(J,K)> UA 

A03 

2500 

552 

C 


A03 

2510 

553 


EV(J,K,11= XLE ♦ CW»OCORO*10.2S*XKMI 

AO 3 

2520 

55* 


FV4J,K,21= Y6 

AO 3 

2530 

555 


FVIJ,K,31s ZLE 

AO 3 

25*0 

556 

C 


AO 3 

2550 

557 


FNIJ,K,1I= XLE ♦ CW*OCORD*(COLOCP ♦ XXMl 

AO 3 

2560 

558 


FN(J,K,2)= YB 

AO 3 

2570 

559 


ENIJ,K,3>- ZLE 

AO 3 

25 90 

560 

C 


AO 3 

2590 

561 

1360 

CONTINUE 

AO 3 

2600 

562 

C 


AO 3 

2610 

563 

c 


AO 3 

2620 

56* 


IF INCDlS-11 1390,1370,1300 

A03 

2630 

565 

1370 

CONTINUE 

AO 3 

26*0 

566 

C 


40 3 

2650 

567 


K= NCV 

AO 3 

2660 

568 


ECU.KI - CF 

AO 3 

2670 

569 


EVIJ,K,ll= XTE - CF+O.TS 

AO 3 

2680 

570 


EN(J,K,1I» XTE - CF*tl.O - COLOCPI 

A03 

2690 

571 


GO TO 1300 

A03 

2700 

5 72 

C 


A03 

2710 

573 

13"0 

CONTINUE 

AO 3 

2720 

57* 


K= NCV 

AO 3 

2730 

575 


ECUtKl^ CTAO 

AO 3 

27*0 

576 


EVIJ,K,l)= XTE - CTAB*0.75 

403 

2T50 

57T 


ENIJ,K,ll= XTE - CTAB*I l.O - COIOCP 1 

AO 3 

2T60 

578 


K= K - 1 

a0 3 

2T70 

579 


ECU, XI = CF - CTAB 

AO 3 

2780 

580 


EVIJ,K,M<^ XTF - CTAB - £C(J,Kl*a.75 

AO 3 

2790 

581 


EN(J,X,l>= XTE - CTAB - ECU, K1 *11.0 - CULOCPl 

AO 3 

2900 

562 

C 


AO 3 

2810 

583 

C 


AO 3 

2820 

58* 

1300 

CONTINUE 

40 3 

2830 

565 

C 


AO 3 

28*0 

586 

C 


AO 3 

2850 

587 


DO 1*10 J=J1,J3 

403 

2860 

588 

C 


403 

2870 

589 


WA= EMU, 1 I 

403 

2980 

590 

C 


403 

2890 

591 


CALL COBDF (MA,YA,XLE ,XTF ,ZLF ,EPS, CW,C F, CT AB, T AND, T ANS , RATS , Ml , M2 1 

403 

2900 

592 

C 


40 3 

2910 

593 


DO 1*00 K=l,NCV 

403 

2920 

59* 

C 


403 

2930 

595 


XF1= EV(J,K,1I 

40 3 

29*0 

596 


ZFi= EV(J,K,3I 

403 

2950 

597 

C 


403 

2960 

598 


CALL CAMBEF (NSF ,NR,H1 ,H2,RATS,EPS,XIE,CW, XFl.ZFll 

40 3 

2970 

599 

C 


403 

2980 

600 


EVU,K,31 = ZFl 

403 

2990 

601 

C 


403 

3000 

602 


XF1= FNU.X. 11 

403 

3010 

603 


Zfl= ENIJ.K,31 

40 3 

3020 

60* 

c 


A03 

3030 

605 


CALL CAMRERINSF ,NK,M1,M2,BATS,EPS,XLE,CW, XFl,ZFl) 

403 

30*0 

606 

c 


403 

3050 

60T 


ENU,K,3> = ZFL 

A03 

3060 

608 

c 


A03 

3070 

609 

1*00 

CONTINUE 

A03 

3090 

610 

1*10 

CONT INUE 

AO 3 

3090 

611 

c 

c 

c 

ORIGINAL PAGE IB 

DO 1*30 J = Jl,J2 POOR quality 

A03 
AO 3 
AO 3 
AO 3 

3100 

aiiQ 

3120 

3130 

612 

613 

6l* 

615 
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JJ« J*l 

c 

DO 1420 K=l.NCV 
C 

fYIJ.K»= f Y< J3fJC»-eV( J,K> 

ESI JiK 1= 0.5*6YIJtKI*C EClJiKI «ECIJ3iK) I 

C 

ENIJ,K,I»- O.S*( EUlJtK.lI ♦ £NIJ3fK,l) I 
FNIJ.K,2)> 0.5*1 EN«J,K.21 ♦ ENIJ3iK*2l I 
EN<J»K,3I= 0.5*1 ENIJ»K,3t * ENIJ3.K,3> I 
C 

1420 CONTINUE 
1430 CONTINUE 
C 
C 

C ** CALCULATE UNIT VECTORS •• 

C 

DO 1490 
J3“ J+l 
C 

00 1480 K>ltNCV 
C 

SOMl=* 0.0 
SUM2^ 0.0 
DO 1440 L>1*3 
L *3 

EVIJ.K.Ni- EV(J3,K,LI - EVIJ.K.U 

EN(J.K.M1= FN1J,IC,L) - 0.5*1 E V IJ3 1 K»L1 ♦£ VI 4 tK t LI I 
SUHl= SUMl ♦ evtJ«K.HI**2 
14t0 SUM2» SUN2 * ENlJ.K.NI**2 
C 

SUMl > SORT I SUM II 
SUH2 * S3RTISOM2I 


00 14 50 L=^1.3 
M=* I +3 

EVIJ,K,M1= EVIJ.K.Ml/SUHl 

FNU.K.ll* XTE - CTAB - EC(J.KI*I1.0 - COLOCPI 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


1390 CONTINUE 

00 1410 J=J1,J3 
WA>^ EWI J, I I 

CALI C0RDF(MA,YA,XLE,XTE ,2LE ,EP StCM.CF.CT AB.T ANO.T ANS , R ATS , M l, M2I 

□0 1400 K°1.NC V 

XFl- EVU.K.ll 
IFl- FV<J.K,3I 

CALL CAMBERINSF,NKiMl.M2,RATS»EPSfXLEfCM. XFl.ZFll 
EVU.KtTI • 2F1 


XFl- ENIJ.K.ll 
2F1- EN1J.K,3I 
C 

CALL C4MBERINSF,NK.M1,M2,B4TS.EPS»XLF,CW, XFl.ZFll 
C 

EN(J,K,3l ' ZFl 
C 

1400 CONTINUE 
1410 CONT INUE 


C 

C 

C 


C 


DO 1430 J>J1«J2 
J3= J»1 

00 1420 K^l.NCV 


C 

EYIJ.KI- EVI J3.K)-EYI J.Kl 

ES1J«KI° 0.5*EY(J«KI*I EClJ.KI 4ECIJ3.KI I 

C 

ENIJ.X.ll^ 0.3*1 ENIJ.K.l} *■ ENIJ3tK.ll I 
ENIJ,K,2I* 0.5*1 EN(J.K.2I ♦ ENIJ3,K,2I I 
ENIJ.K,3I“ 0.5*( ENIJ.X.T) * FNIJ3.K.3I I 
C 

1420 CONTINUE 
1430 CONTINUE 

c 

c 

C CALCULATE UNIT VECTORS ** 

C 

on 1490 J>JltJ2 
J3=* J + 1 
C 

DO 1480 K^l.NCV 


C 

SUH1= 0.0 
SUM2^ 0.0 
DO 1440 L=l,3 
M» I »3 

EVIJ.K,MI= EVIJ3.KtLl - EVIJ.K.LI 

ENIJ.K.MI* ENIJ.K.L) - 0.5*1 EVt J3 ,K.LI *EVl J .K, U» I 
SUMl= SUMl 4 EVIJ.K,H1**Z 
1440 SUM2= SUH2 * EN(J.K.H)**2 

C 

SUMl = SORTISUMll 
SUM 2 = 50RTISUM21 
t 

00 1450 L=1.3 


AO 3 3140 
A03 3130 
AOS 3160 
AOS 31 TO 
AOS 3160 
AOS 3100 
AOS 3200 
AOS 3210 
AOS 3220 
AOS 3230 
AOS S240 
AOS 3250 
AOS 3260 
AOS 3270 
AOS 3280 
AOS 3290 
AOS 3300 
AOS 3310 
AOS 3320 
AOS 3330 
AOS 3340 
AOS 3350 
AOS 3360 
AO 3 3370 
A03 3360 
AOS 3390 
AOS 3400 
A03 3410 
A03 3420 
AOS 3430 
AOS 3440 
AOS 3450 
A03 3460 
403 3470 
AOS 3480 
AOS 3490 
AOS 3500 
A03 3510 
A03 3520 
AOS 3530 
A03 3540 
A03 3550 
AOS 3560 
AOS 3570 
AOS 3580 
AOS 3590 
AOS 3600 
AOS 3610 
AOS 3620 
AOS 3630 
AOS 3640 
AOS 3690 
AOS 3660 
AOS 3670 
A03 3660 
A03 3690 
A03 3700 
AOS 3710 
AOa 3720 
AO 3 3730 
A03 3740 
AOS 3750 
AOS 3760 
AOS 3770 
AOS 3780 
AOS 3790 
AOS 3600 
A03 3810 
AOS 3820 
AOS 3830 
A03 3840 
AOS 3850 
AOS 3860 
AO 3 3870 
A03 3880 
A03 3890 
AOS 3900 
A03 3910 
AOS 3920 
AOS 3930 
AO 3 3940 
A03 3950 
AOS 3960 
AOS 3970 
AOS 39B0 
AOS 3990 
AOS 4000 
A03 4010 
A03 4020 
AOS 4030 
A03 4040 
A03 4050 
A03 4060 
AOS 4070 
AOS 4080 
AOS 4090 
A03 4100 
AOS 4110 
A03 4120 
A03 4130 
A03 4140 
AOS 4150 
AOS 4160 
A03 4170 
ADS 4180 
AOS 4190 


616 

617 

616 

619 

620 
621 
622 
623 
626 

625 

626 
627 
626 

629 

630 

631 

632 

633 

634 

635 

636 

637 
636 
639 
660 
661 
662 
663 
666 

665 

646 

647 
668 
669 

650 

651 

652 

653 
656 

655 

656 

657 

658 

659 

660 
661 
662 
663 

666 

665 

666 

667 

668 

669 

670 

671 

672 

673 
676 

675 

676 
67T 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 
699 

690 

691 
592 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 
70S 

704 

705 

706 
TOT 
T08 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 
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L *3 


A03 

4200 

722 


EV1J.K,«»=- €V1J*K,MI/S0MI 


AO 3 

4210 

723 


C0SHU= -ENIJfK.Ml/SUH2 


AO 3 

4220 

724 

14?0 

C0S2«U= -PVIJiKtl'l 


A03 

4230 

725 

c 



A03 

4240 

726 


C4LI CROSP(CDSl«CCS2fC0S3) 


AO 3 

4250 

727 

c 



A03 

4260 

728 


5UM2> 0.0 


A03 

4270 

729 


DO 1460 L»l,3 


A03 

42 80 

730 

1460 

SUM2= SU«2 ♦ CDS3IL>**2 


A03 

4250 

731 

C 



A03 

4300 

732 


SUMZ^ S0«T1SUM21 


AOS 

4SI0 

733 

c 



AOS 

4S20 

T34 


no 1470 L^li3 


AOS 

4330 

735 


Mi L+3 


AOS 

4340 

736 

1470 

C0S3(L1/SUM2 


AOS 

4350 

73? 

C 



AOS 

4360 

738 

14R0 

CONTINUE 


AOS 

43T0 

739 

1400 

CONTINUE 


AOS 

43 60 

740 

c 



AOS 

4350 

741 

c 



A03 

4400 

742 

c *• 

CALCULATE WING CONSTANTS 


ADS 

4410 

743 

c 



AOS 

4420 

744 

c 

HINCOINSIWF, n • 8, SPAN 


AOS 

4430 

745 

c 

WINGOINSURF* 21 ' CR. ROOT CHORD 


AOS 

4440 

746 

c 

WINGOINSURF, 31 = CT, TIP CHORD 


AOS 

4450 

747 

c 

WINGDINSURF, 41 = ER. GEOMETRIC TWIST AT 

ROOT STATION A03 

4460 

748 

c 

WINGOINSURF, 51 = FT, GEOMETRIC TWIST AT 

TIP ST ATT ION A03 

4470 

749 

c 

WINGDINSURF, 6) = S, AREA 


AOS 

44 80 

750 

c 

WINGOINSURF, 71 = AR, ASPECT RATIO 


AOS 

4450 

751 

c 

WINGOINSURF, 8) I CM, MEAN CHORD 


AOS 

4500 

752 

c 

WINGDINSURF, 9» = MGC , MEAN GEOMETRIC CHORD 

AOS 

4510 

753 

c 

WINGOINSURF, lot i YMGC « SPAN LOCATION OF 

1/4 MGC 

AOS 

4520 

754 

c 

WINGDINSURF, 111 = XMGC. HORIZONTAL MOMENT ARM TO 1/4 MGC A03 

4530 

755 

c 

WINGOINSURF, 121 = ZMGC . VERTICAL MOMENT 

ARM TO 1/4 

MGC AOS 

4540 

756 

c 

WINGOINSURF, 13« i DIHEDRAL ANGLE OF 1/4 

MGC 

AOS 

4550 

757 

c 

WINGOINSURF, 141 = SWEEP ANGLE OF 1/4 MGC 


AOS 

4560 

758 

c 



AOS 

4570 

759 

c 



AOS 

45 BO 

760 


JX = lOD 


AOS 

45 50 

761 


DJX I FLOATIJXl 


AOS 

4600 

762 


OSPAN- SPAN/OJX 


AOS 

4610 

763 


ZERO - 05PAN/2.0 


AOS 

4620 

764 

c 



AOS 

4630 

765 


SUHA I 0.0 


AOS 

4640 

766 


SUMY = 0.0 


AOS 

4650 

767 


SUHC = 0.0 


AOS 

4660 

768 


SUMX = 0.0 


AOS 

4670 

769 


SUMY = 0.0 


AOS 

46 BO 

770 


SUHZ = 0.0 


AOS 

4690 

T71 

c 



AOS 

4700 

772 


DO 1530 Jil,JX 


AOS 

4710 

773 

c 



AOS 

4720 

774 


WS- -8OT0»ISYMF-l,OI ♦ OSPAN*FLOATI J-1 ) ♦ 

ZERO 

AOS 

4730 

775 


WA- A8SIWS) ♦ ewFINOl 


AOS 

4740 

776 

c 



AOS 

475 0 

777 


CALL CORDF tWA,VA,KLE,XTF , ZLE ,EP S, CW,CF , CT AR ,T AND, TANS , RATS , Ml ,H2 1 A03 

4760 

778 

c 



AOS 

4770 

779 


DA» CW40SPAN 


AOS 

4780 

780 


IFISYMF-1.01 1520, 1520,1 500 


AOS 

4790 

781 

1500 

DA- DA/SORTI l.O ♦ TAN0*«2 1 


AOS 

4900 

782 

1520 

CONTINUE 


AOS 

4810 

783 

C 



AOS 

4820 

784 


OAC = OA*CH 


AOS 

4830 

765 


XFl = XLE ♦ CW/4.0 


AOS 

4840 

786 


ZFl = ZLE 


AOS 

4850 

787 

c 



AOS 

4860 

768 


CALL CAMPER I NSF ,NK,M1 , M2 , R ATS ,E P S , XLF ,CW, 

XFl, ZFl 1 

AOS 

4970 

789 

c 



AOS 

4880 

790 


SUMA - SUHA * OA 


AOS 

4890 

791 


SUMC = SUMC ♦ OAC 


AOS 

4900 

792 


SUMX = SUMX * 0A«XF1 


AOS 

4910 

793 


SUMY = SUMY ♦ OA*VA 


AOS 

4920 

794 


SUMZ “ SUMZ ♦ 0A4ZF1 


AOS 

4930 

795 

c 



AOS 

4940 

796 

1530 

CONT INUE 


AOS 

4950 

797 

c 



AOS 

4960 

798 

c 



AOS 

4970 

799 


WINGOINSF, 61 = SUMA 


AOS 

49 80 

800 


WINGOINSF, 7| • (WINGDINSFtll «*21 /WINGOINSF, 61 

AOS 

4990 

801 


WINGOINSF, ft) > WINGOINSF ,61 /Wt NGDINSF, 11 


AOS 

5000 

802 


WINGOINSF, 4) = SLMC/SUMA 


AOS 

5010 

803 


MINGDI NSF, 101 - SUMY/SUMA 


AOS 

5020 

804 


WINGOINSF, 111 = SLMK/SUMA 


AOS 

5030 

805 


WINGDI NSF, 121 = SUMZ/5UMA 


AOS 

5040 

806 

c 



AOS 

5060 

807 


WA= 0.5*1 FWEINOl ♦ EWFINBI 1 


AOS 

5060 

80P 

c 



AOS 

5070 

809 


CALL C0RnFIWA,VA,XLF,XTF,ZLE,EPS,CW,CF,CrAB,TAND,TANS,RATS,Ml,M2J A03 

5080 

810 

c 



AOS 

5090 

811 


WINGOINSF, 131 - RA04ATANI TANO 1 


AOS 

5100 

812 


WINGOINSF, 14) = RAO+ATANI TANS 1 


AOS 

5110 

813 

r. 



AOS 

5120 

814 

c 



AOS 

5130 

915 

c 



AOS 

5140 

816 

c •• 

WING GEOMFTPY ♦* 


AOS 

5150 

817 

c 



AOS 

5160 

818 


CALL PAGE 


AO 3 

5170 

819 


WR ITE IKOUT, 10 10 INSF, I WINGOINSF ,1 1,1:: L ,12) ,UFLAP1 (NSF1,UFL AP21NSFI A03 

5180 

820 


1,WFLAP3INSFI •FLAPDJINSF1 , TAflOJ I VSFt , 1 Al LOOM ,NSFI , 1 

=1.21 , I WINGDI NSAOS 

5190 

921 


2F, I 1, 1 = 13, 141 ,NSP V,NC V,NCOI S.XCC, YCC, ZC G, 

REFS.REFC, 

REF8 AOS 

5200 

822 

c 



A03 

5210 

823 


LIN = LIN ♦ 19 


AOS 

5220 

824 


WRITE IKOUT, 10301 


AOS 

5230 

025 


L IN= L lN+3 


AOS 

5240 

82 6 

c 



A03 

5250 

827 
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r. 


A03 

9260 

828 


OSPAN^i: SPAN/20. 0 

A03 

9270 

829 


DO 1580 J-1.21 

A03 

9280 

830 

c 


ADS 

S240 

831 


MS- -80TU4ISVMF-1.0> ♦ 0SPAN4FL0ATI J-ll 

AOS 

9300 

832 


WAA > AeSthSi ' 

A03 

9S10 

83S 


MA - MAA * EWF4N0I 

AOS 

5320 

834 

c 


AOS 

5330 

839 


CALL CaROFlMA,YA«XLE tXTErZLE.EPS>CW,CF,CTAe.TAN0«TANS.RATS,Ml»H2> 

AOS 

9S40 

836 

c 


AOS 

9S90 

837 


SIGN - 1.0 

AOS 

9360 

838 


TEST” 0.0001 - HAA 

AOS 

5370 

039 


IF ITESTJ 1540.1550. 1550 

AOS 

5380 

840 

1540 

SIGN” WS/WAA 

AOS 

5390 

041 

1550 

TB- YA4SIGN 

AOS 

5400 

842 


DIME ” SIGN*RA0*ATAN(TAND» 

AOS 

9410 

843 


BETA 3 S1GN*RA0*ATAN(TANS1 

ADS 

9420 

844 


XC04= KLE ♦ CU/4.0 

AOS 

1430 

845 

C 


AOS 

9440 

846 


IF ILINX-LIN) 1560.1570.1570 

AOS 

9450 

847 

1560 

CALL PAGE 

AOS 

9460 

848 


WRITE IKaUT.1030) 

AOS 

5470 

849 


LIN - LIN »2 

AOS 

5480 

850 

1570 

UR ITE IK3UT. 1040 IMS. VB .ZLE . XLE . XC04. XTE .EPS . 01 HE. BETA.CW.CF.CT AB 

AOS 

9490 

851 


LIN” LIN *1 

AOS 

5500 

852 

1580 

CONTINUE 

AOS 

5510 

853 

C 


AOS 

9520 

854 

C 


AOS 

5930 

855 

c 


AOS 

5540 

896 

c •• 

AIBFOIL SECTION 

AOS 

9950 

857 

c 


AOS 

5560 

858 


WRITE IKOUT, 10001 

AOS 

5570 

859 


LIN- LIN *7 *3 

AOS 

55M 

860 


IF (LINX-LINI 1550.1600.1600 

AOS 

9590 

861 

X5<?0 

CALL PAGE 

AOS 

9600 

862 


LIN= LIN *7 

AOS 

9610 

863 

1600 

WR ITE IK0UT.I05qHKOC(l .NSF1 .1-1.101 

AOS 

9620 

864 


LIN” LIN *1 

AOS 

96S0 

865 

C 


AOS 

9640 

866 


00 1650 J-NO.NB 

AOS 

5650 

867 


IF ILINX'LINI 1610.1620.1620 

AOS 

5660 

868 

1610 

CALL PAGE 

AOS 

5670 

369 


WRITE IKOUT. lOSOMXXn .NSFI .1-1.101 

AOS 

5680 

870 


LIN” LIN *7 

AOS 

5690 

871 

1620 

CONTINUE 

AOS 

5700 

072 

C 


AOS 

5710 

873 


no 1630 K-1,10 

AOS 

5720 

874 

1630 

OUMTFIKI”0.0 

AOS 

5730 

875 


K-0 

AOS 

5740 

876 


DO 1640 KN-l.NK 

AOS 

5750 

877 


K” K*1 

AOS 

5760 

878 

1640 

OUMYFIKI” ZOCIKN.JI 

AOS 

5770 

879 


UR ITE IKDUT. 1060 IXIJI . YU ) , (DUHVF (I I. I” l> 101 

AOS 

5780 

880 


LIN- LIN *1 

AOS 

5790 

861 

1650 

CONTINUE 

AOS 

5800 

882 

C 


AOS 

5810 

883 

c 


AOS 

5820 

884 


LIN= LIN *3 

AOS 

5830 

885 


IF (LlNX-LlNI 1660.1670.1670 

AOS 

5S40 

686 

1660 

CALL PAGE 

AOS 

5850 

887 


LIN- LIN*3 

A03 

5860 

888 

1670 

UR ITE IKOUT, 10001 

AO 3 

5870 

8 89 

C 


AOS 

5880 

890 

C 


AOS 

5890 

891 

c 


AOS 

5900 

692 

c •** 

0E8UC OUTPUT 

AOS 

5910 

893 

c 


AOS 

5920 

894 


J16 - JNIINSFI 

AOS 

5930 

895 


J26 - JN2INSF1 

AOS 

5940 

896 

1680 

Jl - JNIINSFI 

AOS 

5950 

897 


J2 ” JN2INSFI 

AOS 

9960 

898 


K2 - KN2INSFI 

AOS 

5970 

899 


IF llFLG(20I'>n 1880.1690.1690 

AOS 

5990 

900 

1600 

CONTINUE 

AOS 

5990 

901 

C 


AO 3 

6000 

902 


J3 • J2 *1 

AO 3 

6010 

903 

c 


AO 3 

6020 

904 


LIN” LIN *2 

AOS 

6030 

905 


IF ILINX-LINI 17C0. 1710. 1710 

AO 3 

6040 

906 

1700 

CALL PACE 

AOS 

6050 

907 


LIN” LIN *2 

A03 

6060 

908 

1710 

WRITE IKOUT, 1070) 

A03 

6070 

909 

C 


AOS 

6080 

910 


no 17T0 K-1.K2 

AOS 

6090 

911 


LIN- LIN 4l 

AOS 

6100 

912 


□0 1760 J-J1.J2 

AOS 

6110 

913 


IF USINGPINSFI.EO.JI GO TO 1760 

AOS 

6120 

914 


LIN” LIN »1 

A03 

6130 

915 


IF ILINX-LINI 17 2 0, 173 0. 173 0 

403 

6140 

916 

1720 

CALL PAGE 

A03 

6150 

917 


WRITE IKOUT, 1070) 

403 

6160 

918 


LIN” LIN +2 4^1 

AO 3 

6170 

919 

1730 

JPl” J 

A03 

6180 

920 


WA- EWEINO) 

A03 

6190 

921 


TEST” ABSIEUIJ.Kl-EWIJPl.KM -0.001 

A03 

6200 

922 


IF tTESTl 1750,1750.1740 

AO 3 

6210 

923 

1740 

HA- 0.5*1 EWU.K) 4- EWIJPl.K) ) 

A03 

6220 

924 

1750 

HB” UA > EHEINOI 

A03 

6230 

925 


HR ITE IKOUT.IOSOI J.K.IENIJ.K.n .1-2 .31 . HB.HA ,EY IJ ,K1 , ECl J, K 1. ESI J 

.A03 

6240 

926 

«Kt 

A03 

6250 

927 

1760 

CONTINUE 

A03 

6260 

928 

1770 

WRITE IKOUT, 1020) 

A03 

6270 

929 

C 


AO 3 

62 80 

930 


LIN” LIN ♦ 3 

A03 

6290 

931 


IF ILINX-LIN) 1780,1790.1790 

AOS 

6300 

932 

1780 

CALL PAGE 

AOS 

6310 

933 
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L 1N» UtN ♦ 3 

A03 

6S20 

934 

IT90 

WRITE (K3UT,100at 

AO 3 

6330 

935 

LIN= UN *2 

AO 3 

6340 

936 


IF ILINX'LINI lBC0,lHl0tl81O 

AO 3 

6350 

937 

leoo 

CALL PAGE 

AD 3 

6S60 

938 

LIN= LIN *2 

A03 

6ST0 

939 

IBIO 

WRITE (K3UT, 10901 

A03 

63B0 

940 

c 


AO 3 

6390 

941 


00 1850 K«ltK2 

A03 

6400 

942 


LIN- LIN +1 

A03 

6410 

943 


DO 1B40 J^JltJZ 

AO 3 

6420 

944 


IF (JSINGPINSFKEQ.JI CO TO 1840 

AOS 

6430 

945 


L I Ns L tfl » 1 

AOS 

6440 

946 


IF ILINX-LINI 1820,1830.1330 

AOS 

6450 

947 

1B20 

CALL PAGE 

AO 3 

6460 

948 

WRITE IRDUT, 10901 

AOS 

6470 

949 


LIN> LIN *2 

AO 3 

6480 

950 

ja30 

CONTINUE 

A03 

6490 

951 


WRITE (tauT.lIOOlJ.K.IEVt J,K,I1 ,1=1,6 1 , lENIJ.K, I > .I'l.B) 

AOS 

6500 

952 

1840 

CONTINUE 

AO 3 

6510 

953 

1850 

WRITE (KOUT, 10201 

AOS 

6520 

954 

c 


AOS 

6530 

955 

c 


AOS 

6540 

956 


L 1N= L IN *3 

AOS 

6550 

957 


If ILINX-LINI 1860, 18T0, 1870 

AOS 

6560 

958 

lB<iO 

CALL PAGE 

AOS 

6570 

959 

LIN- LIN *3 

AOS 

6580 

960 

18T0 

WRITE IKOUT.IOOOl 

AOS 

6590 

961 

C 


AOS 

6600 

962 

C 


AOS 

6610 

963 

C 


AOS 

6620 

964 

C * 

WR ITE ON CALCOMPLQT TAPE * 

AOS 

6630 

965 

C 


AOS 

6640 

966 

I860 

IF «IFLG(19l-ll 2020,1 890,1890 

AOS 

6650 

96 7 

1890 

CONTINUE 

AOS 

6660 

968 

C 


AOS 

6670 

969 


KFILE = KFILE ♦! 

AOS 

6680 

970 


KREC = 1 

AOS 

6690 

971 


KWORO = t> 

AOS 

6TOO 

972 

C 


AOS 

6710 

973 


J1 = J 16 

AOS 

6720 

974 


J2 = J26 

AOS 

6730 

975 


J3 = J26 ♦! 

AOS 

6740 

976 


REFL = WINGOIl.l 1/2.0 

AOS 

6750 

977 


XZER = WINGDI 1,111 

AOS 

6760 

978 


VZER = 0.0 

AOS 

6T70 

979 


ZZER = WlNG0(l,12l 

AOS 

6T80 

980 

c 


AOS 

6T90 

981 

c * 

RECORD 1 - FILE NSURF * 

AO 3 

6800 

982 

c 


AOS 

6810 

983 


no 1900 J = J1,J3 

AO 3 

6820 

9 84 

c 


AO 3 

6830 

985 


UA - EMU. 11 

AO 3 

6840 

986 

c 


AOS 

6850 

987 


CALL COROFIUA.VA.XLE.XTF ,ZLE , EPS. CW.CE , CTA8 ,T AND, TANS, RATS , Nl, H2 1 

AOS 

6860 

988 

c 


AOS 

6870 

969 


YLE- EVi J, 1,21 

A03 

6880 

990 


YTE= YLE 

AOS 

6890 

991 


ZTF= ZLE 

AOS 

6900 

992 


XLC- XLE 

AOS 

6910 

993 

c 


AOS 

6920 

994 


CALL CAN8ER(NSE,NK,M1,N2,RATS,EPS,XLC,CW, XLE, ZLE) 

AO 3 

6930 

995 

c 


AOS 

6940 

996 


SHE- YLE 

AOS 

6950 

997 


CALL FLAPllNSF.WA.SHF.XTE .CF.CTAS.TAND, XLE, YLE, ZLE, C0S31 

AOS 

6960 

998 

c 


AOS 

6970 

999 


CALL CAM0ER(NSF,XK,H1,M2,RATS,EPS,XLE,CW, XTErZTE) 

AOS 

6980 

1000 

c 


AOS 

6990 

lOOl 


SHE= YTE 

AOS 

7000 

1002 


XLC- XTE 

AOS 

7010 

1003 


CALL FLAPIINSF,WA,SHE,XLC,CF,CTA9,TAND, XTE.YTE.ZTE, C0S31 

AOS 

7020 

1004 

c 


AOS 

7030 

1005 


CALL IS0NETIXLE,VLE,ZLE, REFL , XZ ER, YZER, ZZER 1 

AOS 

7040 

1006 


CALL ISnWETIXTE.YTE.ZTf , REFL , XZER, YZER, ZZE R1 

AOS 

7050 

1007 

c 


AOS 

7060 

1008 

1900 

WR ITE (KT2 IKREC , KWORO, XLE, YLF ,ZLE , XTE ,YTE ,ZTE 

AOS 

7070 

1009 

c 


AOS 

70 80 

1010 

c 


AOS 

7090 

1011 

c * 

RECORD 2 - FILE NSURF w 

AOS 

7100 

1012 

c 


AO 3 

7110 

1013 


KREC= KREC *l 

AOS 

7120 

1014 


KWORD- 3 

AOS 

7130 

1015 


ITET- 1 

AOS 

7140 

1016 

c 


AOS 

7150 

1017 


no 1960 J-U1,J3 

AOS 

7160 

1018 

c 


AOS 

7170 

1019 


WA - EWIJ.ll 

AOS 

7100 

1020 

c 


AOS 

7190 

1021 


CALL CORDFIWA,YA,XLE,XTF .ZLE ,EP 5,CW,CF,CTA8,TAND,TANS ,RATS , Ml, R21 

AOS 

7200 

1022 

c 


AOS 

7210 

1023 


ITET = -ITET 

AOS 

7220 

1024 


KFW = I ITET ♦ 11/2 

AO 3 

7230 

1025 


KFB = 11 - ITETt/2 

AOS 

7240 

1026 

c 


AOS 

7250 

1027 


DO 1950 KX-1,K2 

AOS 

7260 

102R 

c 


AOS 

72 70 

1029 


K = KX*KF« ♦ IK2+1-KXI*KFB 

AOS 

7280 

1030 


XFl = EVIJ.K.l) - 0.25*ECIJ,K1 

AOS 

7290 

1031 


YFl = EV1J,K,21 

AOS 

7300 

10 32 


ZFl = ZLE 

AOS 

TStO 

1033 

c 


AOS 

7320 

1034 


XF2 - XFl 4 EC 1 J,KJ 

AOS 

7330 

1035 


VF2 = YFl 

AOS 

7340 

1036 


ZF2 - ZLE 

AOS 

7350 

1037 

c 


AOS 

7360 

1038 


IF IITETI 1910,1910,1930 

AOS 

7370 

1039 
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1910 

CALL CAH0ER<NSFfNK.Ml.M2iRATSiePStXlE,CM« XF2«2F2> 


A03 7380 

1040 

c 



A03 7390 

1041 


SHE* VF2 


A03 7400 

1042 


CALL fLAPKNSFtWA.SHE.XTE.CFtCTABtTANDf KF2tVF2|2F2t 

C0S3I 

AO 3 7410 

1043 

c 



A 03 7420 

1044 


CALL !S0HET<KF2«VF2»2FZ. HEFL •X2Efl« VZER *22ER > 


403 7430 

1049 

c 



AO 3 7440 

1046 


HR tTE (KT2)KREC.KH0RDtXF2»YF2«2F2 


AO 3 7490 

1047 

c 



A03 7460 

1048 


IF IK2>KX) 1920t1920«1950 


A03 7470 

1049 

1920 

CALL CAMBERINSF,NK.Hl,H2.RATS.EPS.XLEtCM» XF1«2F1I 


A03 7480 

1050 

c 



AO 3 7490 

1051 


SHE- VFl 


AO 3 7500 

1092 


CALL FLAFHNSF,UA,SHE*XTE«CF.CTAefTAND* XFl.VFl.2Flt 

C0S3I 

A03 7310 

1093 

c 



A03 7520 

1054 


CALL (S0NETIXF1.VF1.2F1. REFL.XZER, Y2ER .22ER 1 


A03 7530 

1099 

c 



AO 3 7540 

1096 


WRITE (KT2)KREC*KU0RD.XF1 .YFl.ZFl 


AOS 7550 

1097 


GO TO 1950 


A03 7960 

1098 

c 



403 7570 

1099 

1930 

CALL CAHBER(NSF,NK.H1.H2«RATS«EPS.XLE.CH. XFl.ZFll 


A03 7580 

1060 

c 



AO 3 7590 

1061 


SHE- VFl 


A03 7600 

1062 


CALL FLAPMNSF.WA.SHE.XTE.CF.CTAS.TANO. XFl. YFl.ZFl. 

CQ53I 

A03 7610 

1063 

c 



A03 7620 

1064 


CALL ISOWETIXF l.VFl.ZFl. REFL.XZER. V2ER.22ERI 


A03 7630 

1069 

c 



A03 7640 

1066 


WR ITE lKT21KREC.Xh0R0.XFl.YFl .ZFl 


A03 7650 

1067 

c 



A03 7660 

1068 


IF (K2-KK> 1940. 1940.1950 


A03 7670 

1069 

1940 

CALL CAMBERINSF.NK.fll.H2.RATS.EPS.XLE.CH. XF2.ZF21 


403 7680 

1070 

c 



A03 7690 

1071 


SHE- YF2 


A03 7700 

1072 


CALL FLAPIINSF.HA.SHE.XTE .CF.CTAB.TAND. XF2.VF2.ZF2, 

C0S3I 

A03 7710 

1073 

c 



A03 7720 

1074 


CALL IS0MET1XF2.VF2.2F2. REFL .X2ER. Y2ER .2ZER 1 


A03 7730 

1079 

c 



A03 7740 

1076 


WRITE (KT21KREC.KW0R0.XF2.YF2.ZF2 


A03 7750 

1077 

c 



A03 7760 

1078 

1950 

CONTINUE 


A03 7770 

1079 

I960 

CONTINUE 


A03 7780 

1060 

c 



A03 7790 

1081 

c 



A03 7600 

1082 

c • 

RECORD 3 - FILE NSURF • 


A03 7810 

1083 

c 



A03 7620 

1084 


KREC= KREC *1 


403 7830 

1089 


RWORO- 3 


A03 7840 

1086 


ITET = -1 


A03 7850 

1087 

c 



A03 7860 

1088 


DO 2010 K-2.K2 


A03 7870 

1089 

c 



A03 7880 

1090 


00 2000 J-JI.J3 


A03 7890 

1091 

c 



A03 7900 

1092 


IF (ITETtl9T0.1970.19B0 


A03 7910 

1093 

1970 

JR- J 


A03 7920 

1094 


(X) TO 1990 


A03 7930 

1095 

19fl0 

JR= J14J3 -J 


A03 7940 

1096 

1990 

CONTINUE 


A03 7950 

1097 

c 



A03 7960 

1098 


WA - EHIJR .Kt 


A03 7970 

1099 

c 



AO 3 7980 

1100 


CALL COR0F(HA , YA .XLE , XTE , 2LE .EPS.CH.CF, CTAB.T AND.T ANS 

.RArs.Ml,M2l 

A03 7990 

1101 

c 



A03 aooo 

1102 


XFl - EVIJR.K.lt - 0.2S4EC(JR.K> 


A03 8010 

1103 


VFl = EVIJR.K.2I 


A03 8020 

1104 


ZFl - 2LE 


AOS 6030 

1105 

c 



AOS 8040 

1106 


CALL CAHBERtNSF.NK. Ml. H2.RATS.EPS, XLE ,CH, XFl.ZFlt 


A03 8050 

1107 

c 



A03 8060 

1108 


SHE - YFl 


AOS 8070 

1109 


CALL FLAFIINSF.MA, SHE. XTE .CF.CTAB.TAND. XFl .YFl.ZFl, 

C0S31 

AO 3 8080 

lllO 

c 



A03 8090 

1111 


CALL IS0METIXF1.VFI.2F1 . REFL . X2ER. Y2EH ,2ZER » 


AOS 8100 

1112 

c 



A03 8110 

1113 

2000 

WR ITE IRT2IKREC .KhORO.XFl ,YFl ,ZFX 


AOS 8120 

1114 

c 



AO 3 8130 

1115 

c 



A03 8140 

1116 


ITETa -ITET 


AOS 8150 

HIT 

c 



AOS 8160 

1118 

2010 

CONTINUE 


AOS 8170 

1119 

C 



AOS 8180 

1120 

c 



AOS 8190 

1121 


END FILE KT2 


AOS 8200 

1122 


LIN- LIN *2 


AOS 8210 

1123 


WRITE (K0UT.113OIKFILE 


AOS 8220 

1124 

c 



AOS 8230 

1125 

c 



A03 8240 

1126 

2020 

CONTINUE 


AOS 8250 

1127 

c 



AOS 8260 

1128 

c 



AOS 8270 

1129 

c **« 

COMPUTE IMAGE VERTICAL SURFACES 


AOS 8280 

1130 

c 



AOS 8290 

1131 


IF INREPET. EO.O) GO TO 2060 


403 8300 

U32 


NREPET- 0 


AOS 8310 

1133 


IMAGEFINSFI- 2* (MAGEFl NSF 1 


A03 8320 

1134 


J1 = JNIINSFI 


AOS 8330 

1135 


J2 - JN21NSFI 


A03 8340 

1136 


J3 - J2 +l 


A03 8350 

1137 


Jl- J3 


A03 8360 

1138 


JSINGPIN5F 1- J3 


A03 8370 

1139 


SYMGFINSFI = 2.0 


AO 3 8360 

1140 


W1NGD(NSF.6I - WlNGDlNSF. 61*2.0 


ADS 8390 

1141 


WINGDINSF. lOI- 0.0 


A03 8400 

U42 


00 2050 J-J1.J3 


A03 8410 

1143 


JI- Jl *1 


A03 8420 

1144 


DO 2040 K-I.K2 


AOS 8430 

1145 
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DO 2030 L«lt6 

A03 

BAAO 

1146 


ENUttK,L> > Er4IJ.K,L> 

AO 3 

B450 

1147 

2030 

EVUI«KtL» = EV4J,K,LI 

AO 3 

8460 

1148 


Fy<Jl.KI = FrIJtKl 

A03 

B4T0 

1149 


ES<JIfK) a ESUfKB 

AO 3 

8480 

1150 


FM(JIfKI< FW(J,K) 

AO 3 

8490 

1151 


eciJi.Ki* ecfj.tt) 

AOS 

8500 

1152 


FN(JfK,2t => -£NtJ*K,2l 

AOS 

8510 

1153 


FVUtKt2> « -EVUfK,2l 

AO 3 

6520 

1154 

20A0 

CONTINUE 

AOS 

8530 

1155 

2050 

CONTINUE 

AO 3 

6540 

1156 


JN2CNSFI* Jt -1 

A03 

8550 

1157 


60 TO 1680 

AOS 

8560 

1158 

c 


AOS 

85 70 

1159 

c 


AOS 

85 80 

1160 

2060 

Jl“ JN2INSFI *2 

AOS 

8590 

1161 

c 


AOS 

8600 

1162 


RETURN 

AO 3 

8610 

1163 

c 

XXNXXX 

AOS 

6620 

1164 

c 


A03 

8630 

1165 


END 

A03 

8640 

1166 


V FDR A04,A04 

A04 

10 

1167 

C 

A04 

20 

1168 

c 

A04 

30 

1169 

SUBROUTINE L IFTX lAlf A , 2HE 10T,Srf<LF»NSURFl ,NSURF21 

AO 4 

40 

1170 

C 

A04 

50 

1)71 

C * TRW MULTIPLE- SURFACE VDRTEK-IATTICE PROGRAM - REVISED 8 AUG. 72 

-A04 

60 

1172 

C * PROGRAM developed BY A. V. GOMEZ (TRW SVSTEMSI ON JUNE-JULY 1971 

•A04 

70 

1173 

c 

A04 

BO 

1174 

C XXXKXKXXXXXXXXKXXXXXXKXXXXKXXXXXXKXXXXXXXXXKXXKKXXXXKXXXXXKRKXXKXKA04 

90 

1175 

C 

A04 

100 

1176 

DOUBLE PRECISION SCALE .SUP.OFTERM.AMATI 100 .100) iVHATI 1001 

AO 4 

110 

1177 

DIMENSION JN0I5) 

A04 

120 

1178 

DIMENSION SYMLFI*!. SUHSLI4I 

A04 

130 

1179 

DIMENSION PI3ItB(3l «ni3) 

A04 

140 

1180 

DIMENSION CnSlI 3«,CaS2l3l .CDS3I3) 

AO 4 

150 

1181 

DIMENSION PHI 3) ,BX(31 iDUm 

AO 4 

160 

1162 

DIMENSION SUML I 2.5.31 .SUMRI2.5.3I , SUMPI 2.5 . 3 1 .FACNI 5.3 1 

A04 

170 

UBS 

DIMENSION SUNLCI3),$UMPGI3) .FACNGI3I 

A04 

180 

1184 

DIMFNSIDN 2UMLI2.5.31 .ZUMRI 2.5.3) .2UHP(2.5,3I 

A04 

190 

1185 

DIMENSION ZUHLGOl.ZUMPGISI .ZACNGI31 .ZUMSLI4) 

A04 

200 

1186 

C 

AO 4 

210 

1187 

COMMON ZOATAOI/ KTA. KOUT, KTl . KT2. KT3 « KRECt KFILE. LIN. LINK 

AO 4 

220 

lies 

1 .RAD, PIE, CUTOFl. CUT0F2. OELALF. LFL4P. LDRAG, COLOCP 

A04 

230 

1189 

2 , IFLGI20). EXECKU5) 

AO 4 

240 

1190 

C 

A04 

250 

1191 

COMMON/OAT A02/ NHING. NFUS, NVTAIt, NSS 15 ) , NSS0I5), NCSI5) 

A04 

260 

1192 

1 .X(301t YI30I. ZOOl. EI301. COO), XOCRI30). FL APCI 30 ) , T ABCI 30 ) AQ4 

2 TO 

1193 

2 .HSMOTH, EHFI30). ELEI30), ETEI30), EHEI30). EHEEI30) 

A04 

280 

1194 

3 .XOCIIO.S). ZOC 110,30) 

A04 

290 

1195 

C0MMnN/0ATA22/IMAGEFI5) ,J5)NGPI5) 

A04 

300 

1196 

C 

A04 

310 

1197 

COMMON Z0ATA03/FLAPDJI 5) .TA80JI5 ) .AILOJI2.5) . DELTF 1 ( 5 1 . OELT F 2) 5) 

A04 

320 

1198 

1 .HFF11I5). WFF12I5), MFF21I5) . UFF2215). HFF3K5) 

A04 

S30 

1199 

2 .HFLAP1I5). MFLAP2I5), WFLAP3I5) 

A04 

340 

1200 

C 

AO 4 

350 

1201 

COMMON /DATA 04/ H INGDI 5 , 16) , JN1I5), JN2I5), KN2I5I. SYMGFI 5 ), NSURF A04 

360 

1202 

1 .EM(60,10>. EYItO.lO). ECI60.10), ESI60.10). EGI60.10) 

A04 

370 

1203 

2 •ENI60.10.6)* EVI60.10.6), VVI N0XI60.10.3) 

AO 4 

380 

1204 

C 

A04 

390 

1205 

C0HMON/DATA05/XCG,VCC,2CG,REFS.PEFC,REFB 

AO 4 

400 

1206 

C 

A04 

410 

1207 

C 

A04 

420 

1208 

1000 FORMAT! 1X1 

A04 

430 

1209 

1010 FORMAT! IX.//. IX) 

A04 

440 

1210 

C 

A04 

450 

1211 

1020 FORMAT! 34X.41HV0RTEX LATTICE MATRIX DETAIL-SURFACE ND.» , 1 2 ♦ 2H/I , 

I2A04 

460 

1212 

1. IH, I2.1MI ./.34X.51 I1H«).//,1X> 

A04 

470 

1213 

1030 FORMAT! 1X.12H J K NP NG. 

A04 

480 

1214 

2 60F VFSIMAT) VINIMAT) P!X) PIV) P!Z) BIX) 

, A04 

490 

1215 

3 50H B!Y) BIZI 0!X) OIY) 0!Z) ./.IX) 

A04 

500 

1216 

1040 F0RMATI1K.413.11F10.4I 

AO 4 

510 

1217 

C 

A04 

520 

121B 

1050 FORMAT! 36X.37HL IFT OISTRIBUTION DETAIL-SURFACE NO .= « 1 2 .2H/ I , 1 2. 

A04 

530 

1219 

1, 1H.I2, IHI ,/,36X,47flH*) .//.IX) 

A04 

540 

1220 

1060 F0RMAT(3X,4HJ K,5X,40HP(X) PIY) P(Z) AREA , 

A04 

550 

1221 

160HCPN G(X) GIY) CIZI VIIX) VliY) . 

A04 

560 

1222 

215HVMZ) GAMA ♦ /.IX) 

404 

570 

1223 

1070 FORMAT! IX, 213. 3F10.3, 2F10.4, 6FI0.5, EIO.4 ) 

A04 

580 

1224 

C 

404 

590 

1225 

1080 FORMAT! 34X, 4 INSECT ION AIRLOAD COEFFIC lENTS-SURFACE NO.-, I2.2N/I , 

I2A04 

6 CO 

1226 

1, IH. 12, IH),/.34X,51UH*) ,//.lX) 

A04 

610 

1227 

1090 FORMAT! 3X.52HJ Y* Y Z H SCN SCX.A04 

620 

1220 

1 6X,58HSCL SCO SMP C/4 SCLC/8 IXL lYL IZL 

,404 

630 

1229 

2 /,1X ) 

AO 4 

640 

1230 

IlOO FORMAT! lX.l 3,F0.4,3F9. 3.6F9,4,3F9.41 

AO 4 

650 

1231 

C 

A04 

660 

1232 

1110 FORMAT! /// ,34X,45HINTEGRATFD AIRLOAD COEFF tC IENTS-SUR FACE NOS.“, 

I2A04 

670 

1233 

l,2N -,I2,/,34X,5UIH») ,///, Z9H E ECN ECX ECY.A04 

680 

1234 

2 54N ECL ECO ECMP ECMR ECMY EXA, 

A04 

690 

1235 

3 3JM FZA fs FMGC Ffl,/, IX) 

A04 

700 

1236 

1120 FORMAT! IX, 12, FF9.4. 5F9.2 ) 

AO 4 

710 

1237 

C 

A04 

720 

1238 

1130 FORMAT! IX, /,49X.20H**4 AIRLOAD SUMS ♦•♦.//. 

A04 

730 

1239 

• 3H AC. 9F9.4,5F9.2, /,3H CG,8F9-4 ,5F9.2 , 

A04 

740 

1240 

*/4H AC ,0IFfl.4,lN4) ,5(F8.2,IH*) ,/4H C6 .8 ! F0 .4 . IH*1 ,5 ( F8. 2, IH*) , 

A04 

750 

1241 

1 //,37X,14H* DETERMINANT-, E10.4,9H * SCAL E- . EIO.4 ,2H • ,// , IX ) 

A04 

760 

1242 

1140 FORMAT! IX, 12, IX, E!Fe.4,lH4) ,5IF8,2,IH*) ) 

A04 

770 

1243 

C 

A04 

780 

1244 

C 

A04 

790 

1245 

C XXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXA04 

800 

1246 

c 

A04 

810 

1247 

c 

AO 4 

820 

1248 
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c 

A04 

B30 

1249 

C • INITIALIZE • 

A04 

040 

1290 

C 

A04 

090 

1291 

«LF«n> ALFA/RAD 

A04 

060 

1292 

tana » TANIALFARI 

A04 

OTQ 

1293 

COSA - l.O/SORT'I l.0»TANA**2l 

A04 

000 

12 9A 

SINA « TANAACOSA 

A04 

090 

1299 

TANV« -TAN(O.S«AlFARt 

A04 

900 

1296 

TANVG- -TANIl.SAALFARI 

A04 

910 

1297 

UNIT ° 0.29/PIE 

A04 

920 

1298 

UNITGs -UNIT 

A04 

930 

1299 

C 

A04 

9A0 

1260 

c 

A04 

990 

1261 

DO 1160 NSF*NSURF|,NSU«F2 

A04 

960 

1262 

C 

A04 

9T0 

1263 

NZERO> JNltNSF) 

A04 

900 

126A 

TEST® SYNLFINSFt 

A04 

99Q 

1269 

IF ITESTI 1190tllS0tllA0 

A04 

1000 

1266 

1190 NZERO® INAGEFlNSF)/2 *■ NZERO 

A04 

1010 

1267 

IFIJSINGPINSF l.NE.OI N2ERO- NZERQ ♦! 

A04 

1020 

1268 

1160 JNOINSFI® NZERO 

A04 

1030 

1269 

C 

A04 

lOAO 

12 TO 

c 

A04 

1090 

1271 

c 

A04 

1060 

1272 

C * CALCULATE MATRICES VMAT(NV) t ABATING. NVI * 

A04 

lOTO 

1273 

C 

A04 

1080 

12 7A 

NV * 0 

A04 

1090 

1275 

C 

A04 

1100 

1276 

c 

A04 

1110 

1277 

00 1520 NSF-NSU«Fl,NSyRF2 

A04 

1120 

12TB 

C 

A04 

1130 

1279 

K® NSF * 5 

AOA 

1140 

1280 

J1 > JNIINSFI 

AO 4 

1190 

1281 

J2 ® JN2INSFI 

A04 

1160 

1282 

K2 ® KN2INSFI 

404 

IITO 

1283 

NZERO ® JNOINSFI 

A04 

1160 

128A 

NSPV® IHAGEFINSF) 

404 

1190 

1285 

NCV > IFLGfK) 

404 

1200 

1286 

NM ® 0 

404 

1210 

1287 

NOO® NSSOfNSF) 

A04 

1220 

1288 

C 

AOA 

1230 

1289 

C 

404 

12A0 

1290 

C 

AOA 

1290 

1291 

DO 1480 KV-1.K2 

AOA 

1260 

1292 

00 1490 JV»N£ER0.J2 

AOA 

12T0 

1293 

IF IJSINGPINSFI.EO.JVI GO TO 1490 

AOA 

1280 

1294 

NV» NV*1 

AOA 

1290 

1299 

C 

AOA 

1300 

1296 

SVNCF2^ SYHGFINSFI-L.D 

AOA 

1310 

1297 

SYMCF3®-SVMGF(NSF)*2.0 

AOA 

1320 

1298 

C 

AOA 

1J30 

1299 

COSlIll® COSA 

AOA 

1340 

1300 

C0SII2I- 0.0 

AOA 

1390 

1101 

C0SII3I- -SINA 

AOA 

1360 

1302 

C 

AOA 

13T0 

1303 

DO 1170 L=l,3 

AOA 

1380 

1304 

IP3® L *3 

AOA 

1390 

1305 

C0S2IL t-® ENUV«KV«LP31 

AOA 

lAOO 

1306 

1170 Pill® EN(JV«KVtLI 

AOA 

lAlO 

1307 

C 

AOA 

1420 

1308 

JPl® JV *1 

AOA 

1430 

1309 

UA ® FUElNOOl 

AOA 

lAAO 

1310 

TEST® ABSl FMIJV.KVI - EUlJPl.KVI 1 - 0.001 

AOA 

1490 

1311 

IF ITESTI ll<l0.1l<IO»tlSO 

AOA 

1460 

1312 

1160 UA ® (EHIJV.KV) * EUIJPltKVI 1/2.0 

AOA 

lATO 

1313 

1140 CONTINUE 

AOA 

lASO 

1314 

SHE * ENIJV.KVtZI 

AOA 

1490 

1315 

C 

AOA 

1900 

1316 

CALL C0RDFIWA,YA,XLE,XTE,ZLC.EP5»CM,CF,CTAa,TAND,TANS, 

,RATS.H1.N2> AOA 

1910 

1317 

CALL FLAPSINSF,UA,SHE.XTE,CF,CTAB,TAN0. P.C0S2I 

AOA 

1920 

1318 

CALI OOTP(COSltCOS2tVNATOP) 

AOA 

1930 

1319 

c 

AOA 

1940 

1320 

c 

AOA 

1990 

1321 

VMATINVI® VHATOP 

AOA 

1560 

1322 

c 

AOA 

1570 

1323 

C 

AOA 

1980 

1324 

DO 1200 L®lt3 

AOA 

1940 

1329 

1200 COSKLI® C0S2ILI 

AOA 

1600 

1326 

C 

AOA 

1610 

1327 

C 

AOA 

1620 

1328 

c 

AOA 

1630 

1329 

NC® 0 

AOA 

1640 

1330 

DO 1440 NSR-NSURF1.NSURF2 

AOA 

1690 

1331 

c 

AOA 

1660 

1332 

iO ® JNOINSRI 

AOA 

16TD 

1333 

J3 ® JNlfNSRI 

AOA 

1680 

1334 

J4 • JN2INSRI 

AOA 

1690 

1339 

K4 - KN2INSR) 

AOA 

1700 

1336 

c 

AOA 

1710 

1337 

SYMCF2 ® SVMCFINSRl - 1.0 

AOA 

1720 

1338 

SVHCF3 — SYHCFINSRl * 2.0 

AOA 

1730 

1339 

SVMLDG ® SVHLFINSRI 

AOA 

1740 

1340 

c 

AOA 

1790 

1341 

00 1430 KC®1«K4 

AOA 

1760 

1342 

c 

AOA 

1770 

1343 

NV ® 0 

AOA 

1780 

1344 

C 

AOA 

ITSO 

1345 

c 

AOA 

1800 

1346 

DO 1520 NSF®NSURF1.NSURF2 

AOA 

1810 

134T 

C 

AOA 

1820 

1348 

K» NSF * 5 

AOA 

1830 

1349 

J1 ° JNIINSFI 

ADA 

1840 

1350 

J2 • JN2INSFI 

AOA 

1850 

1351 

K2 > KN2INSFI 

AOA 

I860 

1352 

NZERO = JNOINSFI 

AOA 

IBTO 

1353 

NSPV- IHAGEFINSF 1 

AOA 

I860 

1354 
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NCV = IFL&tKl 

A04 1690 

1355 


NH > 0 

AD4 1900 

1356 


NOO- NSSOIMSFI 

A04 1910 

1357 

c 


A04 1920 

1358 

c 


A04 1930 

1359 

c 


A04 1940 

1360 


tXl 14B0 KV=l,K2 

A04 1950 

1361 


on 1450 JV'=NZE<ia>J2 

A04 19&0 

1362 


IF USINGP(NSF) *FQ.JVI GO TO 1450 

A04 19T0 

1363 


NV= NV*l 

A04 1980 

1364 

c 


A04 1990 

1365 


5VMCF2* SVKGFlNSFl-l.O 

A04 2000 

1366 


SVMGF3=- SYMGFINSF 1*2.0 

A04 2010 

1367 

c 


A04 2020 

1368 


C0SIU)“ COSA 

A04 2030 

1369 


0051121= 0.0 

A04 2040 

1370 


CaSl<3(= -SINA 

A04 2050 

1371 

c 


A04 2060 

1372 


DO 1170 C=l,3 

A04 20T0 

1373 


IP3= L *3 

A04 2080 

1374 


C0S2(l 1= EN(JV(KVtl.P3l 

A04 2090 

1375 

11 TO 

P(L »= FN(JV,KV«L1 

A04 2100 

1376 

c 


A04 2110 

1377 


JPl= JV *l 

A04 2120 

1378 


WA = FWFINOOl 

A04 2130 

1379 


TEST- ABS< FWUV.KVl - FWUP1*KVI 1 - O.OOl 

A04 2140 

1380 


IF (TEST) 1140,1190,1180 

A04 2150 

1381 

1100 

UA = CEWIJV.KVI ♦ EWlJPl.KVl 1/2.0 

A04 2150 

1382 

1140 

CONTINUE 

A04 2170 

1383 


SHE = EN(JV,KV«2I 

A04 2180 

1384 

c 


A04 2190 

1385 


CALL CORDFIWA , VA ,XLF ,XTE ,2LE ,EP S, CM, CF, CTA8,T AND, TANS , RATS ■ N1,M2I 

A04 2200 

1386 


CALL FLAPSINSF,WA,SHE,XTE,CF,CTAB,TAND, P,C0S21 

A04 2210 

1387 


CALL OOTPICOS1,CC!S2,VHATDPI 

A04 2220 

1308 

c 


A04 2230 

1389 

c 


A04 2240 

1390 


VHATINVl- VHATOP 

A04 2250 

1391 

c 


AO 4 2260 

1392 

c 


A04 22T0 

1393 


no 1200 L=l,3 

AO 4 2230 

1394 

1200 

COSKLl- CnS2lLl 

A04 2290 

1395 

C 


404 2300 

1396 

c 


A04 2310 

1397 

c 


A04 2320 

1398 


NG= 0 

A04 2330 

1399 


nn 1440 NSR=NSURFl,NSURf 2 

404 2340 

1400 

c 


404 2350 

1401 


JO = JNOINSni 

A04 2360 

1402 


J3 = JNKNSRl 

404 2370 

1403 


J4 = JN21NSP1 

A04 2380 

1404 


K4 = XN2INSR 1 

A04 2390 

1405 

c 


A04 2400 

1406 


SVMGF2 = SYMGFINSRI - l.O 

A04 2410 

1407 


SYHGF3 — SVMGfINJRl ♦ 2.0 

A04 2420 

1408 


SYHLDG = SYNLFINSRI 

A04 2430 

1409 

c 


404 2440 

1410 


on 1430 KG=1,K4 

A04 2450 

1411 


no 1420 JG=J0,J4 

A04 2460 

1412 


IF (JSINGPINSRI.EO.JG) GO TO 1420 

A04 2470 

1413 


NG= NG*1 

A04 2480 

1414 

c 


A04 2490 

1415 


JPl - JG*l 

404 2500 

1416 


WA= EH(JG,KG1 

404 2510 

1417 

c 


A04 2520 

1418 


no 1210 L=l,3 

A04 2530 

1419 


LP3= L*3 

A04 2540 

1420 


B(LI= EVIJr.,XC,LI 

A04 2550 

1421 

1210 

f)lL 1= EV( JP1,KG,LI 

A04 2560 

1422 

C 


A04 2570 

1423 


SHF = R121 

A04 2580 

1424 

C 


A04 2590 

1425 


CALL CORDF<MA,YA,XCE.XTE,ZLE ,EPS,CM,CF,CTAB,TAN0,TANS,RATS,M1,M21 

A04 2600 

1426 


CALL FLAPS(NSR,MA,SHF,XTE ,CF,CTAB,TAN0, «,C0S3) 

A04 2610 

142 7 

c 


A04 2620 

1428 


WA = EH(JP1,KG) 

404 2630 

1429 


SHE = DI21 

A04 2640 

1430 

c 


A04 2650 

1431 


CALL CaRnFIHA,YA ,XLE fXTF.ZlE ,EP S.CM, CF , CT AO , T AN0,T ANS , P AT S , HI, M2 1 

A04 2660 

1432 


CALL FLAPS(NSR,M4,SHF,XTE ,CF,CTAB,TAND, 0,COS3> 

A04 2670 

1433 

c 


A04 2680 

1434 


no 1220 L-l,3 

A04 2690 

1435 


PM(L 1 • P( LI 

404 2700 

1436 


BHILI = Of LI 

A04 2710 

1437 

1220 

nwlL 1 = D(LI 

404 2720 

1438 

C 


A04 2730 

1439 


CALL vnRTEX(P,B,0,TANV,UNIT, V1,C0S2) 

404 2740 

1440 


CALL D0TPtCnSl,CCS2,SUMll 

A04 2750 

1441 

C 


A04 2760 

1442 


SUHl= SUM1*VI 

A04 2770 

1443 


SUH2 = 0.0 

A04 2760 

1444 

C 


A04 2790 

1445 


IF ClFLGllTl-ll 1240,1230,1230 

404 2600 

1446 

1230 

CONTINUE 

A04 2810 

1447 

C 


A04 2820 

1448 


call REFLFC(S,ZHE[CT,ALFAR,CDSA) 

A04 2830 

1449 


call REFLEC10,ZHEIGT,ALFAR,C0SA) 

A04 2640 

1450 

C 


A04 2850 

1451 


CALL VORTEXlP.H,n,TANVG,UNITG, V1,C0S2I 

AO 4 2860 

1452 


call nnTP(CQSl,CCS2,SUM31 

A04 2870 

1453 

C 


A04 2880 

1454 


SUMl= SUHl ♦ SU“»3*VI 

A04 2890 

1455 

C 


A04 2900 

1456 

1240 

CONTINUE 

A04 2910 

1457 

C 


404 2920 

1450 


ITEST= J3 -JO 

404 29J0 

1459 


IF IITFSTI 1250,1200,1300 

404 2940 

1460 
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t2S0 JH > J3 ♦ - JG 

A04 

2990 

1461 

IF( JSINGP(NSR).NE.O) JH> JC-JOJ3 

A04 

2960 

1462 

IF 126a«1300tl300 

A04 

2970 

1463 

IZ60 CONTINUE 

A04 

2980 

1464 

c 

AO 4 

2990 

1469 

JP 1 a JH 4 - 1 

A04 

3000 

1466 

WA« EH(JH«KGl 

AO 4 

3010 

1467 

C 

A04 

3020 

1468 

00 12T0 L-1,3 

AO 4 

3030 

1469 

LP3- L *3 

A04 

3040 

1470 

B(LI^ EVIJH.KGfLI 

A04 

3090 

1471 

1270 DILIa EVlJPltKCfLI 

AO 4 

3060 

1472 

c 

AO 4 

3070 

1473 

SHE = BIZI 

A04 

3080 

1474 

C 

AO 4 

3090 

1479 

CALL COROFIMA,VA««.E,XTE,ZiE,EPS,CW.CF,CTA0,TANt>.TANS,RATS,Nl,NZ» 

AO 4 

3100 

1476 

CALL FLAPSINSR.HAfSHE.XTE .CF.CTAByTANO. B.C0S31 

A04 

3110 

1477 

c 

A04 

3120 

1478 

HA a EUl JP l.KGI 

A04 

3130 

1479 

SHE * 0121 

A04 

3140 

1480 

C 

AO 4 

3190 

1461 

CALL CORDF [HA. YA .XLE .XTE . ZLE.EP S.CH.CF.CTAB .T ANO.T AKS.RATS . Ml. HZ 1 

A04 

3160 

1482 

CALL FLAPSINSR.HA.SHE.XTE.CF.CTAO.TANO. D.C0S3) 

A04 

3170 

1483 

C 

AO 4 

3100 

1484 

|F(JStNGPINSRKLE.JH.aR.J0.LE.J3l 

A04 

3190 

1489 

• CALL VOATEXI P.B.O. TANV.UNIT. VI.COSZ 1 

A04 

3200 

I486 

IFIJSINCPINSRI.GT.JH.ANO. J0.GT.J3t 

A04 

3210 

1487 

* CALL VORTEKI P.O.B. TANV.UNIT. VI.COSZ 1 

A04 

3220 

1488 

CALL DOTPICOSl.CCSZ.SUMZt 

AD 4 

3230 

1489 

C 

AO 4 

3240 

1490 

SUMZ= SUMZ*V1 

AO 4 

3290 

1491 

C 

A04 

3260 

1492 

IF IIFLGIlTI-1) 1290.12 60.1260 

A04 

3270 

1493 

1290 CONTINUE 

A04 

3280 

1494 

C 

A04 

3290 

1499 

CALL HEFLECIB.ZHEIGT.ALFAR.COSAI 

A04 

3300 

1496 

CALL REFLECIO.ZHEIGT.ALFAR.CQSAI 

A04 

3310 

1497 

C 

A04 

3320 

1498 

IF| JSINGPINSRI.LE.JH.OR. JO.LE. J3I 

A04 

3330 

1499 

* CALL VORTEX! P.B.O, TANV.UNIT. VI.COSZ » 

A04 

3340 

1900 

IFUSINGPINSm .6T.JH.AND. JO.GT. J3I 

AO 4 

3350 

1501 

• CALL VORTEX! P.C.B, TANV.UNIT. VltCOSZ I 

A04 

3360 

1902 

CALL DOTPICOS1.CQS2.SUH41 

A04 

3370 

1903 

C 

A04 

3380 

1904 

SUM2= SUMZ ♦ SUHA*VI 

AO 4 

3390 

1905 

c 

A04 

3400 

1906 

IZ90 CONTINUE 

A04 

3410 

1507 

C 

A04 

3420 

1908 

1300 CONTINUE 

A04 

3430 

1509 

C 

A04 

3440 

1510 

C 

A04 

3450 

1511 

AMATING.NVI > SUMl 4 SUMZ 

A04 

3460 

1912 

C 

A04 

34 70 

1913 

c 

IF (EXECKI 131-1.01 1310.1410.1410 

A04 

A04 

3480 

3490 

1914 

1919 

1310 IF (IFLGI20I-5I 1410.1320,1320 

A04 

3500 

1916 

1320 IF INH-II 1330.1330,1390 

AO 4 

3510 

1517 

1330 L IN> L IN »4 

A04 

3520 

1518 

NHa 10 

A04 

3530 

1519 

IF ILINX'LINI 13A0, 1350.1350 

A04 

3540 

1520 

1340 CALL PAGE 

AO 4 

3950 

1521 

LIN* LIN *4 

A04 

3960 

1522 

1350 HRITE IXOOT,1020)NSF,NSURFI.NSOBF2 

A04 

3570 

1923 

1360 L IN* LIN *2 

AO 4 

3980 

1524 

IF ILINX-LINI 1370,1380,1380 

A04 

3590 

1525 

1370 CALL PAGE 

A04 

3600 

1526 

LIN= LIN *2 

A04 

3610 

1527 

1360 WRITE (KOUT, 10301 

A04 

3620 

1526 

1390 LIN* LIN 41 

AO 4 

3630 

1529 

IF ILINK-LINI 13TC. 1400. 1400 

A04 

3640 

1530 

1400 MR ITE !KOUT.1040IJV,KV,NV,NC,VMATINVI . AMAT I NG.NV I . I PHI 1 1 , 1* 1 , 31 , ! 6A04 

3650 

1531 

iw! ii.t*i.3>.iDMin.i*i.ai 

A04 

3660 

1532 

1410 CONTINUE 

A04 

3670 

1533 

c 

A04 

3680 

1534 

c 

A04 

3690 

1535 

1420 CONTINUE 

A04 

3700 

1536 

1430 CONTINUE 

AO 4 

3710 

1537 

1440 CONTINUE 

AO 4 

3720 

1538 

c 

AO 4 

3730 

1539 

c 

AO 4 

3740 

1540 

CALL AeORTJI4.SUHl.NGI 

AO 4 

3750 

1541 

c 

A04 

3760 

1542 

c 

A04 

3770 

1543 

1450 CONTINUE 

A04 

3760 

1544 

C 

AO 4 

3790 

1549 

IF lEXECKI 151- 1*01 1460,1480,1480 

A04 

3800 

1546 

1460 IF IIFLGI20I-5) 1480.1470,1470 

A04 

3810 

1547 

1470 HRITE IKDUT, 10001 

A04 

3820 

1548 

L IN* LIN 4| 

A04 

3830 

1549 

1460 CONTINUE 

A04 

3640 

1550 

c 

A04 

3850 

1551 

c 

AO 4 

3860 

1552 

L IN* LiN 43 

A04 

3870 

1553 

IF (LINK-LINI 1490,1500.1500 

A04 

3880 

1554 

1490 CALL PACE 

A04 

3890 

1555 

GO TO 1510 

A04 

3900 

1556 

1500 MR ITE IKOUT. 10101 

A04 

3910 

1557 

1510 CONTINUE 

A04 

3920 

1558 

C 

1520 CONTINUE 

A04 

A04 

3930 

3940 

1559 

1560 

c 

AO 4 

3950 

1561 

t 

A04 

3960 

1562 

c 

A04 

3970 

1563 

c 

AO 4 

3980 

1564 

C * SOLVE FOR GAMA * 

A04 

3990 

1565 

C 

A04 

4000 

1566 
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NMx a 

SUP= O.Q 
on 1540 J=1.NV 
00 1530 K-l.MG 
NM» NH*1 

1530 SUP= SUP ♦ nftdS< AMATCK,JJ I 
15«0 CONTINUE 
C 

SCALE » FLOATINM> 
scale - SUP/SCAtE 
C 

no 15A0 J^ltNV 
DO 1550 K»l,NC 

1550 AMATIJ.KI* ANATIJ,K»/SCALE 
1560 CONTINUE 
C 
C 

CALL DMATlNlAHATtNVtOETERM) 

C 

C 

NG- 0 

on 1640 NSR=NSUREIaNSURE2 
C 

JO » JNOINSRl 
J3 < JNHNSR) 

J4 = JN21NSR) 

K4 = KN2IKSR) 

C 

on 1630 K=l,K6 
00 1620 JoJ0,J4 

IE (JSINGPlNSRKEO.Jl GO TO 1620 
NG^NC»1 
C 

SUP> 0.0 
NV= 0 

DO 1590 NSF-NSU«F1,N50RF2 
C 

NZFRO> JNOINSFI 
J1 - JNKNSEl 
J2 = JN2(NSF) 

K2 = KN2INSEI 
C 

no 15R0 KVi=l«K2 

on 15T0 JV^N2ER0*J2 

IF I JSINCPINSF 1 .EQ.JV) GO TO 1570 

NV-NV+1 

SUP = SUP - VMAT(NV»*AMAT(NV,NCJ 
15T0 CONTINUE 
1500 CONTINUE 
1590 CONTINUE 
C 

SUP = SUP/SCALE 
SUN = -SUP 

c 

EG(J.K1= SUM/FXECKIll 
C 

ITF5T= J3 - JO 
IF IITFSn 1600,1620.1620 
1600 JH = J3 * J4 - J 

IFIJSlNGPINSRl.NE.Ol JH= J -JO *J3 
IF IJH-Jl 1610, 1620.1620 
1610 EGIJH,K>° EGIJ.KI 
1620 CONTINUE 
1630 CONTINUE 
1640 CONTINUE 

c 

c 

c 

c 

C • SOLVE FOR INDUCED VELOCITY MATRIX * 

C 

DO 1000 NSF=NSURF1.NSURF2 
C 

NZERO= JNOINSfl 
J1 = JNKNSFI 
J2 = JN2INSFI 
K2 3 KN2INSF I 
C 

DO 1790 K:.l,K2 
no 1700 J=NZERQ,J2 
IF (JSINGPINSFI.EO.JI GO TO 1780 
C 

JP1= J *1 
■■A - rW I J , X I 
SVHGF2= SVMGFINSFI -l.O 
SVMCF3»-SVMCFINSF) *2.0 
SVMLOC- SVMLFINSFl 
C 

00 1650 1 = 1.3 
LP3= L *3 
SUMSLIL1= 0.0 
RIL »= EVI J.K.Ll 
1650 OIL >= EVUPU K.L) 

C 

SHF = 0121 
C 

CALL CORDF IHA.YA.XLE.XTE , 2LE ,EP S.CN.CF, CT A8 , T AND, T ANS ,R ATS , HI ,N2 I 
CALL FLAPSINSF,.IA.SHF.XTE ,CF.CTAR,TAND, 8.C0S31 

C 

WA = EHIJPl.KGJ 
SHE = DI2I 
C 

CALL COflOF («A,¥A,XLE,XTE,ZLE,EPS,CM,CF,CTAB,T6N0,TANS,RATS,nl,H2t 
call FlAPSInSF ,WA,SHE,XTE ,CF,CTAR,TAND, 0,C0S3J 

C 

on 1660 I =1 , 3 
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166Q P(U= 0.5* ( B(L>*0<LI I 
C 
C 

00 17^0 NSR«NSURPltNSUftF2 
t 

JO " JNOfNSRJ 
J3 * JNUNSRJ 
J4 « JNZtNSai 
K4> s KN2(NSR» 

SYMGF2= SVMGFtNSPJ -1.0 
SYMGF3^-SYMGFINSB) *2.0 
C 

on 1730 KG>1.K4 
DO 1720 JG-J3.J^ 

IF USINGPINSRI.EQ.JG) GO TO 1720 
C 

JPl- JG *l 
MA = EMUG.KGI 
C 

DO 1670 L«l,3 
LP3*= L +3 
BIL>= EVIJG(KG.L) 

1670 D1LI= EVlJPlrKG.L) 

C 

SHE = B(2) 

C 

CALL C0«E>FIWA,YA»)(LE.XTe,lLE.EPS,ClltCF,CTA6,TAND,TANStRATS,Ml,f12> 
CALL FLfiPSlNSF.HA.SHE.XTE ,CF ,CT AB, TANO, fl,C0S3) 

C 

MA « EHlJPlrXG) 

SHE = D{ 2» 

C 

CALL C0RDFlHAfYAtXLE.XTE,£LEtEPS,CM,CFtCTAB,TAND,TANStRATS,Hl,M2l 
CALL FLAPS1 NSF,HA,SHE,XTE ,CF.C TAB, TANOt D,C0S3( 

C 

C 

CALL V0STEX(P,B.D,TANV,UNIT,VI tC0S2l 
C 

DO 1600 L*1.3 

1680 SUHSLILI" SUMSLILl - EG ( JGt KG)* VI *CnS2l LI 
C 

IF IIFLGU7I-1I 1710,1690»1690 
1690 CONTINUE 
C 

CALL BEFLECt8,2HElGT,ALFAR,C0SA» 

CALL REFLECtO«ZHEIGT,ALFAR.COSA) 

C 

CALL VORTEXtP.B.C.TANVG.UNITG.Vl ,C0S2) 

C 

no 1700 L»lt3 

1700 SUMSUD- SUNSLIL) - EG I JG,KG> *VI*C(1S2 IL» 

1710 CONTINUE 

C 

1720 C0N7 INUE 
1730 CONTINUE 
17A0 CONTINUE 
C 

00 1750 L’^ltS 

1750 VVINDXIJ.K ,L )= SUMSU L ) *E XECK 1 1 ) 

C 

ITEST- Jl - NZERC 
IF I ITEST) 1760,1780,1700 
1760 JH- Jl *JZ -J 

IFIJSINGPI NSF J .NE.QI JH« J -N2ER0 *J1 
IF IJH-JI 1770,1180,1780 
1770 CONTINUE 
C 

VVINOX(JH,K,ll « VVINDXIJ.K, II 
VVtN0XtJH,K,2> =-VVINDX( J,K,2) 

VVIN0X(JH,K,3) > VVINDXIJ.K, 3> 

C 

1700 CONTINUE 
1790 CONTINUE 
1800 CONTINUE 
C 

c 

c 

c 

c •* LIFTING SURFACES AIRLOAD COEFFICIENTS •* 

C 

no 1830 L=l,3 
ZUMLGCL) > 0.0 
ZUMPG(L) = 0.0 
ZACNGIL) « 0.0 
SUHLGIL) « 0.0 
SUHPG(L) = 0.0 
FACNGIL ) = 0.0 
1820 Mxl,2 
00 1810 N=l,5 
ZUHL IH.N.L I » 0.0 
ZUHRIH,N,L I > O.C 
ZUHPIM.N.L) = O.C 
SUNL IN.N.L I = 0.0 
SUNRIN,N,L) • 0.0 
1810 SUHPIM,N,L) - O.C 

1820 continue 

1030 CONT INUE 
C 

DO I860 N-l.NSURF 
FACNIN.II - 2.0/liINGDIN,6) 

FACNIN.2I = FACN(N,1I/W{NGDIN,9) 

IflAO FACNIN,3I = F ACN IN, 1) /Hi NGD IN ,1 ) 

FACNGI II = 2.0/REf S 
FACNGI2) = FACNGIll/REFC 
FACNGI3I = FACNGtll/REFB 
C 


A04 SOTO 
A04 5080 
A04 5090 
A04 5100 
A04 5110 
404 5120 
A04 5130 
A04 5140 
A04 5150 
A04 5160 
A04 9170 
A04 9100 
A04 9190 
A04 9200 
A04 9210 
AO 4 9220 
AO 4 5230 
A04 5240 
AO 4 5250 
AO 4 9260 
A04 9270 
A04 9200 
A04 9290 
AO 4 9300 
A04 9310 
AQ4 5320 
A04 9330 
AO 4 5340 
A04 5350 
A04 5360 
AQ4 5370 
A04 5300 
A04 5390 
A04 9400 
AO 4 5410 
A04 5420 
A04 5430 
A04 5440 
AO 4 5450 
A04 5460 
A04 5470 
A04 5480 
A04 5490 
A04 5500 
A04 5510 
A04 5520 
A04 5530 
AO 4 5540 
A04 9990 
A04 5560 
A04 9970 
A04 5500 
A04 5590 
A04 9600 
A04 9610 
A04 5620 
A04 5630 
A04 5640 
A04 5650 
A04 5660 
A04 5670 
A04 5680 
A04 5690 
A04 5700 
A04 5710 
A04 5720 
A04 9730 
A04 5740 
AO 4 5750 
A04 5760 
A04 5770 
ADA 5780 
A04 5790 
A04 5800 
A04 5810 
A04 5820 
A04 5830 
A04 5840 
A04 5850 
404 5860 
A04 5870 
A04 5880 
A04 5890 
A04 5900 
A04 5910 
A04 5920 
A04 5930 
AO 4 5940 
AO 4 5950 
A04 5960 
AQ4 5970 
A04 5980 
A04 5990 
A04 6000 
A04 60111 
A04 6020 
A04 6030 
A04 6040 
A04 6050 
A04 6060 
A04 6070 
A04 6080 
AO 4 6090 
A04 6100 
A04 6110 
A04 6120 


16T3 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1602 

1603 

1604 
1609 
1606 

1607 

1608 
1609 

1690 

1691 

1692 

1693 

1694 
1699 

1696 

1697 
1690 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 
1700 

1709 

1710 
17U 

1712 

1713 

1714 

1715 
1T16 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 
1729 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 
17 91 
1752 
1793 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 
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c 

A04 

6130 

1779 

c 

AO 4 

61A0 

1760 

OD 2110 NSF-^SURF1,NSURP2 

AO 4 

6150 

17BI 

c 

AO 4 

6160 

1782 

NM » 0 

A04 

6170 

1763 

Jl • JN1(^SF 1 

A04 

6180 

1784 

J2 = JN2(NSF) 

AO 4 

6190 

1785 

K2 • KN2(NSFi 

A04 

6200 

1706 

NOO = NSSOINSFI 

A04 

6210 

1787 

C 

A04 

6220 

IT88 

SYMGF2 = SYMGFINSFI -1,0 

AO 4 

6230 

1769 

SYHGF3 = -SYMGf(NSF) »2.0 

AO 4 

6240 

1790 

C 

A04 

6250 

1791 

00 2100 J=J1,J2 

AO 4 

6260 

1792 

IF 1 JSINGF INSf 1 .EQ. JJ GO TP ZlOO 

A04 

6270 

1793 

C 

A04 

6280 

1794 

JP !■ J +1 

A04 

6290 

1795 

Ml > EW4J, 1) 

A04 

6300 

1796 

M2 = EUlJPltll 

A04 

6310 

1797 

IF( JS!P4GP1NSF).GT.J.AND. JNOINSFJ.GT.Jl) 

HI* M2 A04 

6320 

1798 

IFIJSINGPINSF > .GT. J.AND. JNOINSF ).GT. JU 

H2* EMIJ, 1) A04 

6330 

1799 

HA • EMFINODI 

ADA 

6340 

IBOO 

H8 • 2.0*1 Hl-WA ) 

A04 

6350 

IftOl 

TEST= ABS( W1-W2) -0,1 

A04 

6360 

1802 

IF (TEST) 1P60, 1E60|I950 

AQ4 

63TQ 

1803 

1950 UA > {U1FU2I/2.0 

A04 

6380 

1804 

MB => AR5I H1-H2 ) 

A04 

63 90 

1805 

I960 CONTINUE 

A04 

64 00 

1806 

C 

A04 

6410 

1807 

CALL CORDFlUl, Y1 , XLl.XTl , ZLI .EP 1 ,CH1 iCFl 

pCBl ,T ADI .TASlp RATS pMl,M21 A04 

6420 

1808 

CALL COPnF(W2,Y2tXL2.XT2.2L2.EP2.CH2.CF2 

,CB2 ,T AD2 pTASZ .RATS pNI, M2I A04 

6430 

1809 

CALL CDRDF (HA, YA.XLE.XTE ■ ZLE , EP S , CU , C F , CT AB ,T ANO, T ASO , RAT S AOA 

6440 

1810 

C 

A04 

6450 

1811 

TANLE= I XL2-XL 1 ) /C.aOOl 

A04 

6460 

1812 

TANDE= (2L2-2Ln/0.0001 

A04 

6470 

1813 

FOSLf= ABS(Y2-Yl>/0.0001 

A04 

6480 

1814 

IFlFOSLE.GT.O.OOClt TANLE= TANLE/FOSLE 

A04 

6490 

1815 

IF(FOSLE.GT.O.OOCl) TAND = TAnD/FOSLE 

AO 4 

6500 

1816 

IFITCST.LT.O.Ol TANLF= 0, D 

A04 

6510 

1817 

IF( TEST, LT .0.01 TAND “ 0.0 

A04 

6520 

1818 

FOSLE - SQRTll.O * TANLE**21 

AO 4 

6530 

1619 

XHE • 0.5*1 XTltXT2 -CF1-CF2 ) 

AO 4 

6540 

1820 

XHEE « 0.5*1 XIUXT2 -CBl-Caz ) 

A04 

6550 

1821 

Cfisn « l.O/SORTI 1.0 ♦ TAN0**2 1 

A04 

6560 

1822 

S1ND» 1.0 

A04 

6570 

1623 

IF1TAND.lt. D» SIAD= -1.0 

AO 4 

6580 

1824 

IFlCOSD.CT.O.OOOCn SIND= TANO*CQSD 

A04 

6590 

1825 

CM = 0.5*1 Chl*CH2 1 

A04 

6600 

1826 

DO 18T0 L-l.A 

A04 

6610 

1827 

1670 ZUHSLILI = 0.0 

AO 4 

6620 

1828 

C 

AO 4 

6630 

1829 

C 

AO 4 

6640 

1830 

DO 20AO K=ltK2 

AO 4 

66 5 0 

1831 

C 

A04 

6660 

1832 

NM= NH *l 

AD4 

667 0 

1833 

c 

A04 

6680 

1834 

cosim= vvrNoxiJ.K.ii * cosa 

A04 

66 90 

1835 

C0SH21- VVINOXtJ.K.21 

A04 

57 00 

1836 

C0S113>- VV[N0X1J,<,3) - SINA 

A04 

6710 

1837 

c 

A04 

6720 

183 8 

on 1990L=l(3 

AO 4 

6730 

1839 

OIL )’= FVlJ.KiL ) 

AO 4 

6740 

1840 

1880 D1L)= EVlJPl.KfLl 

AO 4 

6750 

1841 

C 

AO 4 

6750 

18 42 

SHI » fl(2) 

A04 

6770 

1843 

SH2 = 0121 

AO 4 

6780 

1844 

c 

AO 4 

6790 

1845 

CALL FLAPS (NSF, Ml, SHI p XTl pCFi ,CBI ,TA01 , 

B,CDS3t A04 

6800 

1846 

CALL FLAPS1NSF,H2,SH2,XT2 .CF2 pCBZ , TA02 , 

D.C0S3) A04 

68L0 

18A7 

C 

AOA 

6820 

1848 

SUMS » 0.0 

A04 

6830 

1849 

DO 19R0 L-1,3 

A04 

6SA0 

1850 

PIL)= 0.5*1 BlLl + DID 1 

AOA 

6850 

1851 

C0S21L 1= DU l-Bl LI 

AOA 

6860 

1852 

IFIJSINGPINSF 1 .GT.J.AND. JNOINSF 1 .GT.Jll 

CPS2 U)= -C0S21L1 AOA 

6970 

1953 

1B90 SUMS = SUM6 , C0S2(L1**2 

A04 

6880 

1854 

SUM8 = SaRTlSUMBI 

AOA 

6890 

1855 

on 1900 L=l,3 

AOA 

6900 

1856 

1900 CDS2IL1 = C0S21 L 1 /SUBR 

AOA 

6910 

1857 

C 

AOA 

6920 

1858 

c 

AOA 

6930 

1859 

CALL CRaSPlCOSl.CCS2,COS3l 

AOA 

6940 

1860 

c 

AOA 

6950 

1861 

SL IFT= EGIJ.XI + SCMB 

AOA 

6960 

1862 

C 

AQ4 

6970 

1863 

c 

AOA 

6980 

18 64 

no 1910 L*l,3 

AOA 

6990 

1865 

SUMSLILI- SLtFT*COSllL> 

AOA 

7000 

1B66 

ZUNSUL) = ZUMSLILl + SUHSLUI 

AOA 

7010 

1867 

SUHLG1LI= SUNLGILI ♦ SUMSLILI 

AOA 

7020 

1868 

SUML 1 1 pNSF ,u- SLML 11 ,NSF pLI + SUHSLILI 

AOA 

7030 

I960 

1910 SUML12.NSF,L>=- SLMLll.NSFpLl 

AOA 

7040 

10 70 

r 

AOA 

7050 

1871 

XI = PI 1 1 - H t NGDINSF , 11 ] 

AOA 

7060 

1872 

X2 - P12I 

ADA 

7070 

1873 

X3 =■ P(31 - hINGD(NSF,12» 

AOA 

7090 

1874 

C 

AOA 

7090 

1875 

SUMPI IpNSF ,11= SLKPll.NSF ,11 + 1 X1*SUMSH3I -X3*SUMSL11I 1 AOA 

7100 

1876 

SUMP! 1, NSF ,21- SLPPl 1 pNSF ,21 - 1 X2*SUMSmi -X3*SPMSL(2) 1 A09 

7110 

1877 

SUMP! I ,NSF ,31= SLMPll ,NSF ,31 - 1 X2*SUPSLI 1 1 -X l+SUMSLl 21 1 AOA 

7120 

1878 

C 

AOA 

7130 

1979 

XI = PI 1) - HINGCllpllI 

AOA 

7140 

1880 

X2 = PI 21 

AOA 

7150 

leei 

X3 *0131 - MlNGrm,12» 

AOA 

7160 

1882 

c 

AOA 

7170 

1883 

SUMP12.NSF,H- SLMP12,NSF,n + ( X1»SUHSLH1 - X3*SUMSUn J A04 

7180 

1884 
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SUHPJ2.NSF ,2J> 
$UNP(2,NSF I 3I< 


SLHP<2*NSF «2> 
StHP<2»NSf t3> 


i X2*SUMSU3> 
( X2*SUMSLI1> 


*3*SU«SL12) 

X1«SUHSL(2I 


XI 

X2 = PC2I 
X3 = P(3I 


Pill - XCG 
VCG 
2CC 


SUMPG( 11= 
SUHPG(2I= 
SUHPGC3» = 


SUMPGCll ♦ ( Xl«S0MSU3> - X3*SUNSLC11 1 

SUMPG12I - I X2*SUMSLm - X3*SUNSL<21 1 

SUHPGOl - « X2»SUNStm - X1*SUMSU21 1 


SUM8> 0.0 
00 1120 L-=1.3 

l<»20 SUHB= SUH8 ♦ SUPSUL1**2 
SUH5L(4I« SQRHSUPB) 
no 1«0 L-1,3 

1930 SUMSL(L1« SUHSLm/SUMSL141 


ftl34 Tl«l 
A04 T200 
A04 7210 
&04 7220 
AO 4 7230 
AO 4 7240 
AO 4 7250 
A04 7260 
A04 7270 
A04 7280 
A04 7290 
A04 7300 
A04 7310 
A04 7320 


IF lEXECKl 151-1. Cl 1940. 2030.2030 
1940 IF (1FLG(201-21 2030,1950.1950 
19«i0 IF INM-ll I960, 1560,2010 
I960 L IN = L IN +4 
NM = 10 

IF ILINX-HNl 1970.1980.1980 
1970 CALL PACF 

L1N« LIN +4 

1980 WRITE IKOUT, 1050INSF.NSURF1.NSURF2 
LIN= LIN 4-2 

IF ILINX-LINI 199C, 2000. 2000 
1990 CALL PAGE 

LIN^ LIN »2 
2000 WRITE IKOUT, 10601 
2010 L IN= LIN ♦ 1 

IE ILINX-LINl 1990,2020,2020 
2020 CPLIFT = -2.0*SL1FT/FSI J.Kl 


IVVtNOXU 
2030 CONTINUE 


,K,I1,I=>I.3I.E6(J.K| 


2040 CONTINUE 

: 

PI 11 = XLE 
PI 31 = ZLE 
C 

SCTS =» 20MSL111 
IFISCTS.GT.0,01 SCTS= 0.0 
SNFC = ABSIF0SLE*SCTS1 
IFIIUMSLI3 l.LT.0.01 SNFC- 
ZUNSL(1I= -SCTS 
fUHSLI21= SCTS^TANLC 
ZUMSU31= SNFC 


-SNFC 


XI = PI U 
X2 = PI2I 
X3 “PI 31 


UlNGDINSF,lll 

WINC0(NSF,121 


ZUMPn.NSf,U= ZLHPll ,NSF ,l 1 
ZUMPI l.NSF ,21= ZLNPll.NSF ,21 
ZUMPI l.NSF ,31= ZLMPU.NSF.al 

XI “PHI - MINGCIl.llI 
X2 “ PI21 

X3 >• PHI - HINGCU.121 


ZUNPI 2,NSF ,11= 
ZUMPI2,NSF,2l= 
ZUNPI 2.NSF , 31= 

XI = PH) - XCG 
X2 • PI2I - TCG 
X3 = PI3I - ZCG 


ZUMPGH»= ZUMPGIll 
ZUMPGI21= ZUMPGI21 
ZUHPCI31= ZUMPGH) 


ZUNPI2.NSF ,1) 
ZL'NPI2,NSF ,21 
ZLMP(2,NSF ,31 


I Xl*ZU«SL(3l 
I X2*ZU«SL13) 


I X14ZUMSLI3) 
I X2*ZUMSLI3I 
4 X2*ZUMSLin 


I X1920NSH3) 
I X2*ZUNSU3) 
I X29ZUNSLI11 


DO 2050 L“l,3 

ZUHLGILI = ZUMLG(L) ♦ ZUMSLILI 
ZU«LH,N5F.L)= ZUNLll.NSF.H ♦ ZUMSLILI 
2050 ZUMLI2,N5F,L)= ZLNHl.NSF.Ll 

IF IEXECKH51-I.C1 2060,2100,2100 
2060 IF HFLGI2DI-2) 2100,2070,2070 
2070 LIN= L IN f2 

IF ILINX-LIN) 2080,2090.2090 
2000 CALL PAGE 
GO TO 2100 

2090 WRITE IKOUT.IOOOI 
WRITE IKOUT, lOOOl 
2100 CONTINUE 


SUHRH.NSF ,11 
SUNRI l.NSF.2> 
SUHftI 1,NSF,31 

SUHRI2,NSF,1) 
SUHR(2,NSF,2) 
SUHRI2.NSF ,31 

SUHL(l,NSF,3l= 
SUNLI2,NSF ,3)< 


< SUNLI1,N$F,1I*C0SA 
SUMLIl ,NSF ,21 
l-SUMLIl,NSF,31 9C0SA 

SLWm ,NSF,1I 
SIJMR 1 1 ,NSF ,21 
SUMBIl,NSF,3) 

•SUMLIl.NSf ,3) 

-SUMLIl ,NSF,31 


1885 

1886 

1887 

1888 
1869 
1390 

1891 

1892 
1B93 

1894 

1895 

1896 

1897 

1898 



A04 7330 

1899 


A04 7340 

1900 


A04 7350 

1901 


A04 7360 

1902 

- 

A04 7370 

1903 


A04 7380 

1904 


A04 7390 

1905 


A04 7400 

1906 


AD4 7410 

1907 


A04 7420 

1908 


A04 7430 

1909 


AO 4 7440 

1910 


AO 4 7450 

1911 


A04 7460 

1912 


604 7470 

1913 


A04 7480 

1914 


A04 7490 

1915 


A04 7500 

1916 


A04 7510 

1917 


A04 7520 

1918 


A04 7530 

1919 


AO 4 7540 

1920 


A04 7550 

1921 

=T,IC0S3I n.I 

=1,31,(A04 7560 

1922 


A04 7570 

1923 


A04 7580 

1924 


A04 7590 

1925 


A04 7600 

1926 


A04 7610 

1927 


A04 7620 

1928 


A04 7630 

1929 


AO 4 7640 

1930 


A04 7650 

1931 


A04 7660 

1932 


A04 7670 

1933 


A04 7680 

1934 


A04 7690 

1935 


A04 7700 

1936 


A04 T710 

1937 


A04 7720 

1938 


A04 7730 

1939 


604 7740 

1940 


A04 7750 

1941 


604 7760 

1942 


604 7770 

1943 

X3»ZUMSU 11 

1 A04 7780 

1944 

K3*ZUHSLI2) 

) A04 7790 

1945 

X1*ZUMSH21 

I 604 7800 

1946 


604 7810 

1947 


604 7820 

1948 


604 7830 

1949 


604 7840 

1950 


604 7B50 

1951 

X3*ZUMSlI 11 

1 A04 7860 

1952 

X3*ZUNSLI21 

I 604 7B7D 

1953 

Xl*ZUM5LI2I 

t A04 7830 

1954 


A04 7890 

1955 


A04 7900 

1956 


A04 7910 

1957 


A04 7920 

1956 


604 7930 

1959 

1 1 ) 

604 7940 

1960 

2) 1 

604 7950 

1961 

2) ) 

A04 7960 

1962 


AQ4 7970 

1963 


604 79B0 

1964 


604 7990 

1965 


A04 8000 

1966 


A04 8010 

1967 


A04 8020 

19 68 


A04 8030 

1969 


A04 8040 

1970 


A04 3050 

1971 


AO 4 8060 

1972 


604 8070 

1973 


604 8080 

1974 


A04 0090 

1975 


604 8100 

1976 


604 8110 

1977 


604 8120 

1978 


A04 8130 

1979 

,N5F ,31*S1NA 

) A04 6140 

19B0 


A04 8150 

1981 

,NSF,ll«StNA 

1 A04 B160 

1982 


A04 8170 

1983 


604 8180 

1994 


604 8190 

1985 


604 8200 

1966 


A04 8210 

1987 


A04 8220 

1988 


604 8230 

1989 


A04 8240 

1990 
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;UMR< I.MSF, 11 

= 4 ZUMLIliNSF ,U*COSA - 

ZU«L41.NSF,3I*SINA I 

AO* 

8250 

1991 


ZU»4R< l«NSFt2l 

- ZUNL41,NSF,2I 


AO* 

8260 

1992 


ZUHR1 l.NSF,3> 

= 4-ZUML4 l,NSF,3l*C0SA - 

ZUML4 1, NSF.ll *SINA I 

AO* 

8270 

1993 

c 




AO* 

8280 

199* 


ZUMRI2«NSF,1I 

= 2UNR41,NSF,1I 


AO* 

8290 

1995 


2UHR<2.NSF.21 

3 2UMRll,NSF,2l 


AO* 

8300 

1996 


I2»NSF,3I 

= ZUMR(1,NSF,31 


AO* 

8310 

1997 

c 




AO* 

8320 

199S 


2UMM ItNSF (Bl* 

-ZUHL(ltNSF.3l 


AO* 

8330 

1999 


IUMLI2.NSF,3J= 

-ZUNUl ,NSF,3) 


AO* 

83*0 

2000 

c 




AO* 

8350 

2001 

2110 

CONTINUE 



AO* 

8360 

2002 

C 




AO* 

8370 

2003 

C 




AO* 

8380 

200* 

c 




AO* 

8390 

2005 


DO 2130 N=NSURF1)NSURF2 


AO* 

8*00 

2006 

c 




AO* 

8*10 

2007 


DO 2120 L^l»3 



AO* 

8*20 

2008 


2UNLI2.N.L> = 

ZUPL(I,N,U*F ACNIl.ll 


AO* 

8*30 

2009 


ZUMR<2,N,L) ° 

2UHRU,N,L>*FACNI1,1» 


AO* 

8**0 

2010 


ZUMU i.N.lt = 

ZUPL4 1«N,L) *F ACN4N.il 


AO* 

8*50 

2011 


£UNR41,N«L) » 

ZUMflU.N.L) *FACN(N,U 


AO* 

8*60 

2012 


SUML(2.N.l> = 

SUPL(ltN,LI*FACNIl,ll 


AO* 

8*70 

2013 


SUMRIZ.N.l) ° 

SUPR<ltN,L)«FACN41,l) 


AO* 

8*80 

201* 


SUML < 1»N»L 1 = 

SUPL4 1,N,L) «FACNI N,l) 


AO* 

8*90 

2015 

2120 

SUHRll.N.LI • 

5UMR4 1 fN,LI *FACN4N,1 I 


AO* 

8500 

2016 

C 




AQ* 

8510 

2017 


lUHPlltN.ll = 

ZUPPdtN.ll «FACN4N,2I 


AO* 

8520 

2018 


£UHPIl,N,2t = 

ZUMP4 1«N,2> *FACNI N,3) 


AO* 

8530 

2019 


2UMP11.N.3I 

ZUMPtl,N,3l*FACN4 N,3I 


AO* 

85*0 

2020 


£UMPI2,N,n = 

2UPP4 2,N,U *FACNU,2) 


AO* 

0550 

2021 


2UHPI2,N>21 = 

2UMP(2,N,2I*FACN(1,3» 


AO* 

8560 

2022 


£UMP42>N,3) ^ 

ZUNP(2,N,3I*FACNI1,3I 


AO* 

8570 

2023 

C 




AO* 

8580 

202* 


SUHP4 I.Nt 1 > = 

SUMP4 t,N,ll «FACN4N,2I 


AO* 

8590 

2025 


SUNP< 1,N,21 = 

SLHP4 1«N,2)«FACN<N.31 


AO* 

86 00 

2026 


SU«P<1,N,31 = 

S41PP4 l,N.3t *FACN4N,3) 


AO* 

0610 

2027 


SUMP(2,N>11 = 

SUMP42.N.11 FFACN4 1.21 


AO* 

8620 

2028 


S0NP<2,N.2I = 

SUNP42,N.2)*FACN( 1,3) 


AO* 

8630 

' 2029 

2130 

SUHP(2tN,3t 

SLNP4 2,N,3> *FACN4 1,31 


AO* 

86*0 

2030 

C 




AO* 

0650 

2031 

c 




AO* 

8660 

2032 


DO 2150 N»2,NSURF2 


AO* 

86 70 

2033 


DO 21*0 1=1,3 



AO* 

8680 

203* 


/UHL42il,Lt = 

ZUHL42,1.LI * ZUNL42,N,LI 


AO* 

8690 

2035 


ZUHR42.1,L) • 

2UNR42,t,Ll * ZUMR(2.N,L) 


AO* 

8700 

2036 


1UMP42,1,LJ = 

ZUPP42,l,tl ♦ ZUHP42,N,U 


AO* 

9710 

2037 


SUML<2.1.L) > 

SUHL42«1,L1 * SUMU2,N,L> 


AO* 

8720 

2036 


SUMR42.1.U = 

Sl|MR42,l,L) * SUNR42.N.U 


AO* 

8730 

2039 

21*0 

SUNP42.1,LI = 

SUMP42,1,L) * SUMP42,N,L) 


AO* 

87*0 

20*0 

ZISO 

CONTINUE 



AO* 

9750 

20*1 

c 




AO* 

8760 

20*2 


ZUHL4 l,NSF,ll = 

ZLNL 11 ,NSF ,L) * ZUHSL4LI 


AO* 

6770 

20*3 

2090 

ZUMH2,NSF,L» = 

ZLMt41.NSF.LI 


AO* 

8780 

20*« 

C 




AO* 

8790 

20*5 


IF IEXECKI15I- 

1.0 2060, 210C, 2100 


AO* 

9800 

20*6 

2060 

IF ( IFLr>( 201-2 1 2 1 00,2 0 70,2070 


AO* 

0810 

20*7 

2070 

tIN- LIN *2 



AO* 

8820 

20*8 


IF (LINX-LINI 

2060,2090,2090 


AO* 

6830 

20*9 

2080 

CALL PAGE 



AO* 

88*0 

2050 


GO TO 2100 



AO* 

0850 

2051 

2090 

rtRITE IKOOT.IOOOI 


AO* 

8860 

2052 


WRITE <KDUT,1000) 


AO* 

8870 

205 3 

2100 

CONTINUE 



AO* 

8880 

205* 

C 




AO* 

88 90 

2055 

C 




AO* 

8900 

2056 


SUHRl l,NSF,tl 

= 4 SUML4 1 ,NSF ,11 *CnSA - 

SUHLd.NSF,3l*SINA 1 

AO* 

8910 

2057 


SUMRl 1,NSF ,21 

= SUMLI 1 ,NSF ,21 


AO* 

8920 

2058 


5UHRI 1,NSF,3I 

= (-SUMLa,NSF,3l FCOSA - 

SUHLd,NSF,ll*SINA I 

AD* 

893 0 

2059 

c 




AO* 

89*0 

2060 


SUHR42,NSF,1I 

= SL)MR (1 .NSF.ll 


AO* 

09 SO 

2061 


SUMRC2,NSF,2) 

= SUMRU,NSF,2) 


AO* 

8960 

2062 


SUMH42,NSF,31 

= SLMH.d ,N5F,31 


AO* 

8970 

2063 

c 




AO* 

8980 

206* 


SUML41,NSF,3l3 

-SLMLIl ,NSf ,31 


AO* 

8990 

2065 


SUNL42.NSF ,31- 

-SUMLIl ,NSF ,3) 


AO* 

9000 

2066 

c 




AO* 

9010 

2067 


2UMR4 1,NSF ,11 

= 4 ZIR4LI 1 ,NSF ,11 *COS* - 

ZLIHL(1,NSF,3I*SINA 1 

AO* 

9020 

2068 


ZUMR41,NSF,2I 

= ZUML41,NSF,2> 


AO* 

9030 

2069 


2UMR4 1,NSF,3I 

= 4-ZUMLI 1,NSF,3I *COSA - 

Z0MLll,NSF,ll*SIN4 1 

AO* 

90*0 

2070 

c 




AO* 

9050 

2071 


2UMR42«NSF, 11 

= ZUMRU.NSf ,1) 


AO* 

9060 

2072 


ZUNn<2,NSF,2» 

= ZUMR41,NSF,2) 


AO* 

9070 

2073 


ZUMn(2.NSF,3) 

=> 1UMR41 ,NSF,3J 


AO* 

9090 

207* 

c 




AO* 

9090 

2075 


ZUML41,NSF,3I= 

-ZUMLIl ,NSf ,31 


AO* 

9100 

2076 


ZUMII2,NSF,3>» 

-ZLML41 ,NSF,3) 


AO* 

9110 

2077 

c 




AO* 

9120 

20TB 

2110 

CONT INUE 



AO* 

9130 

20 79 

c 




AO* 

91*0 

2DB0 

c 




AO* 

9150 

2081 

c 




AO* 

9160 

20P2 


DO 2130 N-NSURF 1 ,NSURF2 


AO* 

9170 

2083 

c 




AO* 

9180 

208* 


QO 2120 1 = 1,3 



AO* 

9190 

2065 


ZUMH2,N,L» = 

ZUML41.N.L>*FACNI 1,11 


AO* 

9200 

2086 


ZUMRI2.N.L1 = 

/.UMR41.N,L1*FACNU,1I 


AO* 

9210 

2087 


ZUMLI l.N.L ) ^ 

ZUML41,N,LI*FACNI K,ll 


AO* 

9220 

2068 


ZUMR(l,N,ll = 

ZUMRIl.N.U *F6CN4N,ll 


AO* 

9230 

2089 


SUHLI2,N,L) = 

SLMLd.N.L) *FACN41,1I 


AO* 

92*0 

2000 


SumrI2,n,LI = 

SUKR4 l.N.Ll •FACNU.l) 


AO* 

9250 

2091 


SUMII l,N,L 1 = 

SUMLd,N.il*F ACN4N,1I 


AO* 

9260 

2092 

2120 

SUMP II, N, LI = 

SLPR4 l.N.Ll *FACN(N,1I 


AO* 

9270 

2093 

C 




AO* 

9280 

209* 


ZUMPl l,N, 11 = 

ZUPPd.N.ll *FACN4N,2I 


AO* 

9290 

2095 


ZUMP4 I.N.2I = 

ZUMPI1,N,21 *FACN4N,3) 


AO* 

9300 

2096 
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ZUMI»ll.Nt3» = /U«PUfN,3l*FACN<Nt3> 

;UMPI2.N«1> » ZUNPt2,N,U*F4CN<l,2» 

2UHP(2,N,2) = ZUHP(2.N.2»*FACN(1,3» 

ZUMP(2>N»3I = 2UPP(2«NfS>*F4CNU,3i 
C 

SUMPlliNtll - SUMPIliN>lt*F4CN(N.2l 
SUHPU.NiZI = StiMP( l.N«2)*FACN(N.3l 
SUHP4 1»N,3) - SUHPU.N.3I *FACN(N.3I 
SUHP<2.N.1> = SUPP42iN.l>*FACNI1.2l 
SUMPI2.N.2] 3 SUHP12«Ni21 *FACNI 1 i3l 
2130 SUnP12.N,31 > SUPP12.N.3t*FACNIl,3l 
C 

c 

no 2150 N-2.NSURF2 
00 21A0 1-1.3 

ZUML(2.1.L) - ZUPL{2,l,LJ ♦ ZUMU2.N.U 
ZUHR(2tl.Ll - ZUHR(2.1tLI *■ ZUHft<2.N.LI 
ZUMPlZ.ltLI = ZUPP12.ltLl ♦ ZUHP(2.N,'LI 
SUMLt2.1.L» - SUPH2.1.L) ♦ SUML12.N.U 
SllHft(2.1.L> - SUMn(2tl.Ll * SUnR(2.N.LI 
2140 SUMP12.1.LI - S0HP12.1.U «• SUHP12.N.tl 
2150 CONTINUE 
C 

DO 21«0 L-1.3 

ZUHLGIL)= ZunLOlLIFFACNGd) 

2160 SUMLGIO- SUHLG(U*FACNCm 
ZUHLG<3t= -ZUNLG(3i 
SUMLGOM -SUMLGO) 

C 

ZUNPGIU - ZUHPCm*FACNG(21 
ZUMPG(21 - ZUMPG12J*FACNC(31 
2UHPG01 - ZUMPCC3t*FACNG(31 
C 

SUHPCm - SUMPGl U4FACNG12) 

SUNPGtZl = SUMPG1214FACNC131 
SUHPG13> = SUMPG<3»*fACNG13J 
C 

ZACNGI21 » ZUHLGm*CnSA + ZUHLGI 3 I *SI NA 
ZACNG43I - ZUMLG(2> 

ZACNGfll = ZUMLG(31*C0SA - ZUMLGm*SlNA 
C 

FACNG<21 - SUMLG(U*CDSA * SUHLG1314SINA 
FACNGOl - SUMLG(21 

FACNGin = SUHLGOI4C0SA - SUMLGl I »*SINA 
C 
C 
C 

C ** LIFTING SURFACES AIRLOAD SECTION CDEFFICtENTS ** 
C 

00 2360 NSF=NSURF 1.NSURF2 
C 

NM = 0 


A04 9310 
A04 9320 
404 9330 
AO 4 9340 
A04 9330 
404 9360 
A04 93T0 
A04 9380 
A04 9390 
A04 9400 
A04 9410 
A04 9420 
A04 9430 
A04 9440 
AO 4 9430 
A04 9460 
AO 4 9470 
A04 9480 
A04 9490 
A04 9500 
A04 9510 
A04 9520 
404 9330 
A04 9340 
404 9350 
404 9560 
A04 9370 
404 9580 
404 9590 
404 9600 
A04 9610 
A04 9620 
404 9630 
AO 4 9640 
A04 9650 
A04 9660 
A04 9670 
A04 9630 
A04 9690 
404 9700 
404 9710 
404 9720 
404 9730 
404 9740 
404 9750 
404 9760 
404 9770 
404 9780 
404 9790 
404 9300 
404 9810 
404 9320 


J1 - JNUNSF) 

J2 « JN21N5F1 
K2 - KN2INSFI 
NZCRO = JNOINSF ( 

NOO - NSSOINSFI 

SVMGF2 = SYMGFINSFI -1.0 
SYMGF3 - -SYMCFINSFI *2.0 
SP4K = WINGDINSF.U 

DO 2330 J=NZFRQ,J2 

IF ( JSINGPINSFl .EO.Jl GO TO 2330 


NN = NN *1 
Ml - EW< J» 1) 

M2 = FM( JP 1. II 
UA - ENElNOOl 
H8 - 2.0*( Ul-HA 1 
TEST => 4BSI Ml - W2 1 - 0. 001 
IF ITESn 2180,2180.2170 
MA = (U1+W21/2.0 
MB > ABSI ML-W2 1 
CONTINUE 
RM » MA 


CALL CORDF (Hl.YltXLl.xTl.ZLl .EPl.CWI ,CFl ,CB1 ,T ADI ,T AS I, RATS.Nl, 
CALL CORDF (M2, Y2,XL2,XT2 , ZL2 ,EP2»CM2,CF2,CB2 ,T 402 ,TAS2, ft ATS, Ml. 
CALL COftDF{MA,YA,XL£,XTE,ZtE.EPS,CW,CF,CTAe»TANO,TASO, RATS, Ml, 

TANLE - (ELE<H2>-ELE(H1II/WR 
FOSLE = SQRTd.O ♦ T4NLF**2I 


XHE = 

0.5*1 

XTUXT2 

-CF1-CF2 

XHFE = 

O.S*( 

XT1+XT2 

-C91-C82 

COSO s 

1.0/S0RT( l.O 

♦ TAN0**2 

SIND- 1 

.0 




IFITANO.LT.OI SIND= -!.0 
IFICOSO.GT.O.OOOCII SIND= TANO*COSO 
CM = 0.5*1 CMI+CM2 i 

AREA'S W6«CW*( COSD*S¥MGF2 ♦ SI N0*SYHGF3 1 

IF( AREA.LT.l.OE-tt AREA=HB*CW*( C0SD*SVMGF3 ♦ SIND*SYMCF2 I 
XC04 = 0.5»(XLl*XL2) ♦ 0.25*CM 

SCN - 0.0 

sex s 0.0 

SPH - 0.0 

set - 0.0 

SCO = 0.0 


DO 2250 R=ltK2 

COSIilI= VVINDXIJ.K.ll ♦ C054 
C0SK2I- VVINDX(J,K,2> 


A04 9830 
A04 9840 
A04 9850 
404 9360 
AD4 9870 
404 9380 
404 9890 
404 9900 
404 9910 
404 9920 
404 9930 
404 9940 
404 9950 
A04 9960 
404 9970 
404 9930 
AO 4 9990 
4041000Q 
40410010 
40410020 
A04I0030 
40410040 
40410050 
40410060 
40410070 
A0410080 
M21A0410090 
M2I 40410100 
m2)40410110 
40410120 
40410130 
40410140 
40410150 
40410160 
40410170 
40410160 
40410190 
40410200 
40410210 
40410220 
40410230 
40410240 
40410250 
40410260 
40410270 
40410280 
40410290 
40410300 
A041031D 
A041032D 
40410330 
A0410340 
40410350 
40410360 


2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 
2U9 
2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 
2187 
2186 
21B9 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 
2193 
2199 
22 00 
2201 
2202 
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cnsna»= vviNoxi j,Kt3i - sins 

ADA 10370 

2203 

c 

AOA1O380 

2204 

00 2190 L = l«3 

A0410390 

2205 

LP3-« t ♦■3 

AOAlOAOO 

2206 

BIL £V(JtK,L I 

AOAlOAlO 

2207 

2190 0(L>= £V(JPlpK»Ll 

AOA10A20 

220B 

c 

A0610630 

22 09 

SHI - R(2I 

A0A1OA60 

2210 

C 

A0A1O45O 

2211 

CSLt FLSPSINSF.bltSHl.XTl .CFl.CBl.TAOl, B,CQS31 

AOA10A60 

2212 

CALL FlAPS(NSF.M2»SM2.KT2,CF2,CB2,TA0Z. D,C0S3> 

AOA10470 

2213 


AOAIDASO 

2214 

SUMS ° 0.0 

A04L0490 

2215 

DO 2200 1=1.3 

A0410500 

2216 

PIM» 0.5*< BU» ♦ DILI ) 

A0610510 

2217 

CDS2<L1“ D(L>-B(LI 

A0410520 

2218 

2200 SUH0» SUH8 » C0S2(L1**2 

AOA10530 

2219 

SUMS = S3KT4SUH8I 

A0410S40 

2220 

00 2210 L=lt3 

A0410S50 

2221 

2210 C0S2IL>= C0S2IL1/SU«« 

A0A10560 

2222 

c 

A0410570 

2223 

c 

A0410580 

2224 

CALL C«0SP(CDSl,CCS2.C0S3) 

A0410590 

2225 

c 

A04 10600 

2226 

SL IFT- EG( J.K)*SLK8 

A0410610 

2227 

c 

A0410620 

222 8 

c 

A0410630 

2229 

DO 2220 L=1.3 

A04 10640 

2230 

2220 SUMSLIL»= SLIFT*C0S3(U 

A0410650 

2231 

c 

A0410660 

2232 

c 

A041D670 

2233 

nCN = -SUMSLt 3I*SVMGF2 *■ SUNSL 1 11 *SVMGF3 

A0410680 

2234 

C 

A0410690 

2235 

SCN = SCN «• OCN 

A0410TOO 

2236 

sex = sex ♦ SUMSLIl) 

A0410710 

2237 

SPM = SPM - DCN*I (Pm-XCOAI/CWI 

A0410720 

22 38 

c 

A0410730 

2239 

e 

AD410740 

2240 

SUM8= 0.0 

A0410750 

2241 

DO 2230 L=l,3 

A0410760 

2242 

2210 SUM8= SU'48 ♦ SUMSUL1**2 

A04107TO 

2243 

SUMSLf41= SQRTISUMBI 

A0410780 

2244 

no 22A0 L=l,3 

A0410790 

2245 

22A0 SUMSL(tI= SUMSLID/SUMSLIA) 

A0410B0O 

2246 

c 

A0410810 

2247 

c 

A0410S20 

2248 

2250 CONTINUE 

A0410830 

2249 

C 

A0410S40 

2250 

c 

AD410850 

2251 

SCN= SCN*I 2.0/ARfAl 

A0410860 

2252 

SCX= SCX»( 2.0/AAEA ) 

A0410870 

2253 

SPM> SPH*( 2.0/ARFAI 

A0410S80 

2254 

C 

A0410890 

2255 

SCL= SVMGF 2* 1 SCN*C0SA-SCX*SINA1 *SYHCF3* IStMl 

A04 10400 

2256 

SCO« SVMGF 2* I SC X«SI NS* SC N*SINS> *SVHGF3* ISCX*COS A) 

A04104l0 

2257 

C 

A04 10920 

2258 

SCLCOB= SCL*CN/SPAN 

A0410930 

22 59 

C 

A0410940 

2260 

RV . ENIJ,1,2) 

A0410450 

2261 

f>L - ENIJ, 1,3» 

A0410960 

2262 

C 

40410970 

2263 

C 

A0410980 

2264 

IF (NH-ll 22S0. 2260.2310 

A0410990 

2265 

2260 LIN« LIN *4 

A0411000 

2266 

IF (LINX-LIN) 2270.2280,2280 

A0411010 

2267 

2270 CALL PAGE 

40411020 

2268 

L IN= L IN *A 

A0411030 

2269 

2280 WRITE (K0uT,lO80INSF,NSUftFl,NSUPF2 

A0411040 

2270 

LIN* LIN *2 

A0411050 

2271 

IF (LINK-LINI 2290.2300.2300 

4041 1060 

2272 

2290 CALL PAGE 

40411070 

2273 

U IN= LIN *2 

40411080 

2274 

2300 Wft ITE IKOUT, 10901 

40411090 

2275 

2310 LIN* LIN*I 

40411100 

2276 

IF UlNK-LINl 22SC, 2320, 2320 

40411110 

2277 

2320 vn8= ( EN{J,l,2l*SrM0F2 ♦ lEN (J2 ,1 .3 I -EN ( J , 1 , 3 11 "SYNGF 3 1/SPAN 

40411120 

2278 

C 

40411130 

2279 

C 

40411140 

2280 

HR ITF IKQUT, IIOOU.VOB.RY.HZ.RH .SCN.SCX.SCL , SCO, S PH, S CL COB, ISUHSU A0V11150 

2281 

111,1=1.31 

40411160 

2282 

LIN= LIN * 1 

A041H70 

2283 

C 

40411180 

2284 

C 

40411190 

2285 

2310 CONTINUE 

40411200 

22 66 

L IN® L IN *2 

40411210 

2287 

IF ILINX-LINl 23AO. 2350, 2350 

A0411220 

228 8 

23AO CALL PAGE 

A0411230 

2289 

CO TO 2360 

40411240 

2290 

2350 WRITE IXOUT, 10001 

A0411250 

2291 

MR ITE IK3UT.1000) 

40411260 

2292 

2360 CONTINUE 

40411270 

2293 

C 

A0411280 

2296 

C 

40411290 

2295 

C 

A0411300 

2296 

C ♦* LIFTING SURFACES AIRLOAD SUMMARY •* 

40411310 

2297 

C 

40411320 

2298 

L IN = LIN * 12 

40411330 

2299 

C 

A0411340 

2300 

IF ILINX-LINI 237C,239C,2390 

40411350 

2301 

2370 CALL PAGE 

40411360 

2302 

L IN « L In * 12 

40411370 

2303 

2380 WRITE IK3UT,1110INSURF1,NSURF2 

40411380 

2306 

C 

40411390 

2305 

c 

4041 1400 

2306 

DO 2610 N=I,NSURF2 

40411410 

2307 

C 

40411420 

2308 
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L IN = LIN ♦ 2 

IF ILINX-LINI 239Ci2-tO0,2400 
23«0 CALL PAGE 

LIN - LIN ♦ 12 

WRITE IKOUT,lllOINSURFl,NSORF2 
2400 CONTINUE 


«0A 11430 
AO 41 1440 
A0411490 
A0411440 
AQ411470 
40411400 

C A0411490 

HR ITE IKQUT.1120)NtSUMLIl .N.3) , SUMLIl >N.U *SUHLI I ,N,2» tSUHRI l.N. 3IA0411500 
l.SUMRl l.N. II.ISUFPI 1«N«I) tWINGDINrlLI .HINGDIN, 12 ) •>< I NCOI N, 6A041 15 10 

2)tWINGDIN,qi,WlNGDIN,l t A0411520 

C A0411530 

UR ITE IKDUT*114a>N t2UNL<l tN»3I • ZUNL II *N«1 1 , £UML 1 1 1 N»2 ) »ZUHRI 1 1 N. 3 1 A041 1540 
l.ZUMftI 1«N>11 >I£UFPI1.N,I > >I~1 tl) .WINGOIN.il I .HI NSOIN, 12) tM INGOI N.6A0411550 
2).W1NG0IN.4I.WINGDIN,L> A0411560 

C A0411570 

2410 CONTINUE A04115B0 

C A0411S90 

L IN > LIN » II • A0411600 

IF ILINX-LINl 2420,2430.2430 A04114I0 

2420 CALL PAGE A0411420 

LIN • LIN * 11 A0411630 

2430 CONTINUE A0411640 

C A0411650 

UR ITF <KauT.1130)SUNL(2.1 ,3 ) . SUNL <2 • 1 ,1 ) .SUMLl 2, 1 . 2 1 .SUNRl 2. 1, 3 1 • SA0411660 
lUMRI 2,l,U.(SUHPI2,l.t 1. 1 -1.31 .HI NGDI t . II I .HINGOI 1.121 .UINGOf I. ft I. A041 1470 
2UING0I 1.0) .HINGOIl, 1), SUMLCI3) . 4SUNLG ( I) . I- 1 .2 ) . I FACNCI I ) . I- 1, 2) , ( A041 IbSO 
3SUNPGI I ), I -1.31 .XCG.ZCG.REFS.REFC,REFS,£UHL<2.l.3>.ZUNLI2.1tll.£UNA0411690 
4LI 2.1,2>.ZUUft«2.1.3).ZUI4R(2.1 .11 . 1 ZUttPI2.1 .1 1 . I-l .3).U INGOI 1. 11 I .UA0411700 
5INCCI 1, 12) .HINCDll.ft) .HINGOII .9) .Hi NGOI 1 .1 ) . ZUHLG 1 3 1 . I ZUNLGI I ). I-1A0411710 
6.2).(ZACNGI I ). 1-1,2) .1 ZUMPGII ) .1-1.3) . XCC.ZCG. REFS. REFC. REF B. 0ETERA04I 1720 


2309 

2310 

2311 

2312 

2313 

2314 

2315 
231ft 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 
232 ft 
2327 
232 B 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 


7H, SCALE 

A0411T3O 

2339 

C 

AD411740 

2340 

C 

A0411750 

2341 

RETURN 

A041IT6O 

2342 

C 

A0411770 

2343 

ENO 

A0411780 

2344 

V FOR A05.A05 

AOS 

10 

2345 

C 

A05 

20 

2346 

C 

AOS 

30 

2347 

SUBROUTINE ABOR T J INOGO . TE ST . I TE ST) 

AOS 

40 

2349 

C 

AOS 

SO 

2349 

C * TRW MULT IPLE- SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.T2 

• AOS 

60 

2350 

C • PROGRAM DEVELOPED BY A. V. GOMEZ IT«U SYSTEMS) ON JUNE-JULY 19T1 

• AOS 

70 

2351 

C 

AOS 

80 

2392 

C XKXXXXXXXXXKXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXX AOS 

90 

2353 

c 

AOS 

100 

2354 

c 

AOS 

110 

2355 

CDMMON/OATAOl/ KIN. KOUT. KTl . KT2. KT3 . KREC. KFILE. LIN. LINK 

AOS 

120 

2356 

1 .RAO, PIE, CUTOFl, CUT0F2, DELALF, IFLAP, LORAG, COLOCP 

AOS 

130 

2357 

2 , IFLCI20). EXECKU5) 

AOS 

140 

235« 

C 

AOS 

ISO 

2359 

EOUIVALENCE (D.N) 

AOS 

160 

2360 

C 

AOS 

170 

2361 

DATA CMAK/0.90/ 

AOS 

ISO 

2362 

DATA l5/5/,I10/lC/,l lOD/1 00/ . I bO/ftO/ . 125/30/ 

AOS 

190 

2363 

C 

405 

200 

2364 

C 

AOS 

210 

2365 

1000 fORMATI 1X.//,3K,25H JOB ABORTED BECAUSE • 

AOS 

220 

2366 

1 23HNO.OF LIFTING SURF ACE .! 2 , 17H EXCEEDS FIVE •**,/, 3X, 6 TI IH* ) 

)AOS 

230 

2367 

C 

AOS 

240 

2368 

1010 FORMAT! IX, //,3X,2SH *** JOB ABORTED BECAUSE . 

AOS 

250 

2369 

2 20HN0.OF SPAN ELEMENTS^, I2.16H EXCEEDS 60 . /.3X.63IIH*) 

lAOS 

260 

2370 

C 

AOS 

270 

2371 

1020 FORMAT! IX. //.3X.25H ♦** JOB ABORTED BECAUSE • 

AOS 

280 

2372 

3 21HNO.OF CHORD ELEMENT S- .12 , 16H EXCEEDS TEN ♦♦♦. /,3X,65(1H*) 

)AOS 

290 

2373 

C 

AOS 

300 

2374 

1030 FnftMATI 1X,//,3X,25H *** JOB ABORTED BECAUSE . 

AOS 

310 

2375 

4 29HN0.0F VORTEX MATRIX E LF MENT S=, 1 2 , 16M EXCEEDS 100 **•,/, 3X, 721 IA05 

320 

2376 

• H* ) ) 

AOS 

330 

2377 

C 

AOS 

340 

2379 

1040 FORMAT) IX, //.3X.25H JOB ABORTED BECAUSE . 

AOS 

3S0 

2379 

5 9HHACH N0.=. F4.3, 17H EXCEEDS 0.90 ***./, 3X, 57I1H*) ) 

AOS 

360 

2380 

C 

AOS 

370 

2381 

1050 FORMAT! IX,//, 3X.25H ••• JOB ABORTED BECAUSE , 

AOS 

3S0 

2382 

6 17HN0.SPAN STATtONS=,12,l5H EXCEEDS 25 *••,/, 3X, 59 { 1 H* ) I 

AOS 

390 

23B3 

C 

AOS 

400 

2384 

1060 FORMAT! IX, //,3X,25H JOB ABORTED BECAUSE , 

AOS 

410 

2385 

7 18HN0 .CHORD STAT IONS- , 12 ,l 5H EXCEEDS 10 ••♦ ./ ,3X , 601 IH* ) 1 

AOS 

420 

2366 

C 

AOS 

430 

2387 

1070 FflRHATI IX,//,3X,25H *** JOB ABORTED BECAUSE . 

AOS 

440 

2388 

B 20HN0.0F SPAN ELEMENTS-. 12 .18H NOT PERMITTED 444,/ ,3X ,65! IH* ) ) 

AOS 

450 

2389 

C 

AOS 

460 

2390 

lOBO FORMAT! lx, /y,3X,25H JOB ABORTED BECAUSE , 

AOS 

470 

2391 

9 26HN0.nF WING CHORD ELEMENTS-, 12 , IBH NOT PERMITTED *••,/, 3X, 71! 1HA05 

4B0 

2392 

•4) ) 

AOS 

490 

2393 

C 

AOS 

SOO 

2394 

1090 FORMATl 1X,//,3X,25H *«* JOB ABORTED BECAUSE , 

AOS 

510 

2395 

- 32HINPUT ERROR IN NSS FLAG, NS SI N) »I 2 , II H.LT .NSS ( H )= 1 2, 4H *•«, 

AOS 

.520 

2396 

• /,4K, 751 IH* 1 ) 

AOS 

530 

2397 

C 

AOS 

540 

2398 

c XXXXXXXXXXXXXXXXXXXXXXKXXXXKKXXXXXXXXXXXKXKXXXXXXXXXKXXXXXXXXXXXXKA05 

5S0 

2399 

C 

AOS 

560 

2400 

r. 

AOS 

570 

2401 

c 

AOS 

590 

2402 

GO TO I 1100,1 110, 1120. 1130,1140.1150,1160,1170,1180 ,1190) , NOGO 

AOS 

590 

2403 

1100 IF I I5.LT.ITESTI URITE I KOUT, 1000) I TE ST 

AOS 

600 

2404 

IFI I5.LT.ITFST) CALL EXIT 

405 

610 

2405 

RETURN 

AOS 

620 

2406 

lUO If I I60.lt. ITESTI write (KOUT.IOIOIITEST 

AOS 

630 

240 7 

IFI IftO.LT.ITEST) CALL EXIT 

AOS 

640 

2408 

HFTURN 

AOS 

ftSO 

2409 

1120 IF I IIO.LT.ITEST) WRITE I KOUT , 1 0201 I TEST 

AOS 

660 

2410 

IF! IIO.LT.ITFST) CALL exit 

AOS 

670 

2411 
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RETURN 




AOS 

680 

2912 

1130 

IF 1 I100.LT.ITeS1> 

hPI TF 

UaUT,lD301 ITEST 

AOS 

690 

2413 


IFl IlOO.LT.lTf STI 

CftLl 

E XI T 

AOS 

700 

2919 


RETURN 




AOS 

TIO 

24 IS 

U*0 

IF (CMAH.LT.TESTI 

WRITE 

IKOUT,1090ITEST 

AOS 

720 

2416 


IF(CN»K.LT.TEST» 


CALL 

EXIT 

AOS 

T30 

2417 


RETURN 




AOS 

790 

2418 

1 tso 

IF i t25.LT.ITESri 

WRITE 

IKOUT, 1050IITEST 

AOS 

TSO 

2419 


IFl I25.LT.IT6ST1 


CALL 

EXIT 

AOS 

760 

2420 


RETURN 




AOS 

770 

2421 

1160 

If < IIO.LT.ITE ST) 

WRITE 

IKOUT, 1060) I TEST 

AOS 

7B0 

2422 


IFl IIO.LT. ITEST) 


CALL 

EXIT 

AOS 

790 

2423 


RETURN 




AOS 

600 

2424 

IITO 

IF IITEST.LT.O) 

hRITE IKOUT, 10701 ITEST 

AOS 

eio 

242 5 


If I ITEST.LT.OI 


CALL 

EXI T 

AOS 

620 

2426 


RETURN 




AOS 

830 

2427 

iieo 

IF I ITEST.LT.OI 

VRITE I ROUT, 1 0601 ITEST 

AOS 

890 

2426 


IFl ITEST-LT-OI 


CALL 

EXIT 

AOS 

8S0 

2429 


RETURN 




AOS 

660 

2430 

1190 

0= TEST 




AOS 

670 

2931 


IF IN.LE.1TF ST) 

hRITE IKOUT, 10901N.1 TEST 

AOS 

660 

2432 


IFIN.LE.ITE STI C4LL FXIT 

AOS 

890 

2433 


RETURN 




AOS 

900 

2434 

C 





AOS 

910 

243 S 


END 




AOS 

920 

2436 


V FPR 

A06,A06 

A06 

10 

2937 

C 


A 06 

20 

2936 

C 


A 06 

30 

2439 


SUBROUTINE CnROFIWA,YA,XLE,XTE,7LE,ePS,Crf,CF,CT0,TANO,TAN5,R. Ml,M) A06 

40 

2990 

C 


606 

SO 

2991 

C 

• TRW MULTIPLE-SURFACE VORTEX-LATTICE PROORAM 

- REVISED 8 AUC,T2 *A06 

60 

2992 

C 

• PROGRAM DEVELOPED BY A.V.GPHEZ ITRW SYSTEMS) 

ON JUNE-JULY 19T1 *A06 

70 

299 3 

C 


A06 

30 

2999 

C 

KXXXXKXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAOS 

90 

2995 

C 


A06 

100 

299b 


COMMON/0ATAO27 NUNC, NFUS, NVTAIU, NSSI51, NSSOIS), NCSISI A06 

110 

2497 


L ,X(30), YI30I, ZI30I, FI30), CI30I, KnCRI3DI, 

FLAPCI3O),TA0C(3OI A06 

120 

2496 


2 .WSHOTH. EWEI30I, ELEI3al, ETEI30), EHEI301, 

EHEEISO) A06 

130 

2999 


3 .X0CI10,5), 20CI10,30) 

A06 

140 

2950 

C 


A06 

150 

2951 

C 


AOb 

160 

2952 

C 

XXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXA06 

ITO 

2453 

C 


A06 

leo 

2454 

C 


A06 

190 

2455 

C 


A06 

200 

2456 


M= -1 

A06 

210 

2457 


NX= 30 

A06 

220 

2458 


DO 1020 L-2.NX 

A06 

230 

2459 


IF IM) 1000.1000,1020 

A06 

240 

2460 

1000 

T6ST« WA - EWeiLI -0. 001 

AOb 

2 50 

2461 


IF (TEST) 1010,1010,1020 

AOb 

ZbO 

2462 

1010 

M = L 

AOb 

270 

2463 

1020 

FONT INUF 

AOb 

230 

2469 

C 


AOb 

290 

2965 


IE (M-2) 1030,1090,1040 

AOb 

300 

2966 

1030 

M»2 

AOb 

310 

2967 

1090 

Ml= M-l 

AOb 

320 

2468 

C 


A06 

330 

2469 


HATS=(HA-EWEIM1I 1 /( E WE I Ml -E ME ( Ml It 

AOb 

390 

2470 

t 


AOb 

350 

2471 


XLF = ELEIMl) ♦ RATS*I ELE(M) - ELEIMII 1 

AOb 

360 

2972 


KTE = ETFIMl) ♦ RATS*( ETE(M) - ETEIMII 1 

AOb 

370 

2973 


XHE = EHE(Ml) ♦ RATS*! EHEIM) - EMEIMD | 

AOb 

380 

2979 


XHEE= EPEEIM1I+ 6ATS*< EHEEIM) -EHEE(Ml) | 

AOb 

390 

297S 


EPS = FIMl) + RATS*! ElMl-EIMll ) 

AOb 

900 

2976 


ZLE - 2IMI) + HATS*! ZIM)-Z(Ml) ) 

AOb 

910 

2977 


CW = XTE - XIE 

AOb 

920 

2978 


CF - XTE - XME 

AOb 

930 

2979 


CTB= KTE - XHEE 

AOb 

990 

2960 


R = RATS 

AOb 

9 50 

2981 

c 


AOb 

9 60 

2982 


OY = V(MI-Yf Ml ) 

AOb 

9 TO 

2963 


OW = EWEiH)-FME|*l| 

AOb 

960 

2969 


VA = Y< Ml ) ♦ RA TS*OV 

AOb 

990 

2965 


TANC = 100000.0 

AOb 

500 

2986 


TEST- ABSIDY) -0.001 

AOb 

510 

2467 

c 


AOb 

S20 

2988 


IF (TEST) 1060,1060,1050 

AOb 

530 

2489 

lOSO 

TANO= IZIMII-ZIPII/OY 

AOb 

590 

2490 

1060 

TANS= I XIM)+T |MI*<O.25-X0CftlMl l-XIMlI-CIMlI^ia 

.2S-X0CRIM1I I IZDM AOb 

S50 

2491 

c 


AOb 

5 60 

2492 


RETURN 

AOb 

570 

2493 

c 

XXXXXX 

AOb 

530 

2999 

c 

END 

AOb 

590 

2995 


AOb 

bOO 

2996 


V 

FOR A07.AC7 

A07 

10 

2497 

C 


A 07 

20 

2498 

C 


AO? 

30 

2499 


SUBROUTINE CAMBFRINSF ,NK, N1 ,82 , PATS.EPS ,KLE ,CW, XF,ZFI 

A07 

90 

2500 

C 


A07 

50 

2501 

C 

* TRW MULTIPLE-SURFACE VORTEX-LATT! CF PROGRAM - REVISED 8 AUG. 72 

• AOT 

60 

2502 

C 

• PROGRAM DEVELOPED BY A. V. GOMEZ ITRW SYSTEMS) ON JUNE-JULY 1971 

• AOT 

TO 

2503 

C 


A07 

30 

2509 

C 

XXXXXX XXXXXXKXXXXXXXXXXXXXXKXXXXXXXKXXXKXXXXXXKXXXKXXXXXXXXXXXX XXX AOT 

90 

2505 

C 


AQT 

100 

2506 


DIMENSION ZOCYIIC) 

AOT 

110 

250 7 

C 

COMMON /OATAOl/ KIN, KOUT , KTl , KT2, KT3 , KREC, KFILF, LIN, LINK 

A07 

120 

2508 


AOT 

130 

2509 


1 ,RAO, PIE, CUTOFl, :UTDF2, DELALF, LFLAP, LORAG, COLOCP 

A07 

190 

2510 


2 , IfLG(20), EXECKI15I 

AOT 

ISO 

2511 


9-24 




AOT 

160 

2512 

COMMON /OAT AOa/ NhtNGt NFUSt NvTAI Lf NSS(5P> NSSOCSIt NCS45) 

AOT 

ITO 

2513 

1 ,XOOI« YI30J, /{30I, e«30»t coolt XOCROOt. FL APCt 30t,T ABC! 301 

AOT 

180 

2514 

2 pNSMOTM, EWFOOJ, EIEUOJ, ETEC30>« EHEI30I • EHEE130I 

AOT 

190 

2515 

3 , XnCI 10,6), 2QC U0»30l 

AOT 

200 

2516 


AOT 

210 

251T 

XXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXKXXXXXX AOT 

220 

2518 


AOT 

230 

2519 


AOT 

240 

2520 


AOT 

250 

2521 


AOT 

260 

2522 

IF(CU.LE.1.0E-4I RETURN 

AOT 

2T0 

2523 

no tOOO L°1.NK 

AOT 

280 

2524 

1000 ZnCV(L»^ 20C(L,HH ♦ RATS* 1 ZOC( L. M2I -lOCI L, Mill 

AOT 

290 

2525 


AOT 

300 

2526 

XOCREF ^ XOCRiMH ♦ R ATS* I XKR < M2 l-XOCR CMl 1 ) 

AOT 

310 

252T 

TANE - TANtFPS/RAO» 

AOT 

320 

2528 

XOCT = JXF-XLEI/CN 

AOT 

330 

2529 


AOT 

340 

2530 

N2 = -1 

AOT 

350 

2531 

DO 1030 L=2.N« 

AOT 

360 

2532 

IF (NZI 1010.1010,1030 

AOT 

3 TO 

2533 

1010 TEST= XOCT - XOCIL.NSFI - 0.001 

AOT 

380 

2534 

IF (TFSTi 1020,1020.1030 

AOT 

390 

2535 

1020 N2*L 

AOT 

400 

2536 

1030 CONTINUE 

AOT 

410 

253T 

IF (N2-1I 10*0.1040,1050 

AOT 

420 

2538 

1040 N2= 2 

AOT 

430 

2539 

1050 Nl» N2-1 

AOT 

440 

2540 


AOT 

450 

2541 

RAT » (XOCT - XDC1N1.NSFM/IX0C1N2.NSF1-XCIC1NI.NSF1 ) 

AOT 

460 

2542 

OELZ- C«*< ZOCTlNll ♦ RAT*f ZOC VI N2 ) -ZOCVINII 1 1 

AOT 

4 TO 

2543 


AOT 

480 

2544 

2F - ZF ♦ OELZ *■ TANE*« XF - XIE - CH*XOCREF » 

AOT 

490 

2545 


AOT 

500 

2546 

RETURN 

AOT 

510 

254T 


AOT 

520 

2548 

END 

AOT 

530 

2549 


7 

FOR A0B.A08 


A08 

10 

2550 

c 



Aoa 

20 

2551 

Q 



AOS 

30 

2552 


SUBROUTINE FLAP SI NSF. HA . SHEK.XTf ,CF , 

CTAB,TANO, P, COSNI 

A08 

40 

2553 

c 



AOS 

50 

2554 

c 

* TRH MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.T2 

*AOB 

60 

2555 

c 

• PROGRAM DEVELOPED 0Y A. V. GOMEZ ITRH SVSTEHSl ON JONE-JULV 19TI 

*AO0 

TO 

2556 

c 



A08 

SO 

255T 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXKXXXXXXXKXXXXXXXXXXXXXXAOS 

90 

2558 

c 



AOS 

100 

2559 


REAL NOAIL.NOGO 


AO 8 

110 

2560 


DIMENSION P43). C0SN(3I 


AOS 

120 

2561 

c 


A08 

130 

2562 

c 



AOS 

140 

2563 


COMMONZDATAOl/ KIN. KOUT, KTl, KT2. 

KT3, KREC, KFILE, LIN, LINK 

AOB 

150 

2564 


1 .RAD. PIE, CUTOFl, CUT0F2, DElALF, 

LFLAP, LDRAG, COLOCP 

AOS 

160 

2565 


2 , 1FLGI20I . EXECK115I 


AO a 

ITO 

2566 

c 



AOB 

ISO 

256T 


COMMON/OATA02/ NkING, NFUS, NVTAIL. 

NSSISI, NSS0(5I« NCSISI 

AOS 

190 

2568 


1 <K(30). YI30I. 2(301. E1301. 0130), 

, XOCR1331, FLAPCI30I,TABC<30I 

AOS 

200 

2569 


2 ,HS«OTH, EWE1301, ELH30>, ETE130)( 

, EHE130I, EHEEI301 

AOS 

210 

25T0 


'3 ,XOC110,5I, 200110,301 


AOB 

220 

25T1 

c 


AOS 

230 

25T2 


COMMON /DA TA03/FLAPDJ( 51 , T ABO J15 1 , A II D J (2 ,5 1 ,0E LTFII 5»,OELT F2I 5 J 

AOS 

240 

2573 


1 .HFFlUSt, WFFl2(5t, WFF21151, HFF22(51, MFF31I51 

AOB 

250 

2574 


2 .HFLAPICSJ. WFLAP2I5>, HFLAP3(5> 


AOS 

260 

2575 

c 



AOS 

2T0 

2576 

c 

XXXXXXXXXXKXKXXXXXXKXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXKXXXXXXXAOS 

280 

2577 

c 



AOS 

290 

2579 

c 



AOS 

300 

2579 

c 



AOS 

310 

2590 


Mi NSF 


AOS 

320 

2581 


MIO^ NSF 4-10 


Aoa 

330 

2592 


NOFLAP = IFLGlNlOt 


Aoa 

340 

2563 


IFlNOFLAP.LT.il NOFLAPi 1 


AO 8 

350 

2584 


NOTAH = NOFLAP - 1 


AOS 

360 

2585 

c 



AOS 

3 TO 

2596 

c 



AOS 

3 SO 

2587 


IF INOFLAPI 1310,1310,1000 


AOS 

390 

2588 


1000 XFLAP = Pill - ( XTE - CF 1 


AOS 

400 

2589 


XTA8 - Pill - ( XTE - CTAB ) 


AOB 

410 

2590 


IF (XFLAPI 1310.1310.1010 


AOB 

420 

2591 


1010 CONTINUE 


A08 

430 

2592 

c 


Aoe 

440 

2593 

c 



AOS 

450 

2594 


COSO =. l.O/SORTl 1.0»TANO**2I 


AOS 

460 

2595 


SINC = TAND*COSO 


AOS 

4 TO 

2596 

c 



AOS 

4B0 

2597 


CDSX I COSNI 11 


AOS 

490 

2598 


COSY = C0SN12)*CGS0 - C0SN131*SIN0 


AOS 

500 

2599 


COSZ = COSN13I*CCSO ♦ C0SN121*SIN0 


AOS 

510 

2600 

c 



AOS 

520 

2601 


FLAPO = FLAPDJI Nl 


AOS 

530 

2602 


TABD » TABOJINI 


A09 

540 

2603 


AILD ^ A ILOJt l.N) 


AOB 

550 

2604 


SIGN = l.O 


AOS 

560 

2605 

c 



AOS 

5T0 

2606 


IF (SHEK) 1020,1030,1030 


AOS 

5B0 

2607 


1020 SIGN = -1.0 


AO a 

590 

2608 


AILD I AtL0J(2,Nl 


AOS 

600 

2609 


1030 CONTINUE 


AOS 

610 

2610 


N0A1L = ABSIAILOl - 0.1 


AO 8 

620 

2611 

c 


AOS 

630 

2612 

c 



AOS 

640 

2613 


DFLAPi 0.0 


AOS 

650 

2614 


9-25 




04 ILD= 0.0 


AOS 

660 

2615 


DTAB = 0.0 


AO 8 

670 

2616 

c 



AOB 

680 

2617 


NO = NSSO( Nl 


AO 8 

690 

2618 


VA = HA - EH<: INOl 


AOB 

700 

2619 


WFF32 = HFF3UNI ♦ WFF22 ! Nl -Wf F2U Nl 


408 

710 

2620 

c 



AOB 

720 

2621 


TSm • VA - HFFllIM 


A08 

730 

2622 


TST12 = VA - WFF12<N1 


AOS 

740 

2623 


TST21 s VA - HFF2KN) 


A08 

750 

2624 


TST22 = VA - WFF221N1 


AOB 

760 

2625 


TST31 * VA - HFF3HN1 


AOS 

770 

2626 


TST32 = VA - HFF32 


AO 8 

780 

2627 

c 



Aoa 

790 

262 8 

c 



408 

BOO 

2629 


IF INOFiAP) 1120,1120.1040 


Aoa 

BIO 

2630 

ia<>a 

IF (WFLAPMNI) ICeO, 1060,1050 


AOB 

820 

2631 

10 50 

IF (TSTin 1120 , 1120,1060 


Aoa 

B30 

2632 

1060 

IF [TST121 1070,1080,1080 


Aoa 

S40 

2633 

1070 

S«F = 0.5*( 1.0 ♦ SINI PIE*<TST112DELTF1 (Nl 

-0 .5 1 1 1 

A08 

850 

26 34 


DFLAP = SNF4FLAP0 


A08 

960 

2635 


OTAB = SMF*TAB0 


A08 

870 

2636 


on TO 1120 


AOS 

6 BO 

2637 

10«0 

IF (1ST21I 1090,1090,1100 


AOS 

890 

2638 

1090 

SNF = 1.0 


AOS 

900 

2639 


OFLAP = S«F*FLAPC 


AOS 

910 

2640 


OTAB = SNF4TAB0 


408 

920 

2641 


r,0 TO 1120 


AOS 

930 

2642 

llOD 

IF (TST221 1110,1120,1120 


409 

940 

2643 

1110 

SNF - 0.5*( 1,0 * SIN{ PIE4(TST21/DFLTF2(N1 

*0.5 1 I 1 

AOB 

950 

2644 


OFLAP = SMF4FLAP0 


AOS 

960 

2645 


OTAB = SMF4TAB0 


AOS 

970 

2646 

c 



AOB 

980 

2647 

c 



AOS 

990 

264B 

1120 

IF (NOAILl 1210,1210,1130 


AOS 

1000 

2649 

1130 

SMF • 1.0 


AOB 

1010 

2650 


DA (LO = SHF*A ILD 


AOS 

1020 

2651 

1140 

IF (TST211 1150,1150,1160 


AOB 

1030 

2652 

1150 

SMF - 0,0 


AOS 

1040 

2653 


OAILO - SMF*AILO 


AOS 

1050 

26 54 


GO TO 1210 


AOS 

1060 

2655 

1160 

IF (TST221 1170,1160,1180 


Aoe 

10 70 

2656 

1170 

SMF = 0.54( 1.0 ♦ SINI PlE*(TST2l/t)ELTF2 INI 

-0.51 1 I 

AOS 

1050 

2657 


OAILO = 5MF4A1L0 


AO 6 

1090 

26 58 


GO TO 1210 


AOS 

1100 

2659 

1160 

IF (TST311 1210,1190,1190 


AOS 

1110 

2660 

1190 

IF ITST32) 1200,1150,1150 


AOB 

1120 

2661 

1200 

SMF . 0,5*{ l.O ♦ SINI PIE*ITST31/DELTF2IN( 

<•0.5 1 1 I 

AOB 

1130 

2662 


OAILO = SMF*AILO 


AOB 

1140 

2663 

C 



AOB 

1150 

2664 

1210 

CONTINUE 


AOB 

1160 

2665 

C 



AOS 

1170 

2666 

c 


' 

AOS 

1180 

2667 


IF (XTAttl 1260, 1220,1220 


AOB 

1190 

2668 

1220 

MO GO = ABSI 0T48I -0. 1 


Aoa 

1200 

2669 


IF INOGO) 1260.1230,1230 


ADS 

1210 

2670 

1230 

TANF » TANI DTAB/ftAO 1 


AOB 

1220 

26 71 


r.OSF = l.O/SOft T( l.0+TANF**Z» 


AOB 

1230 

2672 


SINF = T6NF»C0SF 


AOS 

1240 

2673 


ON Oft = XTAB»SINF 


AOS 

1250 

2674 

C 



AOB 

1260 

2675 


XCOS = COSX*COSF - CQS2*SINF 


AOB 

1270 

2676 


ZCOS = COSZ*CQSF ♦ COSX*SINF 


AOB 

1280 

2677 

C 



AOB 

1290 

2678 


casx = XCOS 


AOB 

1300 

2679 


CDSZ = ZCOS 


AOB 

1310 

2680 

C 



AOB 

1320 

2681 


IF ILFLAPI 1240,1240,1250 


AOB 

1330 

2682 

1240 

Pill = Pill - XTAB*ll.O-CnSF) 


AOB 

1340 

2663 


PI 21 = PIZ» ♦ DN0R*SIND 


AOB 

1350 

2684 


PI 31 = P(3) * DNC(i*CnSO 


AOB 

1360 

2685 

1250 

CDNT INU>" 


AOB 

1370 

2686 

C 



AOB 

1380 

2687 

C 



AOB 

1390 

2688 

1260 

NOGCI - ABSI OFLAP ♦ OAILOl - 0.1 


AOB 

1400 

2689 


IF (NOGOI 1300,1300,1270 


AOB 

1410 

2690 

1270 

TANF = TANI (OFLAP ♦ DAILD WRAC 1 


AOB 

1420 

2691 


CnSF = l.d/SQRTll.O »TANF**2> 


AOB 

1430 

2692 


SINF = TANF*COSF 


AOB 

1440 

2693 


ONOft = XFLAP*SINF 


AOB 

1450 

2694 

C 



AOB 

1460 

2695 


XCOS = CnSX*COSF - CnsZ*SlNF 


AOB 

1470 

2696 


ZCOS = C05Z*C0SF ♦ C0SX*S1NF 


AOS 

1460 

2697 

C 



AOB 

1490 

269 B 


CnSX = XCOS 


AOB 

1500 

2699 


cnsz = ZCOS 


AOS 

1510 

2700 

C 



Aoa 

1520 

2701 


IF ILFLAPI 1280, IZec.lZPO 


Aoa 

1530 

2702 

12 ao 

Pill Pll) - XFLAP* 1 1. 0-C05F J 


AOS 

1540 

2703 


P(2» = P|21 + ONOP*StND 


408 

1550 

2704 


P|31 PI 31 ♦ ONOR*cnSD 


AOS 

1560 

2705 

1290 

CONTINUE 


AOB 

1570 

2706 

C 



AO a 

1580 

2707 

C 



ADS 

1590 

2708 

1300 

CONTINUE 


AOS 

1600 

2709 

C 



AOS 

1610 

2710 


CDSNi 1 1 = cnsx 


AOB 

1620 

2711 


C0SNI2I = C0SV*CCS0 ♦ COSZ*SINO 


AOS 

1630 

2712 


C0SNI31 = COSZ*CCSO - COSV*SINO 


AOB 

1640 

2713 

C 



AOB 

1650 

2714 

C 



AOB 

1660 

2715 

1310 

RETURN 


AOB 

1670 

2716 

C 



AOS 

1680 

2717 


END 


AOS 

1690 

2718 


9-26 



V FOR 

C 

C 

c 

c 

c 

c 

c 

c 

c 
c 
c 


A04, AO? 


SUBROUTINE FLAP! (NSFtMA, SHE ,XTE iCF.CT AB,T ANO,*LE t VLE.ELE, CQS3 I 


DIMENSION PI)I»CCS 3 ( 3 > 


PI XLE 
P 12 I* VLf 
PI 31 - ZLf 

CALL FLAPSINSF,HA,SHE,XTE fCF,CTA6»TANO, P.COS3I 

XLE - Pin 
YLE - PI 2 J 
ZLE = PI 3 » 


RETURN 

END 


A 09 

10 

A 09 

20 

A 09 

30 

A 09 

40 

A 09 

50 

• A 09 

60 

PA 09 

70 

A 09 

80 

XA 09 

90 

A 09 

100 

A 09 

no 

A 09 

120 

A 09 

130 

A 09 

140 

A 09 

150 

A 09 

160 

A 09 

170 

A 09 

180 

A 09 

190 

A 09 

200 

A 09 

210 

A 09 

220 

A 09 

230 

A 09 

240 

A 09 

250 

A 09 

260 

A 09 

270 

A 09 

280 


V FOR AlOfAIO 
C 
C 


SUBROUTINE REFLEC IP »ZL» ALF ARtCOSRI 


AlO 

AtO 

AIO 

AlO 

AIO 


• TPH MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG .72 PAID 

♦ PROGRAM DEVELOPED BV A.V. GOMEZ (TRH SYSTEHSI ON JUNE-JULY l? 7 l *A 10 

AIO 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXKXXXXXXKXXAIO 

AIO 

DIMENSION PI 3 I 

AIO 

COHHON/OATAOl/ KIN» KOUT, KTl, KT 2 * KT 3 p KRECp KFILEt LIN> LINX AIO 

1 ,RAO, PtE» CUTOFlf CUTOF 2 . OELALF» LFLAPt LORAG, COLDCP AIO 

2 ,IFLGI 20 ). EXECKI 15 ) *10 

AIO 

NAHELIST/REFLEX/PX.PY.Xl ,Vl ,PHI ,ALFAR,RX,RY,ZL»C 05 R *10 

AIO 

DATA X 2 / 0 . 0 /. Y 2 / 0 . 0 / *10 

AIO 

KXXKXXXXKXXXXXXXXXXXKXXXKXXXXXXXKXXXXXXXXXKXXXXXXXXXXXKXXXXXXXXXXXAIO 

AIO 


c 

c 

PX= PI 3 ) 

PY= Pin 
Xl= ZL/COSfl 
Yl- 0.0 
PHI- -ALFAR 
NOTE= IFLGI 20 ) - 15 
C 

CALL ROTATEIPX.PY.Xl.Yl.PHl ,X 2 » Y 2 , RX, RYl 
C 

IF INOTEI lOlOa ICIO.IOOO 
1000 WRITE IrOUT.REFLE XI 
10 10 CONTINUE 
C 

RX=-RX 

C 

CALL P 0 TATEIRX,R>»X 2 tY 2 . ALFAR, XI ,Y 1 ,PX,PYI 
C 

IF INOTEI 1030 , 1030,1020 
1020 WRITE I KOUT, REFLEX! 

LINES= LINES »24 
1030 CONTINUE 
C 

PI 31 = PX 
PI 11 - PV 

C 

RETURN 
C XXXXXX 

C 

END 


AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 

AIO 


10 
20 
30 
AO 
50 
60 
70 
BO 
90 
100 
no 
120 
130 
140 
150 
160 
ITO 
180 
190 
200 
210 
220 
230 
240 
2 50 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 


All 
All 
All 

SUBRnuTINE ISOMETIXLE.YLE .ZLE,REFt,XZER,YZER,ZZEB I *U 

All 

♦ TRW MULTIPLE- SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG .72 *All 

• PROGRAM developed BY A.V.GOMEZ ITRW SYSTEMS) ON JUNE-JULY 1971 *A 1 L 

XXKXXXXXXX XXXXXXXXXXXXXXX XXXXXX XXXXXXXXXXXXXKKXXKXKXXXXXXXXXXXXKXXAl 1 

All 


V FOR All. All 
C 
C 


RAO= 57.29578 
PHIR- 45 . 0 /PA 0 
PHIP - -PHIR 
PHIQ - 0 . 5 *PHIP 
ZERO = 0.0 

XLE= ixle-xzer i/refl 
YLE- I YLE-YZER I /REFL 
zle* IZZER-ZLEIZREFL 


All 

All 

All 

All 

All 

All 

All 

All 

All 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

no 

120 

130 

140 

150 

160 

170 

ISO 

190 


2T19 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 
272 B 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 


27*7 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 
27 B 6 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 


2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2311 

2312 

2813 

2814 

2815 

2816 

2817 

2818 
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CALL RDTATFI 

XLE tZLEt 

ZERCi2ERO« 

PHIR, 

ZERO, ZERO, 

XLE.ZLE » 

All 

ZOO 

2610 


CALL ftOTATCi 

VLEtXLF, 

ZERO. ZERO, 

PHI P, 

ZERO, ZERO, 

rLE,XUE t 

All 

210 

2B20 


CALL BQTATEI 

VLE t2LE. 

ZERC.ZERO. 

PHtO, 

ZERO, ZERO, 

rLE.ZLE 1 

All 

220 

2R21 

c 







All 

230 

2822 


'?ETURN 






All 

240 

2823 

c 

XXXXXX 






All 

2'50 

2824 

c 







All 

260 

282 5 


PNO 






All 

270 

2826 


V FOR 

A12.A12 


A12 

10 

2827 

C 



A12 

20 

2828 

c 



A12 

30 

2829 


SUBROUTINE ROTATEl X,Y, XO,YO, PHI, 

XF.YF, XT,YT 1 

A12 

40 

2830 

c 



A12 

50 

2831 

c 

* TRH HULTIPLE- SURFACE VORTEX-LATTICE 

PROGRAM - REVtSEO 8 AUG. 72 

♦A12 

60 

2832 

c 

• PROGRAM OEVELOPED BY A. V. GOMEZ (TRW 

SYSTEMS! ON JUNE-JULY 1971 

*A|2 

70 

2833 

c 



A12 

80 

2834 

c 

XXXXXXXKXXXXKXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXKXXXXKXXXXXXXA12 

90 

2835 

c 



A12 

lOO 

2936 


XS = X-KO 


A12 

110 

2837 


VS = v-vo 


A12 

120 

2838 


RHO= SORT! XS**2 ♦ VS**2) 


A12 

130 

2839 


FRRQRo 0.0001 


A12 

140 

2840 


TESTX= ARS<XS»-£RRQR 


A12 

150 

2841 


TESTY* ABS(YS>-ERROR 


A12 

160 

2842 


IF ITESTXI 1000, ICOO, 1030 


A12 

170 

2843 

1000 

IF ITESTVI 1010,1010,1020 


A12 

180 

2044 

1010 

ZET= 0.0 


A12 

190 

2045 


GO TO 1110 


A12 

200 

2846 

1020 

ZET* 1. 570795*1 YS/ABSI YS) 1 - XS/YS 


A12 

210 

2847 


GO TO UlO 


A12 

220 

2848 

1030 

ZET* ABSIYS/XSI 


A12 

230 

2049 


IF (TESTY! 1050, 1C50, 1040 


A12 

240 

2650 

1040 

ZET-ATAN(ZET» 


A12 

250 

2351 

1050 

CONTINUE 


A12 

260 

2892 


IF <XS) 1070,1060,1060 


A12 

2 70 

2053 

1060 

IF (YSI 1 100,11 tQtlll 0 


A12 

260 

2854 

1070 

IF IVSl 1090, 109C, 1080 


A12 

290 

2855 

1080 

ZE7= 3.14159 - ZET 


AI2 

300 

2856 


GO TO 1110 


A12 

310 

2057 

1040 

ZET= 3.14159 * ZET 


A12 

320 

2858 


GO TO 1110 


A12 

330 

2859 

1100 

ZET* 6.28318 - ZET 


A12 

340 

2860 

1110 

CONT INUE 


AI2 

350 

2861 


ZPP* PHI «• ZET 


A12 

360 

2662 


Xft = BHQ*cns(ZPP) 


A12 

370 

2863 


VR = »HC1*SINIZPP» 


AI2 

380 

2064 


XT* KF + XR 


A12 

390 

2865 


VT= YF ♦ VB 


A12 

400 

2866 

C 



A12 

410 

2867 


RETURN 


A12 

420 

2860 

C 

XXKXXX 


A12 

430 

2869 

C 



A12 

440 

2070 


END 


AI2 

450 

2671 


V FOR 

A13.A13 

A13 

10 

2872 

C 


A13 

20 

2873 

C 


A13 

30 

2874 


SUBROUTINE VOR TE X 1 P ,B , D . T ANA ,GA MA , VI ,VCOS I 

A13 

40 

2875 

C 


A13 

50 

2876 

C 

« TRH MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG. 72 

• A13 

60 

2877 

C 

• PROGRAM DEVELOPED BY A. V. GOMEZ (TRW SYSTEMSI ON JUNE-JULY 1971 

*A13 

70 

2870 

c 


A13 

80 

2679 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXX A13 

90 

2880 

c 


A13 

100 

2881 


DIMENSION PI3!,6(3| ,0(3! 

A13 

110 

2062 


DIMENSION C0Sl<3I,C052(31 .COS3I3I, XI 3! ,A (3 ! ,VCOS (3 1 

A13 

120 

2883 


DIMENSION C( 3! 

A13 

130 

2884 

c 


A13 

140 

2RP5 


COMMON/OATAOl/ KIN, KOUT, KTl , KT2, XT3 , KREC,KFILE, LiN, LINX 

A13 

150 

2686 


1 ,RAO, PIE, CUTOFl, CUT0F2, DELALF, LFLAP, LDRAG, CDLOCP 

A13 

160 

2887 


2 , IFlG(20I , EKECK(15I 

A13 

170 

2886 

c 


A13 

180 

2889 


NAMELIST/DauGVl/P,0,O,TANA,GAMA,PSlF,VCCS 

A13 

190 

2890 


NAMEL IST/D8UGV2/PSIF , VCDS 

A13 

200 

2891 


NA»FL !ST/DBUGV3/PS1F,VC0S 

A13 

210 

2892 

c 


A13 

220 

2893 

1000 

FORMAT! IX,//, IX! 

A13 

2 30 

2694 

c 


A13 

240 

2895 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXA13 

250 

2896 

c 


A13 

260 

2897 

c 


AI3 

270 

2698 

c 


A13 

280 

2899 


NOTE* 1FLGI20! - 8 

A13 

290 

2900 


TANAS* TANA»*2 

A13 

300 

2901 


C0S6= 1,0 - TANA5/2.0 

A13 

310 

2902 


IF I TANAS- 0.000 1 1 1020,1010,1010 

A13 

320 

2903 

1010 

COSA* 1.0/SQRTtTANAS*l.01 

A1 3 

330 

2904 

102U 

SINA* COSAVTANA 

A13 

340 

2905 

c 

SCALE* SQRT((D{U-am l*♦2v(D^2)-a(2l I • *2 ♦ t D (3 I -B ( 3 ! I **2 1 

A13 

350 

2906 


A13 

360 

2907 


on 1030 K= 1, 3 

A13 

370 

2908 


X(K)- IPIK I-O. 5*(fi(K!*D(KlH / SCALE 

A13 

3 00 

2909 

1030 

4(KI= ( 0.5*(D(K I-6( Kl 1 ! /SCALF 

A13 

390 

2910 

VCOSIK 1= 0.0 

A13 

4 00 

2911 

C 


A13 

410 

2912 

c 


A13 

420 

2913 

c 


A13 

430 

2914 

c • 

SEGMENT INF-A-6 ♦ 

A13 

440 

2915 

c 

H5 = TANA* 1 X( 1 1* 6 ( 1 1 J 

A13 

450 

2916 


A13 

460 

2917 

c 


A13 

470 

291 8 
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HSl = JXCIM-Am»**2 ♦ H5**2 
HS2 = IX( 2)«A(2n**2 * IX13I*AI JI-H51 **2 

HS3 = iX< 1»+A(ll»**2 ♦ I Xt2I*AJ2M**2 ♦ I XC 3 » tAt 31IM2 
Hi > SanT<HSll 
H2 = SORTIHSZI 
C 

CDSG= 0.0 
SINO» 1.0 

TEST = CUTnfl - HI 

c 

IF tT€3T) iOAO.lG50.1090 
lOAO COSG- 1HS3-HSI-HS2»/I2.0*H1*M21 
SING- S0RT(AB5U.D-C0SG**2M 
1050 CONTINUE 
C 

R - H2*SING 
H4 « H2*CnSG 
SHIA- H1*H* 

C 

PSIF= I 1.0 ♦SH1A/SQRT1SH1A**2fR**21 »/R 

c 

COSH I I =• COSA 
C0SH2I = 0.0 

C0SH3I - SIN4 

C0S21U = ( xm*Am-SMiA*cosA i/r 

C3S2(2> = I XI2l*AI2> ) /R 

C0S2OI » I XI 3I*AI3I-SH1A*SINA I /R 

C 

CALL CROSPI COS1.COS2.COS3I 
C 

00 lOAO K-1,3 

1060 WCtlSIKI- PSIFACCS3IK) 
t 

IF (NOTE) 1080.1070.1070 
1070 WRITE (KOUT. 10001 

WRITE (KOUT,DBUC^lll 
1080 CONTINUE 
C 
C 

c 

C ♦ SEGMENT D-E-INF * 

C 

M5 » TANAAIKI I )-AI ill 
C 

HSl = I X( I l-AI 11 IFAZ *■ H5**2 

HS2 - (XI2I-A|2H**2 ♦ (Xt3l-At3)-H5)**2 

HS3 = (XI ll-A(l) HAZ ♦ IX12I-AI2HAA2 *■ I X (3 1- Al 3 1 1 **2 

HI = SORT(HSl) 

H2 = SQRT(HS2) 

C 

COSC- O.D 
SIMG= l-O 

TEST « CUTOFl - HI 
C 

IF (TEST) 1090,1100.1100 
1090 COSG- CMS3-H51-HS2l/(2.0*Hl*H2l 
SING- SOPTIABSt l.<KC0SG*A2)1 
1 100 CONTINUE 
C 

R = H2*SINC 
HA - H2*C nSG 
SHIA- Hl+HA 
C 

PSIF= (-1.0 -SHIA/SPRTI SH1A»*2FR**2I 1/R 
C 

COSH IM COSA 
C0SH2I- 0.0 
C0S1(3I= SINA 

C0S2(1I= I X(1)-AI1I-SH1A*C0SA i/r 
C 0S2(2I= t X(2)-A(2) I/R 
C0S2(3)= I XI 3)-A( 31-SHlAASINA I/R 
C 

CALL CRaSPfCOSl.COS2.COS3) 

C 

on ilio K-1.3 

1110 VCOSIKI= vcns(x) + PSIF*C0S3|K) 

c 

IF (NOTE! 1130.1120.1120 
1120 WRITE mOUT,DBUGV2l 
1130 CONT INUE 
C 

c 

c 

C ♦ SEGMENT B-C-0 * 

C 

HSl = A.0*( A(ll**2 *■ A12)**2 ♦ A(3I**Z I 

HS2 = (X( I )-A I II l**2 A (X(2I-AI2H**2 ♦ I XI3 l-AI 3 1 1 **2 

HS3 - < X ( IHAI 1 H**2 ♦ ( X<2) aAIZ) I A*2 ♦ (XI 3I*A1 31 1**2 

HI = SORTIHSn 

H2 - S3RT(HS2) 

C 

COSG= (HS3-HSI-HS2I/(2.0*H1*H2I 
SING- SORTIABSI l.0-C0SG**2ll 
PSIF- 0.0 

TEST * ABSISING) - CUT0F2 
C 

IF (TEST! 1170, 1170. IIAO 
llAO CONTINUE 
C 

R = H2*SING 
C 

TEST 3 R/Hl - 10.C*CUT0fl 
IF (TEST) HTO.l 170,1150 
1150 CONTINUE 
C 

RS = R**2 


A13 

A0O 

2919 

A13 

A9Q 

2920 

A13 

500 

2921 

A13 

510 

2922 

A13 

520 

2923 

A13 

530 

2924 

A13 

5A0 

2925 

A13 

550 

2926 

A13 

560 

2927 

A13 

570 

2928 

A13 

580 

2929 

A13 

990 

2930 

A13 

600 

2931 

A13 

610 

2932 

A13 

620 

2933 

A13 

630 

2934 

A13 

6AD 

2935 

A13 

650 

2936 

A13 

660 

2937 

A13 

670 

2938 

A13 

6 BO 

2939 

A13 

690 

29A0 

A13 

700 

29A1 

A13 

710 

29A2 

A13 

720 

29A3 

A13 

730 

29A4 

A13 

7A0 

2945 

A13 

750 

2946 

A13 

760 

29A7 

A13 

770 

2948 

A13 

700 

2949 

A13 

790 

2950 

A13 

BOO 

2951 

A13 

810 

2952 

A13 

820 

2953 

A13 

830 

2954 

A13 

040 

2955 

A13 

850 

2956 

A13 

860 

2957 

A13 

870 

2958 

A13 

800 

2959 

A13 

890 

2960 

A13 

900 

2961 

A13 

910 

2962 

A13 

920 

2963 

A13 

930 

2964 

A13 

9A0 

2965 

A13 

950 

2966 

A13 

960 

2967 

A13 

9 70 

2968 

A13 

980 

2969 

A13 

990 

2970 

A13 

1000 

2971 

A13 

1010 

2972 

A13 

1020 

2973 

A13 

1030 

2974 

A13 

10 AO 

2975 

A13 

1050 

2976 

A13 

1060 

2977 

A13 

1070 

2978 

A13 

1080 

2979 

A13 

1090 

2980 

A13 

1100 

2981 

A13 

1110 

2982 

A13 

1120 

2983 

A13 

1130 

2984 

A13 

11 AO 

2985 

A13 

1150 

2986 

A13 

1160 

2987 

A13 

1170 

2988 

A13 

HBO 

2989 

A13 

1190 

2990 

A13 

1200 

2991 

A13 

1210 

2992 

A13 

1220 

2993 

A13 

1230 

2994 

AI3 

12A0 

2995 

A13 

12 50 

2996 

A13 

1260 

2997 

A13 

1270 

2998 

A13 

1260 

2999 

A13 

1290 

3000 

A13 

1300 

3001 

A13 

1310 

3002 

A13 

1320 

3003 

AI3 

1330 

3004 

A13 

13A0 

3005 

A13 

1350 

3006 

A13 

1360 

3007 

A13 

1370 

3008 

A13 

1380 

3009 

M3 

1390 

3010 

A13 

lAOO 

3011 

A13 

lAlO 

1012 

AI3 

1A20 

3013 

AI3 

1A30 

301A 

A13 

lAAO 

3015 

A13 

1450 

3016 

A13 

1A6D 

3017 

413 

1A70 

3018 

413 

1A80 

3019 

A13 

1490 

3020 

A13 

1500 

3021 

A13 

1510 

3022 


A13 1920 3023 


A 13 1530 302 A 
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H* = H2*CnSG 

A13 

1560 

302 5 


H1+H4 

A13 

1550 

3026 


Tl= 1.0 ♦ 2,0*H6/Hl 

A13 

1560 

3027 

c 


A13 

15T0 

102 8 


PStF= ( SH 16/SOR T( SH16**2*RSI -M*/ SORT (H4**2 * PS I 1/ R 

All 

15B0 

3029 

c 


A13 

1590 

3010 


on 1160 K=l,3 

A13 

1600 

3031 


G(K»= A(KI*U 

A13 

1610 

3032 


cnsnKi= (G(k]-x<km/r 

A13 

1620 

3033 

1160 

C0S2(K)= -2.0+41KI/H1 

A13 

1630 

3036 

C 


All 

1660 

3035 


CALL CR0SP(CnSl.CCS2,C0S3t 

All 

1650 

3036 

C 


All 

1660 

3037 

1 ITO 

CONTINUE 

All 

1670 

3038 

r. 


All 

1600 

3039 


V2* Q.O 

All 

1690 

3060 

c 


All 

1700 

3061 


nn iiHO K=i,3 

All 

1710 

3062 


VCnSIKl^ VCOSlKt + PSIF*CQS3(K> 

All 

1720 

3063 

IlflO 

V2= V2 ♦ VC0S1K>**2 

All 

1730 

3066 

c 


A13 

1760 

3065 


If (NOTE! 1200.1190,1190 

All 

1750 

3066 

1190 

WRITE (KOOT,O0UCV31 

All 

1760 

3067 


L IN= 1 INX - 10 

All 

1770 

3068 

i;>ao 

CONTINUE 

All 

1780 

3069 

C 


All 

1790 

3050 


Vl3 SQRTIV2I 

All 

IBOO 

3051 


no 1210 K«l,3 

All 

1810 

3052 

1210 

VCOSlKt= VCnSIKI/\(l 

All 

1820 

3053 

c 


All 

1810 

3056 


VI= VI*(GAHA/SCALE) 

All 

I860 

3055 

c 


All 

1850 

3056 


RETURN 

All 

1860 

3057 

c 

XXXXXX 

All 

1870 

3058 

c 


All 

1880 

3059 


END 

All 

1890 

3060 


V FOR 

A16.A16 




A16 

10 

3061 

C 





A16 

20 

3062 

C 





A16 

30 

3063 


SuePOUTINF OrtATIMA.N.DETERHI 




A16 

60 

3066 

C 





A16 

50 

3065 

c 

MATRIX INVERSION WITH ACCCMPANVING SOLUTION OF 

LINEAR EQUATIONS 

A16 

60 

3066 

c * 

VERSION 2 RnuTINE (ODUaLE PRECI SSION-LANGLEV MATINV 

Subrout inei 

* A16 

70 

3067 

c 





A16 

30 

3068 

c 

• TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - 

REVISED 8 AUG. 72 

♦ A16 

90 

3069 

c 

* PROGRAM OEvELOPEO BY A. V. GOMEZ ITRW SYSTEMS! 

ON JUNE-JJLY 1971 

*A16 

100 

3070 

c 





A16 

110 

3071 

c 

XXXXXXXXXX XXX XX XX XX XXXXXX XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXKXXA16 

120 

3072 

c 





A16 

130 

3073 


DOUBLE PRECISION R 1 ,P2 ,0E TERM ,AHAX, T , SWAP 

,PI VCT 

,PIV0T1 

A16 

160 

30 7a 


DOUBLE PRECISION A( 100. 1001. 811,11 




A16 

150 

3075 


OIMENSION IPIVOTI 1001 .INDEXU00.2! 




A16 

160 

3076 


EQUIVALENCE I IROk , JROWl . ( ICOLUP, JCOLUH 1 , 

( AMAX 

, T, 

SWAP) 

A16 

170 

3077 


M= 0 




A16 

180 

3078 

c 





A16 

190 

3079 

c 

XXXXXXKXXXKXXXXXXXXKXXXXXXXXXXXXXXXXXXKXXXXXKXXXXXXXXXXXXXXXXXXXXX A 16 

200 

3080 

c 





A16 

210 

3081 

c 





A16 

220 

3082 

c 





A16 

230 

3083 

c 

IN ITIAL IZATION 




A16 

260 

3086 

c 





A16 

250 

3005 

1000 

tSCALE=0 




A16 

260 

3086 

lOlO 

PI = 1.E36 




A16 

270 

3087 

1020 

R2-1.0/R1 




A16 

280 

3088 

1030 

DETERM=l.O 




A16 

290 

3089 

1060 

on 1050 J=l,N 




A16 

300 

3090 

1050 

IP IVnTIJ»=0 




AI6 

310 

3091 

1060 

DO 1630 I^l.N 




A16 

320 

3092 

C 





A16 

330 

3093 

c 

SEARCH F3R PIVOT ELEMENT 




A|6 

360 

3096 

c 





A16 

350 

3095 

1070 

AHAX=0.0 




A16 

360 

3096 

IQBO 

no 1170 J»1.N 




A16 

370 

3097 

10°0 

IF ( !PIVDT(J»-II 1100,1170,1100 




A16 

380 

3Q9B 

1 100 

no 1160 K»1,N 




A16 

390 

3099 

1110 

IF IIPIVOT<KI-n 1120,1160,1750 




AI6 

600 

3100 

1120 

IF 1 DARSI AMAXI-OABSIA! J,K1 I 1 1130,1160,1160 



A16 

610 

3101 

1130 

iRnw=j 




A16 

620 

3102 

1 160 

1CULUH=K 




A16 

630 

31 03 

1150 

AMAx=A( J, a I 




Al6 

660 

3106 

1160 

CONT INIIE 




A16 

650 

3105 

1170 

continue 




A16 

660 

3106 


IF IAMAX! 1190,1180,1190 




A16 

670 

3107 

1180 

DETERM=0,0 




A16 

680 

3108 


ISCau e=o 




A16 

690 

3109 


GO TO 1750 




A16 

500 

31 10 

C 

XXXXXX 




A16 

510 

3111 

C 





A16 

520 

3112 

c 





A16 

530 

3113 

1190 

IP IVOTI lCOLUM» = lPIVOTnCOLUM»tl 




A16 

560 

31 16 

c 





A16 

550 

3115 

c 

INTERCHANGE ROMS TO PUT PIVOT ELEMENT ON 

DIAGONAL 


AI6 

560 

31 16 

c 





AI6 

570 

3117 

1200 

IF 1 IROW- ICOLUMI 1210,1310,1210 




A16 

580 

3118 

1210 

nFTEPM=-DETFPM 




A16 

590 

3119 

1220 

00 1250 L=1,N 




A16 

600 

3120 

1230 

5WAP=AI IPQW.LI 




AI6 

610 

3121 

1260 

A( IPOW,L|=AI rCOLLK,LI 




A16 

620 

3122 

1250 

A( ICOLUM,L » = SWAP 




A16 

630 

3123 

C 





A16 

660 

3126 

c 





A16 

650 

3125 

1 260 

IF IM) 1310,1310,1270 




A16 

660 

3126 

12T0 

on 1300 L=1,M 




A16 

670 

3127 
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1280 SWAP«BI IROW.Li 
1290 Bl tROM,LI«B( IC0LL^«L1 
1300 B4 ICQLUHpL I=SMAP 
1310 INDEX! I»11>1R0H 
1320 INDEXI 1.21'ICOLUM 
1330 PIVOT=*A(ICOLUNpICCLUm 

IF IPIVOTl 1340. 1180,1340 


C 

C SCALE THE OETERNINANT 
C 


1340 P1VOT1=PIVOT 
1350 IF (OABS(0ETEnM)>«lt 
1360 DETEHM^oe TERM/Rl 
ISCALE^ISCALE*! 

IF (OABSIOETERIil-RlI 
1370 OETERM^deTERN/RI 
ISCALE^ISCALE»1 
GO TO 1410 

1380 IF (DABSI0ETERnl-R2» 
1390 oe TERM -OE TER M*R1 
ISCALE-ISCALE-l 
IF IOABSIOETERM1-R2I 
1400 0ETERM-DETERH4R1 
ISCALE=ISCALE- 1 
1410 IF lOABSIPIVOrn-RlI 
1420 PIVOTI»PIVOTI/R1 
[5CALE=ISCALE4l 
IF lOABSIPIVOTI 1-Rll 
1430 PIV0T1=PIV0TI/R1 
ISCALF=ISCAIE<-1 
GO TO 1470 

1440 IF IDABS(PIV0TI»-R2» 
1450 P IVDTI-PIVOTt*RI 
1SCALE=1SCALE-1 
IF (OABStP IV0TM-R2I 
1460 P IvnTt=Pl V0TI4R1 
lSCALE-ISCALF-1 
1470 OETEBM«OETERM*PI VOTI 


1380.1360,1360 

1410,1370.1370 

1390.1390.1410 

1400.1400.1410 
1440.142 0,1420 
1470,1430,1430 

1450.1450.1470 

1460 .1460. 1470 


C DIVIDE PIVOT ROW er PIVOT ELEMENT 

C 

1480 A( ICOLUN, IC0LUMI = 1.0 
1490 00 1500 1=1, N 

1500 At ICOLUM,L l=A(ICCLUH,L)/PIVOT 
C 
C 

1510 IF (Ml 1540,1540,1520 
1520 DO 1530 L=1,M 

1530 B( ICOLUM.L l-enCCtUH, LI /PIVOT 
C 

C RFOUCE NDN-PtVDT ROWS 

C 

1540 no 1630 Ll“l,N 

1550 IF ILl-ICOLUMI 1 !<0. 1630. 1 560 
1560 T^AILl, tCOLUMI 
15T0 AILl, ICOLUMI=0.0 
1580 (X) 1590 L = 1,N 

1500 AILl.L I=A(L1,LI-A(IC0LUM.LI*T 
C 

c 

1600 IF (Ml 1630,1630,1610 
1610 IX) 1620 1 = 1, H 

1620 BlLl.L l=BILl,Ll-6(IC0HJM.U*T 
1630 CONTINUE 
C 

C INTERCHANGE COLUMNS 

C 

1640 DO 1740 I* 1,N 
1650 L=N41-1 

1660 If I INnEX(L,lI-lNDEXIL,2ll 1670,1740,1670 
1670 JR0M=IN0EX(L,1I 
1680 JC0tUM=INPEX(L,2I 
1690 DO 1730 K=L.N 
1700 SWAP=A(K, JROWI 
1710 AI K,JROWl=A(K, JCQLUMI 
1720 A( K.JCOLUM l=SHAP 
1730 CONTINUE 
1740 CONTINUE 
1750 RETURN 
C XKXXXX 

C 

END 


*14 

6S0 

A14 

690 

A14 

700 

A14 

TIO 

A14 

720 

A14 

730 

A14 

740 

A14 

750 

AI4 

760 

A14 

770 

A14 

780 

A14 

790 

A14 

800 

A14 

810 

A14 

820 

A14 

830 

A14 

840 

A14 

850 

A14 

860 

A14 

870 

A14 

8 BO 

A14 

890 

A14 

900 

A14 

910 

A14 

920 

A14 

930 

A14 

940 

A14 

950 

A14 

960 

A14 

970 

A14 

990 

A14 

990 

A14 

1000 

*14 

1010 

A14 

1020 

A14 

1030 

A14 

1040 

A14 

1050 

A14 

1060 

A14 

1070 

A14 

1080 

A14 

1090 

A14 

1100 

A14 

1110 

A14 

1120 

A14 

1130 

A14 

1140 

A14 

1150 

A14 

1160 

A14 

1170 

A14 

1180 

A14 

1190 

*14 

1200 

*14 

1210 

Al* 

1220 

A14 

1230 

A14 

1240 

A14 

1250 

A14 

1260 

A14 

1270 

A14 

1280 

A14 

1290 

A14 

1300 

A14 

1310 

A14 

1320 

A14 

1330 

A14 

1340 

A14 

1350 

*14 

1360 

A14 

1370 

A14 

1380 

A14 

1390 

A14 

1400 

A14 

1410 

*14 

1420 

A14 

1430 

A14 

1440 

A14 

1450 

AI4 

1460 

A14 

1470 

A14 

1460 

A14 

1490 


V FOR A15.A15 

C 

c 


SUBROUTINE OOTPIA,B,CI 


DIMENSION A(3),BI3I 

C= AI 1 l*BI 11 * A I 2I*B( 214 A(3I*B(3I 


RETURN 

KXXXXX 


END 


V FOR A16.A16 


AIS 

10 

A15 

20 

A15 

30 

A15 

40 

A15 

50 

*A15 

60 

• AI5 

70 

A15 

80 

XXA15 

90 

A15 

100 

A15 

110 

A15 

120 

A15 

130 

A15 

140 

A15 

150 

A15 

160 

A15 

170 

A16 

10 


3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 
31*0 
31*1 
31*2 
31*3 
31** 
31*5 
31*6 
3l*T 
31*8 
31*9 

3150 

3151 

3152 

31 53 
315* 

3155 

3156 

3157 

31 58 

3159 

3160 

3161 

3162 

31 63 
316* 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

31 79 

3180 

3181 

3182 

3183 
31 S4 

3185 

3186 
31B7 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

32 05 

3206 

3207 

3208 

3209 


3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 
32 2 0 

3221 

3222 

3223 

3224 
32 2 5 
3226 


3227 
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c 




A16 

2D 

322 8 

c 




A16 

30 

3229 

susnnuTtNE Cf>osi>i itn,c» 



A16 

40 

3230 

c 




A16 

SO 

3231 

c 

• TBW mult tPLE-StHf 4CE VORTEX-LATTICE 

PROGRAM 

- REVISED B AUG.72 

•A16 

bO 

3232 

c 

* PROGRAM OEVELOPEO BY A. V. GOMEZ ( TRM 

SYSTEMS! 

ON JUNE-JULY 1971 

• A1 A 

70 

3233 

c 




A16 

SO 

3234 

c 

XKXK*XXX*XXXXXXXX)iXXXXXXXXXXXXXKKXXXXXXXXXXKXXXKXXXXXXXXXXXKXXKXXXAl»» 

90 

3235 

c 




A16 

100 

323b 


OIMEMSION Al)>.8(3> .COI 



Alb 

no 

32 37 

c 




Alb 

120 

32 3B 


r,|lj= A(2I*B(3» - A<3I*0I2J 



Alb 

130 

32 39 


C(ZI= - A(ll»6l3J 



Alb 

140 

3240 


C( T»= Al - A121*B( n 



Alb 

ISO 

3241 

c 




Alb 

160 

3242 

RETURN 



Alb 

170 

3243 

c 

XXXXXX 



Alb 

190 

3244 

c 




Alb 

190 

3245 


END 



Alb 

200 

324b 


V 

FOP A 17, A 17 

AIT 

10 

3247 

c. 


A17 

20 

3248 

c 


AIT 

30 

3249 


SUBROUTINE PAGE 

AIT 

40 

3250 

c 


AIT 

50 

3251 

c 

• TPM MULTIPLE- SURE ACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.72 

*A17 

bO 

32 52 

c 

* PROGRAM DEVELOPED BY A. V. GOMEZ 1 TRW SYSTEMS) ON JUNE-JULY 1971 

*A17 

70 

3293 

c 


A17 

30 

3254 

c 

KXXXXXX XXXXXXX XX XX XXXXXX XX XXXXXXXXXXKXXKXXXXXXXXXXXXXXXXXXX XXXXXX XX A1 7 

90 

3255 

c 


A17 

100 

325b 


DIMENSION A1LRDXI2! 

A17 

110 

3257 

c 


AIT 

120 

3258 


CDHMON/OATAOO/ TITLEU4), ALE AO. 2H0, CMAK 

AIT 

130 

3259 

c 


AIT 

140 

32b0 


COMMON ZOATAOl/ KIN, KOUT, KTl, KT2, KT3 , KREC, KFILE, LiN, LINX 

A17 

150 

32b 1 


1 ,RAD, PIE, CUTOFI, rUT0F2, DELALF, LFLAP, LORAC, COLOCP 

A17 

IbO 

32 b2 


2 , IFLCI20I, EKECKI15) 

A17 

ITO 

32 b3 

c 


A17 

ISO 

32 b4 

c 


AIT 

190 

3265 

1000 EOPMATI TOHIJOBFLAG 1 2 3 4 5 b 7 0 9 10 11 12 13 14 15 

16A1T 

200 

32 6b 


1 17 IB 19 20 ,9A6,6H PAGE,/, 

A17 

210 

3267 


2 2K,SHVALUe,lX,2QI3, 7K , SHALE A= ,fb.2 ,9H MACHNO= , Fb .4, 1 IH ALT1TU0A17 

220 

3268 


3F=,Fb.2, 7X,[4,//,1XI 

AIT 

230 

3269 

C 


A17 

240 

3270 

C 


A17 

250 

3271 

C 

X XXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXX XX XXXXXXX XXX XXXXXXXXXXXXXX XXX A 17 

2b0 

3272 


C 

A17 

270 

3273 

C 

A17 

2B0 

3274 

IE IN$TU-1971) 1010,1020,1010 

A17 

290 

3275 

lOlO NSTU= 1971 

AIT 

300 

3276 

FIAPOX = 0.0 

A17 

310 

3277 

AILPOXdl* 0.0 

A17 

320 

3278 

AILPDX<2)= 0.0 

A17 

330 

32 79 

NP= 0 

A17 

340 

3280 

1020 NP= NPFl 

A17 

350 

3281 

WR ITE <KnuT,1000) (TITLE! It ,1=1 ,9) ,1 IFLGIl 1 ,m 

,20 1. ALFA0,CHAK,2H0, A17 

360 

3282 

*NP 

A17 

370 

3283 

L IN= 5 

AIT 

380 

3284 

C 

A17 

390 

3265 

RETURN 

A17 

400 

3286 

C XXXXXX 

A17 

410 

3287 

C 

A17 

420 

3288 

END 

AIT 

430 

3209 


V FOR 

A18, Alfl 

Aia 

10 

3290 

C 


A18 

20 

3291 

C 


A18 

30 

3292 

C 

MA IN ROUTINE 

Aie 

40 

3293 

C 

TEST MATRIX INVERSION 

Aia 

50 

3294 

C 


A18 

60 

3295 

C 

* TPw MULTIPLE- SURFACE 

VORTEX-LATTICE PROGRAM - REVISED 8 AUG.72 »A18 

70 

3296 

C 

» PROGRAM 0FVEL1PED BY 

A. V. GOMEZ (TBW SYSTEMS) ON JUNE-JULY 1971 *A18 

90 

3297 

C 


Aie 

90 

3290 

C 

XKXXXXXKXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXX A 18 

100 

3299 

r 


Aia 

no 

3300 


DOUBLE PRECISION DELTA, 

,AMAT (60,60) .CMAT (60,60) A18 

120 

3301 


DOUBLE PRECISION BMATIlOO.loai A10 

130 

3302 

C 


A18 

140 

3303 

1000 

FOftMATI 1 10X,I5,2F14.4 I 

1 1 AIB 

150 

3304 

1010 

FORMAT! IX, /.IX ! 

Aie 

160 

3305 

1020 

FORMAT n I0X,9( IPE 14.6! 

> 1 Al« 

170 

3306 

C 


Aie 

180 

3307 

C 

XX XXXXX XXX XXX XXX XXXXXXXXXXXXXXX XX KKXKXXXXXXX XXXXXXXXXXXXXXXXXXXXXX A 19 

190 

3308 

C 


A18 

200 

3309 

C 


A13 

210 

3310 

C 


AIS 

220 

3311 


NDR= 9 

A19 

230 

3312 

C 


A19 

240 

3313 


AMAKl.U . 1.032 

A18 

250 

3314 


AMAT( 1,2) = 7. 965 

A18 

260 

3315 


AWATIl,3! = 3.21f 

Aia 

2 70 

3316 


AMAT( 1,41 = 3.031 

Aia 

280 

3317 


AMAT(1,5) = 10.32 

AIB 

290 

3318 


AMATI2, 1) = 7, 68 

A18 

300 

3319 


AMATI2.21 = -b.35 

Aie 

310 

3320 


AMATI2,3! s 8.90C 

Aia 

320 

3321 


AMAT(2,41 = -1.02 

A18 

330 

3322 


AMAT(2,5! = 9.69C 

Aie 

340 

3323 


AMAT(3,l) = 3.03C 

AIB 

550 

3324 


AMATI3,2) = -3.38 

A18 

360 

3325 


AMATI 3,31 * -11,67 

A18 

370 

3326 


AMATO, 41 = 4.19C 

A19 

3 BO 

3327 
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tHAT(3,9) = -3.60 

Aia 

390 

332 a 


AMAT(*,U X -2.9’ 

AIB 

600 

3320 


AMAT<4,2I = 6.67C 

AIS 

410 

3330 


AHATI*,31 s 8.323 

AIS 

420 

3331 


AMATIA.A) > 9,07’ 

Aia 

430 

3332 


AMAtM.,5) =• 0.0378 . 

Aia 

440 

3333 


AMAT15, II = -.C?78 

Aia 

450 

3334 


AMATI 5,21 = 7. 103 

Aid 

460 

3335 


A*<AT(5,3I a 9.992 

AIS 

4 70 

3336 


AHAT(5,*1 s 0.97E 

Aia 

4B0 

3337 


AMAT<5,51 - 15.16 

Aia 

490 

3338 

c 


AIB 

500 

3339 


no 1060 J^I,NOR 

Aia 

510 

3340 


tW 1030 K-l.NlR 

AIS 

520 

3341 

1U30 

BMATCJ.KI- AHATUtKI 

Ata 

530 

3342 

10*0 

CONTINOF 

Aia 

540 

3343 

C 


A18 

550 

3344 


CALL DMATINIBMAT. NOR, DELTA) 

AIS 

560 

3345 

C 


A18 

5T0 

3346 


on 1070 Kb i,nqk 

Aia 

580 

3347 


DO 1060 JbI.NQR 

Aia 

590 

3348 


CMAHJ,KI= 0.0 

MS 

600 

3349 


00 1050 L=l,NOR 

Aie 

610 

3350 

lOSO 

C9AT(J.K)b CNAT(J,KI ’ AHAT (J,L1 «BHAT( L.Kl 

AIS 

620 

3351 

lOfcO 

COMT INUE 

AIS 

630 

3352 

1070 

CONTINUE 

Aia 

640 

3353 

C 


AIS 

650 

3354 


CALL PAGE 

Aia 

660 

3355 


WRITE 16,1020) HAPATIJ,KI ,Jb|,NGRI ,K°1,N0R» 

Aie 

6T0 

3356 


WRITE 16,1010) 

Aia 

680 

3357 


WRITE (6, 1020)1 (BPATIJ,K) ,J*1.NCRI ,K*1.N0R) 

AIS 

690 

3358 


WRITE 16,1010) 

AIB 

TOO 

3359 


HR ITE (6,102011 (CRATI J,KI ,Jbi ,N0RI . Kb 1 , W3R) 

Aia 

710 

3360 


WRITE <6,10101 

Aie 

720 

3361 


WRITE <6,1010) 

A18 

730 

3362 


WRITE (6,1020)DELT4 

A18 

740 

3363 


STOP 

Aia 

750 

3364 


END 

A18 

760 

3365 


7 

FDR B01,B0l 

SOI 

10 

3366 

C 


SOI 

20 

3367 

c 


SOI 

30 

3368 

c 


SOI 

60 

3369 

c 

* MAIN ROUTINE WING /WING LIFT PROGRAH H AO lOB /REV 1 SEO 15 MARCH 71 

*601 

50 

3370 

c 


SOL 

60 

3371 

c 

• THEORY AND PROGRAK DEVELOPED BY ANTULIO V. COHCZ, STAFF ENGINEER 

* SOI 

70 

3372 

c 

« TRW SYSTEMS GROUP, EMVtStON OF TRW INC., HOUSTON, TEXAS - 77058 

* 801 

BO 

3373 

c 

• VERSION 2 ROUTINE (DOUBLE PRECI SSION-LANGLEV NATINV SUBROUTINE) 

• SOI 

90 

337* 

c 


SOI 

100 

3375 

c 

• TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG. 72 

• BOl 

110 

3376 

c 

■* PROGRAM DEVELOPED BY A. V. GOMEZ <TRW SYSTEMS) ON MARCH-MAv 1971 

• BOl 

120 

3377 

c 


601 

130 

3378 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKKXKXXXXXXXKXXXXXXXXXXXXXKKXXXKXXXXBOl 

140 

3379 

c 


SOI 

150 

3380 


REAL MACHN(IO) 

801 

160 

33B1 


DIMENSION C0MHTS<62) 

SOI 

170 

33P2 


DIMENSION YSPAN(62) 

BOl 

ISO 

3383 


DIMENSION WCLI 21I,ALFA(20) ,HE1GHT110) 

BOl 

190 

338* 


DIMENSION FLAPOIiai, AILRN0(2,10I 

BOl 

200 

3365 


DIMENSION FLAPDJIlOl, AILDJ(2,10) 

BDl 

210 

3386 

c 


BOl 

220 

3387 


COMMON/OATAOO/NSTL ,ALFAO ,CH4K ,ZHD ,FL APDX , A 1 LROX I 2) 

BOl 

230 

3388 


* ,T1TLE(16I .ST0REI16) 

BOl 

260 

3389 

c 


BOl 

250 

3390 


COMHON/DATAOl/Kl K .KOUT ,KTl ,KT2 ,LINEX pLINES 

BOl 

260 

3391 

c 


BOl 

270 

3392 


C0MHON/D4TA02/IELCU5) .EXECKUSl ,RAD ,PIE 

SOI 

280 

3393 

c 


BOl 

290 

339* 


COMMON/DATA03/NYS , NC S .XOCPEF , X 1 10 ) .YIIOI ,Z(1(H ,EllO) 

SOI 

300 

3395 


* ,C(10I ,Z0C(10 ,101 ,XOCUO) 

BOl 

310 

3396 

c 


BOl 

320 

3397 


COMMON /06TA06/YFLAP1,YF LA P2 ,FLAPC 

BOl 

330 

3398 


* ,YAILRN,AI LRNC,WSMOTH 

BOl 

360 

3399 

c 


SOI 

350 

3*00 


C0MM0N/nATA06/YFEll,rFFI2,YFF21,YFF22,VFF3l, YFF32,0£LTf 1.DELTF2 

SOI 

360 

3*01 


• ,NQFLAP,NOAILR 

BOl 

370 

3*02 

c 


BOl 

380 

3*03 


C0MMON/DATA07/LFLAP,L0RAG ,CUTOF I.CUT0F2 

601 

390 

3*0* 

c 


BOl 

600 

3*05 


EQUIVALENCE (tlNK.LlNFX) .INSS.NVS) , I XCCR, XQCREF) 

BOi 

610 

3*06 


EQUIVALENCE I WFL API, VF LAP 1 ) , 1 WF LAP2 , YFL AP2 ) . 1 WFL APS , Y A1 LPfl 1 

BOl 

6Z0 

3*07 


EQUIVALENCE IFLAPOJ ,FLAPD ) , I AI LOJ , AI LRND) 

601 

*30 

3*08 

c 


BOl 

660 

3*09 

c 


BOl 

*50 

3*10 


NAMEL IST/INPUT/ KOUT, KTl , KT2, KT3, LINX, CQLQCP, 

BOl 

*60 

3*11 


1 CUTOFl, CUT0F2, LFLAP, LDRAG, PMECF, DELALF, 

BOl 

*70 

3*12 


2 NSS, NCS, X, Y, Z, E, C, XOC , ZOC, XCCR, 

BOl 

*80 

3*13 


3 wFLAPI,WFLAP2,WFLAP3,FLAPC, HSPOTH, YSPAN, 

BOt 

*90 

3*1* 


6 NJOB, NJOBL, ALFA, MACHN, HEIGHT, FLAPOJ, AltOJ, WCL. CU>=ANF, 

BOl 

500 

3*15 


5 IFLG 

BOI 

510 

3*16 

c 


BOl 

520 

3*17 


DATA TEST/6H tENDJ/ 

BOl 

530 

3*16 


DATA NJOB/1/, NJOBL/20/, ALFA/20*0.0/ 

BOl 

5*0 

3*19 


DATA WCL/1.0. -C. 6, -0.3, -0.2, -0.1. 0.0. 0.1, 0.2, 0.3, 0.6, 0,5, 0.6, 

BOl 

550 

3*20 


* 0.8,0.9,l,0,l.lpl.2pl.3,l,6.1.5,1.6/ 

BOl 

560 

3*21 


DATA MACHN/10*0.0/, HEIGHT/10410000,0/ 

BOl 

570 

3622 


DATA A ILRND/2040.0/, FLAPD/10*0.0/ 

BOl 

580 

3*23 


DATA PMECF/1,0/, COLOC P/0. 75/ , CLEANF/0.0035 / , OELALF/1.0/ 

BOl 

590 

3*2* 

c 


BOl 

60D 

3*25 

c 


601 

610 

3*26 


1000 FORMAT! 13A6.A2) 

eol 

620 

3*27 

c 


BOl 

630 

3*26 


lOlO FOPMATI // , 15X,16H*4** JOB TIK£=,16,16H / ELAPSED TIME=,I6, 

BOl 

6*0 

3*29 


1 ITH / NO. PLOT FILES'. 1 6, 35H / I SURF EXEC. VERSION 6-18-72 

eol 

650 

3*30 
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2 //, l5X,'V7t2H** 1 ,/f 15X,A7{2H**1 > 

801 

660 

3631 

c 

601 

670 

3632 

1020 FOlit'ATUHl ,10X, 35H*»** JHHS INPUT LI ST-CONT I NUED ••••,/, l< 1 

601 

690 

3633 

1030 FORMAT! IX, 13A6,A2I 

601 

690 

3636 

lOAO FORMAT! IX, 11U7 ICT ! SURF ) 

601 

700 

3635 

c 

601 

710 

3636 

10*^0 FORMAT! IHl ,///,///, 2PX, 

80 1 

720 

3637 

1 53HSUBS0NIC-FLUk LIFTING SURFACE ANALYSIS PROGRAM HAO 106, 7 /, 37X , 

801 

730 

3638 

2 36HTRW SYSTEMS INC,, HOUSTON OPERAT I ONS, 77 , AAX , 

601 

760 

3639 

J 22 HHOUSTnN, TEXAS ! 7705 B 1 , /// ,16 X, 

801 

750 

3660 

A 25H**** JOBS INPUT LIST •♦*♦,/, IX 1 

601 

760 

3661 

c 

801 

770 

3662 

r 

801 

780 

3663 

C yxXXXXXXXXXXXXXXKXXXKXXXXXXXXXXXXXXKXXKXXKKXXXXKXXXKKXXKXXXXXXXXXXSOI 

790 

3666 

c 

BOl 

800 

3665 

c 

601 

810 

3666 

CALL BLXOAT 

601 

820 

3667 

RFUINO XTl 

HOI 

830 

366 8 

MRITE !KOUT,1050J 

601 

860 

3669 

MR ITE IKOUT, 10501 

BOl 

850 

3650 

MR ITF ! KOUT, 1OA01 

60 1 

860 

3651 

LINfS= 15 

BOl 

9 70 

3652 

1060 READ IXIN, lOOOl I STORE 1 n ,1=1 ,1A) 

BOl 

860 

3653 

MRITE IKT 1,10001! STORE! I > ,I=I,1A> 

BOl 

890 

3656 

IF !L1NEX-LINESI 1070,1080,1060 

BOl 

900 

3655 

1070 MRITE IK3UT, 10201 

BOl 

910 

3655 

LINES= 3 

BOl 

920 

3657 

lOPO L INFS= L INFS+1 

801 

930 

3656 

MR ITE 1 KQUT, 1030 M STORE II 1 ,I=1,1A» 

801 

960 

3659 

C 

no I 

950 

3660 

IF 1 STORE 1 U.NE . TESTI CO TO 1050 

801 

950 

3661 

END FILE KTl 

BOl 

970 

3662 

REW INI> KTl 

801 

980 

3663 

WRITF IKOUTtlOAOl 

801 

990 

3666 

C 

901 

1000 

3665 

NCOMT=- 1 

801 

1010 

3666 

NCALCP — 1 

BOl 

1020 

366 7 

I SUM = 0.0 

BOl 

1030 

366 B 

CALL RESET 

BOl 

1060 

3669 

C 

801 

1050 

3670 

r 

BOl 

1060 

3671 

lORO REAC !KT1, lOOOH TITLE! n ,1=1, lAI 

601 

10 70 

3672 

IFITITLE! 1 l.EO.TESTl CALL EXIT 

BOl 

1080 

3673 

IF (NCUHTt 1100,1100,1110 

BOl 

1090 

3676 

1100 READ IKTl, lOOOHCOMMTSI I 1 ,I =1 ,A21 

BOl 

llOD 

3675 

1110 NCOMT= 1 

801 

lllO 

36 76 

READ (KTl, INPUTI 

601 

1120 

3677 

ALFAO= l.OFUO 

BOl 

1130 

3678 

ZHO = l.OETlO 

BOl 

1160 

36 79 

FXFCK! 101= r.LEANF 

801 

1150 

3660 

EXECK! ll»= CQLOCP 

BOl 

1160 

3661 

FXECK! 121= DELALF 

BOl 

1170 

3682 

EXECK! 131= PMECF 

601 

liao 

3683 

IPLOTK* IFLG112I * IFLG!13I ♦ IFLC!1A> - 1 

BOl 

1190 

3686 

C 

HOI 

1200 

3685 

IF !NCALCP) 1120, 1120, llAC 

601 

1210 

3686 

1120 NCALCP= 1 

901 

1220 

3687 

IF !IPLOTk) 1160,1130,1130 

601 

1230 

36 68 

1130 REMIND KT2 

BOl 

1260 

3689 

IFLGI 151= 0 

901 

1250 

3690 

1160 CONTINUE 

801 

1260 

3691 

C 

BOl 

12 70 

3692 

C 

HOI 

1280 

3693 

CALL PAGE 

BOl 

1290 

3696 

MRITE (K.7UT, INPUTI 

801 

1300 

3695 

C 

BOl 

1310 

3696 

ITEST=70-I IFLGI 61* IFLGI 31 I/I2-IFLCUI 1 

BOl 

1320 

3697 

IF IITEST) 1150,1160.1160 

901 

1330 

369 6 

1150 IFLGI3I= 70*(2-IFLGIlM/(FLCI5l 

BOl 

1360 

3699 

1160 IFLGX3= 2l*!2/IIFLGUI*n 1 

BOl 

1350 

3500 

IF 1 IFLGX3-IFLG! 311 1 1 70 , 1 1 80. 1 IflO 

BOl 

1360 

3501 

1170 IFLCI3I= IFLGX3 

601 

1370 

3502 

llfiO CONTINUE 

BOl 

1380 

3503 

C 

601 

1390 

3506 

AILRDxm = AILRAD!l,ll T A1LPNDI1.2I 

901 

1600 

3505 

AILRDXI2I = AILRN0I2,1> ♦ AILRN0(2,2I 

BOl 

1610 

3506 

Fl APOX= FLAPOIll ♦ FLAPn!2> 

901 

1620 

3507 

C 

601 

1630 

350B 

N3AILR = 0 

601 

1640 

3509 

N0FLAP= 0 

HOI 

1650 

3510 

IFLC! 11=0 

BOl 

1660 

3511 

UTEST= A0S( AILRCXm - AURDXI2I I -0.5 

BOl 

1670 

3512 

C 

SOI 

1680 

3513 

IF (UTEST) 1200,1200,1190 

BOl 

1690 

3516 

U90 IFLG! 11=1 

801 

1500 

3515 

N0A1LP= 2 

BOl 

1510 

3516 

1200 IF IFlAPDXI 1210,1220,1210 

601 

1520 

3517 

1210 NllFLAP = 2 

BOl 

1530 

351 0 

1220 NnfLPX= NJFLAP ♦ NOAILP 

601 

1560 

3519 

IF INOFLPXI 1290, 1290,1230 

BOl 

1550 

3520 

1230 IF (irLGlSIl 126C, 1260, 1250 

BOl 

1560 

3521 

1260 IFLC!5I= 1 

601 

1570 

3522 

1250 IF I1FICI6I-U 1260,126C,1270 

801 

1580 

3523 

1260 1FLG!6»= 2 

BOl 

1590 

3526 

1270 IF IIFLGI21-5) 1290,1280,1290 

BOl 

1600 

3525 

1260 IFl G! 21 = 6 

BOl 

1610 

3526 

1290 CDNTINUF 

BOl 

1620 

3527 

C 

801 

1630 

3526 

A1LRDX1 1) > 0,0 

601 

1660 

3529 

AILROKI 21 =0.0 

BOl 

1650 

3530 

FLAP0X= 0.0 

001 

1660 

3531 

NjnBXs NJORl+1 

901 

1670 

3532 

C 

801 

1580 

3533 

C 

801 

1590 

3536 

call LOFTIVSPANl 

BOl 

1700 

3535 

C 

BOl 

1710 

3536 
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c 


BOl 

IT20 

3537 


no 1360 N'l.NJOB 

BOl 

1730 

3538 

c 


801 

1740 

3535 


ALfiO- ALFACNl 

BOl 

1750 

3540 


MEIGT» HFlGHTtNJ 

BOl 

1760 

3541 


4LfA0= ALfAO 

BOl 

1770 

3542 


IHO - HFIGT 

801 

1780 

3543 


CMAK * 0.0 

BOl 

1750 

3544 


eXECKIU= 1.0 

eol 

IBOO 

3545 


IF »'<ACHMINI-0.55» 1300. 1 300«13 10 

BOl 

IBIO 

3546 

1300 

CMAK = MACHNINl 

BOl 

1820 

3547 


EXKCKm= SQRTI l.0-CHAK**2l 

BOl 

1830 

3548 

1310 

PLAPOX^ FLAPOINI 

BOl 

1840 

3545 


AILPnxm>= AILANOdtKI 

BOl 

1850 

3550 


AU.ROX42)= AILRND(2,Nt 

BOl 

I860 

3551 

C 


BOl 

1870 

3552 


CALL OLIFTIALFAD.HEIGTI 

001 

1880 

3553 

c 


BOl 

1B90 

3554 

c 


BOl 

1500 

3555 


IF lIPLGIBI-n 1330,1320,1320 

BOl 

1510 

3556 

1320 

CALL DL INERI ALFAC.HFIGT,ALFA,UCL,NJOBXt 

BOl 

1520 

3557 

1330 

CONTINUE 

BOl 

1530 

3558 

C 


BOl 

1540 

3555 


CALL TIMFI IMS! 

BOl 

1550 

3560 


IS= IMS/IOOO 

SOI 

1560 

3561 


ISJD= IS- I SUM 

BOl 

1570 

3562 


ISUM= IS 

BOl 

1580 

3563 

C 


BOl 

1950 

3564 


L INES= L INES *6 

BOl 

2000 

3565 


IF ILINEX-LINES) 1340,1350,1350 

BOl 

2010 

3566 

1340 

CALL PAGE 

BOl 

2020 

3567 

1350 

WR ITE <KOUT,1010nSJB,I5,IFLGI15» 

BOl 

2030 

3568 


LINES- LINES ♦ LINEX 

BOl 

2040 

3565 

C 


BOl 

2050 

3570 

1350 

CONT INUF 

BOl 

2060 

3571 

C 


601 

2070 

3572 


GO TO lORO 

BOl 

20 BO 

3573 

c 


801 

2050 

3574 

c 


BOl 

2100 

3575 


END 

BOl 

2110 

3576 


V 

FOR R02,B02 

B02 

10 

3577 

C 


BO 2 

20 

3578 

c 


B02 

30 

3575 

c 


B02 

40 

3500 


SUBROUTINE BLKOAT 

BO 2 

50 

3581 

c 


002 

60 

3562 

c 

* TRH HULTIPLE-SLRFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG. 72 

*BOZ 

70 

3583 

c 

* PROGRAM DFVELUPED RY A. V. GONE/ ITRN SYSTEMS) ON MARCH-MAY 19T1 

• 802 

00 

3584 

c 


B02 

50 

3585 

c 

XXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKKXXXXXXXXKXXXXXKKXXXXXXXXXe02 

100 

35 B6 

c 


002 

110 

3507 


COMHON/DATAQO/NSTL ,ALFAQ ,C MAK ,ZHO ,FLAPDX, AILRDX12I 

802 

120 

3568 


* ,TITLEI14I ,STnREI14> 

BO 2 

130 

3589 

c 

802 

140 

3590 


COMHON/OATAOI/KIN ,KOUT ,KTl ,KT2 , LINEX .LINES 

B02 

150 

3591 

c 

002 

160 

3592 


C0«MnN/DATA02/IFLG(l5) ,FXECR(15» ,RAO .PIE 

002 

170 

3553 

c 

002 

ISO 

3554 


COMMON /DA TA03/NYS ,NCS ,KOC REF, XI 10 I .YIIO) ,2(10) .EIIOI 

BD2 

190 

355 5 


* tCllOl .ZOCIIO .10) ,XOC(10) 

B02 

200 

3596 

c 

802 

210 

3597 


CDMMnN/OATAOA/YFLAPl, YFLAP2,FLAPC 

BO 2 

220 

3590 


* . , YAtLRN,AILRNC,WSMCTH 

BO 2 

230 

3559 

E 

B02 

240 

3600 


C0MMON/DATAQ5/WING0115) ,FY142,10) ,EC|42,10) ,ES142,10I 

B02 

250 

3601 


•.EYEIIO) .FLFIIO) .ETEIIO) .EHEflO) ,EGI42,10) 

B02 

260 

3602 


M.ENI 42. 10,61 ,EVI42,10,6) , VVI NDX (42 , 10 ,3 1 

002 

270 

3603 

c 

302 

280 

3604 


CDMMON/0ATA06/YFFII ,YFFl2,YFF2l,YFF22,YFF31,YFf32,0ELTfl,DELTE2 

BO 2 

25 0 

3605 


* , NOFLAP, NOAILR 

602 

300 

3606 

c 


002 

310 

3607 


COMMON/DATAOT/LFLAP.LOPAG .CUTOF l,C0T0F2 

002 

320 

3600 

c 

BO 2 

330 

3605 

c 


B02 

340 

3610 


DATA NSTU/l/, ALFAO/0.0/, CMAK/0.0/, ZHO/IOOOO.O/ , FLAPDX/0 .0/ , 

002 

350 

3611 


• A ILRDX/2P0.0Z 

BO 2 

360 

3612 

c 


B02 

370 

3613 


DATA KIN/5/, K0L1/6/, KTl/1/, KT2/B/, LINEX/56/, LINES/0/ 

B02 

330 

3614 

c 

B02 

390 

3615 


DATA IFLG/0,0, 10,0,0,1 ,0,0. 0,1. 5*0/, EXECK/15*0.0/, RAO/57 .25578/ 

,802 

400 

3616 


• PlE/3. 14155/ 

B02 

410 

3617 

c 

BO 2 

420 

361 B 


DATA N YS/2/.NC S/2 /,XOC REF /0.25/,X/l 0*0. O/.V/O. 0,1 00.0,8*1 000.0/, 

BO 2 

430 

3615 


* Z/10*0.0/,F/ 10* 0.0/,C/10*100.0/,ZaC/lOO*0.0/,XDC/0. 0,1.0, 0*0.0/ 

BO 2 

440 

3620 

c 


B02 

450 

3621 


DATA VFLAPl/0.0/, YFLAP2/0.6/, FLAPC/0.3/, YAILRN/1.3/, AtLRNC/. 3/002 

460 

3622 


♦, WSMOTM/0.20/ 

BO 2 

4 70 

3623 

c 


B02 

4B0 

3624 


DATA LFLAP/0/, LORAG/O/, CUTOFl /O.OOOl / , CUT OF2/0 .0029/ 

B02 

450 

3625 

c 


B02 

500 

3626 

c 

XXXXXXXXKXXXXXXX»XXXXXXXXXXXXKXKXXXXXXXXXXXXKXXXXXXKXXXXXKXXXXXXXXB02 

510 

362 7 

c 


002 

520 

3620 


RETURN 

B02 

530 

3629 

c 

802 

540 

3630 


END 

B02 

550 

3631 


V FOR 

fl03,B03 

BO 3 

10 

3632 

c 

BOB 

20 

3633 

C 


BOB 

30 

3634 

c 


BO 3 

40 

3635 


SUBROUTINE L0FT4VSPAN1 

303 

50 

3636 
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c 



R03 

60 

3637 

c » tum multiple-surface vortex-lattice program 

- REVISED 

6 AUG. 72 

• 603 

70 

363R 

C * PROGRAM DEVELOPED »T A.V.GDHEI ITEM SYSTEMS) 

ON MARCH-MAY 1971 

• B03 

00 

3639 

C 



903 

RO 

3640 

C XXXXXXXXXXXXXXXXK*XKXKXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXKXXXXXX603 

100 

3641 

C 



803 

110 

3642 

OtHrMSinN XV< 101 >XN( 101 pXCIlOl 



80 3 

120 

3643 

OIMFNSIOM YSPANIA2) 



803 

130 

3644 

DIMENSION CnSlI 3>*C0S2OI ,COS3(3) 



803 

140 

3645 

DIMENSION ZOCVllC) 



803 

150 

3646 

C 



803 

160 

3647 

COMMON /OAT AOl /KIN .KOUT tKTl »KT2 pLlNEX .LINES 


803 

170 

3648 

C 



903 

leo 

3649 

COMMON/OATA02/1FLCI 15) ,FXECK(15I ,RAD 

,PIE 


BO 3 

190 

3650 

C 



903 

200 

3651 

COMMON /0ATAO3/NYS , NC S .XQCREF.xUOl ,YI 10 ) .ZIIOI , 

E! 10) 

603 

210 

3652 

* >C<10) .ZOCIIO .10) .XOCIIOI 



BO 3 

220 

3653 

C 



BO 3 

230 

36 54 

COMMON /OA T AOA/ Vf LAP 1.VFLAP2, FLA PC 



903 

240 

3655 

• , YAILRN.AI LRNC.MSMOTH 



903 

25 0 

3656 

C 



903 

260 

3657 

CUMHON/OATAOS/WINGDIISI ,FY(A2,10» .EC(42,10) , 

ESI 42. 10) 

BO 3 

2 70 

3658 

♦ .EYFUO* .ELEIIO) .ETEIlOl .EHEIIO) , 

FG(42,iOI 

B03 

2S0 

3659 

». ENI 42. 10.6 > .EV(42.10|6) . VVI NOX 142 . 10 .3 ) 



BO 3 

290 

3660 

C 



803 

300 

3661 

COMMON /0ATA06/YFF11 .VFF12.YFF21 , YFF22 , VFF3 I , VFF32 , DELTFl 

•DELTF2 

903 

310 

3662 

* , NOFLAP, NOAI LR 



903 

320 

3663 

C 



903 

330 

3664 

C 



80 3 

340 

3665 

laOfl FORMATI IX, //, 1 Xt 



BO 3 

350 

3666 

c 



803 

360 

3667 

1010 FnRMAT(^3X,13Hri[NC GE OME TR Y ,/ ,53X , 13 < IH*) ,/ //, 

IX, 


603 

370 

3668 

1 60H SPAN ROOT TIP ROOT 

TIP 

AREA . 

803 

3 80 

3669 

2 59H ASPECT HRAN MCC Y9AR 

XRAP 

zaAR, / 

, 803 

390 

3670 

361H CHORD CHORD TMIST 

THtST 

, 

803 

400 

3671 

4 60E KATin CHORD IMACl IMGC) 

IMGC) 

IMGC 1 , 

/B03 

410 

3672 

5/,lX,3Fl0.3,2F10.4,F10.2,F10.4,SF10.3,//.lX, 



003 

420 

3673 

fc 60M FLAP FLAP FLAP AILRN 

AILRN 

AILRN, 

003 

430 

36 74 

7 60H OIHEO SWEEP NO. SPAN NC.SPAN 

NO. CHORD 

NO. CHORD/ 

, 90 3 

440 

3675 

8MH SPANl SPAN2 CHORD SPANl 

SPAN2 

CHORD, 

803 

450 

3676 

9 6 OF l/4«CC 1/AMCC VORTICES 01 SCONT 

VORTICES 

OISCONT/ 

, 903 

460 

3677 

•/,IK,2I2F10.3,F1C.4»,2F10.3,17,3IIO,///,1X I 



80 3 

4 70 

3678 

C 



803 

490 

3679 

1020 FC1RMATI IX) 



803 

4 90 

3680 

C 



90 3 

500 

3681 

1030 FQRMATI IX, 



903 

510 

3682 

1 60H 2Y/B Y XLF Kll/4) 

XHE 

XT E , 

80 3 

920 

3683 

2 60H Z F SWEEP C/4 DIHED 

C 

CF 

903 

530 

3684 

3 /.IX) 



903 

540 

3665 

1040 FORMAT! IK, 12F1C.3 ) 



803 

550 

36 86 

c 



803 

560 

3687 

1050 FQRMATI21X,50H XA 1 1 1 /C XAI21/C XA(3)/C 

XAI41/C 

XAI5 I/C, 

903 

570 

3688 

1 50H XA(6)/C XA|7)/C XA(8)/C XAI9)/C 

XA! I0i/C,//,Z1X, 

80 3 

560 

3689 

2 IOFIO.4,///, IX, 40H Y 2Y/H , 

ZAII )/C, 

Z A(2)/C, 

803 

590 

3690 

3 60H ZA<3)/C ZA(4)/C ZA(5)/C 1A(6)/C 

Z A< 71/C 

ZAI 8 1/C . 

B03 

600 

3691 

4 20H ZAI91/C ZAI 10J/C,/,1X ) 



903 

610 

3692 

1060 FORMAT! 1X.12F10.4 ) 



903 

620 

3693 

C 



903 

630 

3694 

1070 FORMAT! 3X,1HJ, 2X4 IHK , 5X , 1 H Y,9X,2HDY , 9 X ,2HDC , 8X 

,2H0S,/, IX 

) 

903 

640 

3695 

1000 FORMAT! IX. 213, 12I1PE10. 3) ) 



803 

650 

3696 

C 



603 

660 

3697 

1090 F0RMATI3X, IHJ , 2X , IHK, 5X , 2H XV, 9X ,2H YV , 0 X .2 HZ V .9 X , 3 HI XV , 7X 

,3H1YV,7X 

. 803 

670 

3698 

* 3HlZV,7X,2HXN,9X,2HYN,fiX,2HZN,8K,3HlXN,7X,3HlVN,7X,3HlZN,/,lX) 

003 

680 

3699 

1100 FORMAT! IK, 213, 12UPE10.3) I 



903 

690 

3700 

C 



BO 3 

700 

3701 

1110 FQRMATI 5K, 1H9 , 9X , 2HCB . 9X , 2HC T , 8 X,2HE R ,8 X,2HE T , 

ex,lHS,9X, 

2HAR, ax. 

803 

710 

3702 

* 2HMC.8X, 3HMGC, 6>,4MYMCC , 6X ,4HKMDC ,6X,4 HZMGC ,/ 

, IX) 


90 3 

720 

3703 

1120 FORMAT! IX, 12F 10. 2 ) 



80 3 

730 

3704 

C 



80 3 

740 

3705 

1130 FORMAT! IX, /, IX, 14H<E0F PLOT FILE, 13, IH) ) 



90 3 

750 

3706 

C 



BOB 

760 

3707 

C XXXXKKXXXXXXXXXXXXXXXKXXXXXXXXXXXXKXXXXXXXXXXKXXKXXXXXXXXXXXKXXKXXH03 

770 

3709 

C 



90 3 

700 

3709 

C 



803 

790 

3710 

C 



90 3 

900 

3711 

C * FILL )N NYS ♦ 1 SPACE • 



BO 3 

810 

3712 

C 



903 

020 

3713 

SPAN= 2.a*YINYS) 



90 3 

830 

3714 

MINGO! 1! = SPAN 



803 

940 

3715 

MINGO! 2) = CIl) 



803 

950 

3716 

MINGO! 3) - CINVS) 



003 

860 

3717 

MINGO! 4) - Ell) 



80 3 

970 

3710 

MINGD! 5) = E1NYS) 



BO 3 

890 

3719 

C 



803 

990 

3720 

9LITU= SPAN/2.0 



803 

900 

3721 

0£lTFl= wSMOT)) 



803 

910 

3722 

0ELTF2= mSMOTH 



80 3 

920 

3723 

C 



80 3 

930 

3724 

IF (WSMOTH-I.O) 1140,1150.1150 



903 

940 

3725 

llAO DELTFI= 90TU»D6LTF1 



90 3 

950 

3726 

0£LTF2= 80TU*DEETF2 



903 

96 0 

372 7 

1150 CDNTINUF 



903 

970 

3726 

C 



803 

990 

3729 

YFfll - YFLAPI 



B03 

990 

37 30 

YFF21 = YFLAP2 



803 

1000 

3731 

TFF31 = YARRN 



903 

1010 

3732 

C 



90 3 

1020 

3733 

IF I YFLAP2-1.01) 1160,1170,1170 



903 

1030 

3734 

1160 YFFll = YFFIl»BOTL 



80 3 

1040 

3735 

VFF21 = YFF2l*B0Tl; 



803 

1050 

3736 

YFF31 = YFF31*aOTL 



803 

1060 

3737 

1170 YFFll « yFFII - 0.5*nELTFl 



803 

1070 

3738 

VFF21 = YFF21 - C.5*0ELTF2 



BO 3 

1000 

3739 

VFF31 = YFE31 - C.5*0ELTF2 



803 

1090 

3740 

C 



803 

1100 

3741 

VFF12= YfFll * OELTFl 



B03 

1110 

3742 
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VFF22= VFF2I ♦ DELTF2 

803 1120 

3TA3 

VFf32 = VfF3l ♦ 0ELTF2 

BO 3 1130 

37AA 

C 

803 llAO 

3TA9 

NV1= NYS-1 

803 1190 

37A6 

NY2’ MYS+l 

B03 1160 

3TA7 

y<NV2J» YfNVSJ *■ 0 . 20 *IYlNYSt-YtNYin 

B03 1170 

3TA8 

RAT=I Y<NY2»-Y«NY1H/IY<NYSI-Y(NYIH 

503 1180 

37 A9 

X«NY2>= XINYSI ♦ B4T*t X(NYS» - XINYDt 

BOS 1190 

3750 

Z<NY2I- 2(NYSJ ♦ RAT*{ Z (NYS> - ZlNYllI 

603 1200 

3751 

E4NY2)- F(NYS) ♦ BAT*t f«NYS» *- E4NYlt> 

603 1210 

3752 

C<NV2)= CINYSJ ♦ RAT*| C 4NYS> - CINYDl 

603 1220 

3753 

Dn )180 L>liNCS 

603 1230 

375A 

liaO ZDC(L,NY2I= ZOCIL,NYS» ♦ RAT*! ZOCU.NYSI - ZOC(LtNVlt ) 

BOS 12A0 

3755 

c 

603 1290 

3796 

L= NCS 

B03 1260 

3757 

Ll= L-l 

BOS 12T0 

3758 

L2» t*l 

803 1280 

3799 

NCSPl= L2 

803 1290 

3760 

X0CCL2I- XOCCLI ♦ 0.lO*(XOC4U-XOCai>l 

BO 3 1300 

3761 

RAT= 1 XOC4L2»-XnC4 U } ft XDC tLl-XOC( LI » i 

803 1310 

3762 

00 1 190 N= I.NY2 

BOS 1320 

3763 

1190 ZOC4L2rN*= Z0C4LtNI ♦ RAT*4 ZOC (Lt N) -ZOCtLl , N) 1 

a03 1330 

3764 

c 

803 13A0 

3769 

c 

BOS 1350 

3766 

c 

BOS 1360 

3767 

C • CALCUCATf SPA^ FUNCTIONS * 

803 1370 

3768 

C 

603 1380 

3769 

NSPV= IFL6I3) 

803 1390 

3770 

NSPS= NSPV 1 

803 lAOO 

3771 

NOIS" 1FLC42I 

803 lAlO 

3772 

IFLA&= rFLOCAl 

803 1A20 

3773 

C 

BOS 1430 

3774 

CALL SP49I CIFLAGtNSPS.NOtStSPAN, YSPANt 

B03 lAAO 

3779 

C 

803 1A90 

3776 

no 1220 L= l,NY2 

B03 1A60 

3777 

eyF4ll= Y(L( 

B03 IA70 

3778 

FLECLI- X(LI - XOCREF*C<L» 

803 1A80 

3779 

ETEJLI- ELFlLt ♦ C4L1 

803 IA90 

3760 

CF = FLAPC 

B03 1900 

3781 

IF (FLAPC-0»8) I200fl200»1210 

60 3 1510 

3782 

1200 CF = CF*C(L» 

803 1520 

3783 

1210 EHE4L (= ETF(L> - CF 

603 1530 

3784 

1220 CONTINUE 

603 ISAO 

3705 

c 

603 1950 

3786 

c 

803 I960 

3787 

c 

603 1570 

3788 

c 

803 1980 

3789 

C * CALCULATE CHORD FUNCTIONS * 

B03 1990 

3790 

c 

803 1600 

3791 

IFLAG= IFLGI7} 

B03 1610 

3792 

NCV = IFLCIt.) 

803 1620 

3793 

NDIS « TFLGI5I 

803 1630 

3794 

NOFLPX =: NOFLAP * NOAILR 

803 16A0 

3799 

c 

803 1690 

3796 

IF INOFLPX) 12A0.12A0.1230 

BOS 1660 

3797 

1230 NCV - NCV -1 

803 1670 

3798 

N01S= NDlS-l 

803 1680 

3799 

12A0 CONTINUE 

B03 1690 

3800 

c 

803 1700 

3801 

CALL CHOROIUFLAG.NCV.NDI S. XV.XN.XCl 

503 1710 

3802 

C 

803 1720 

3803 

no 1280 J=l.NSPS 

503 1730 

3804 

C 

BO 3 17A0 

3805 

YF= VSPANIJI 

803 1750 

3806 

C 

803 1760 

3807 

CALL CHDROTI YF .XLE.XCOA.XTF.XHE.CH.CFl 

803 1770 

3808 

c 

803 1780 

3009 

IF INOFLPXl 1260,1260,1290 

803 1790 

3810 

1250 CW= CU-CF 

803 1800 

3811 

1260 CONTINUE 

603 1810 

3812 

C 

803 1820 

3813 

00 12T0 L>l,NCV 

803 18 30 

3814 

ECIJ.L)> XLE ♦ XClLl*r.H 

603 ISAO 

3815 

EYt J.L >= YF 

803 1850 

3816 

EVIJ.L,1»= KLF ♦ XV1L)*CW 

803 1860 

3817 

EV1J,L,21- YF 

B03 1870 

3818 

EV<J.L,3>= 0,0 

803 1B0O 

3819 

ENIJ.L.U^ XLE ♦ XN1L)*CM 

803 1B90 

3820 

EN(J.L.2I= YF 

803 1900 

3821 

1270 ENU.L.3I= 0.0 

BOS 1910 

3822 

C 

BOS 1920 

3823 

1280 CONTINUE 

803 1930 

3824 

C 

803 19A0 

3825 

C 

803 1950 

3826 

IF INOFLPXl 1310.1310,1290 

803 I960 

3827 

1290 CONTINUE 

603 1970 

3828 

C 

B03 1980 

3629 

NCV^ NCV * 1 

803 1990 

38 3 0 

C 

B03 2000 

3831 

DO 1300 J>1,NSPS 

003 2010 

3832 

YF« YSPANt Jl 

803 2020 

3833 

c 

903 2030 

3834 

CALL CHOBDTIYF .XLE.KCOA.XTE.XME .CH.CFl 

503 20 AO 

3835 

C 

803 2050 

3836 

£YU,NCV1= VF 

BOB 2060 

3837 

EC4J,NCV1 = XTE 

803 2070 

3S38 

EVIJ,NCV,lt= XHE + 0,25*CF 

503 2080 

3839 

EVIJ,NCV,21= YF 

803 2090 

3840 

EV<J.NCV,31= 0.0 

803 2100 

3841 

EN(J,NCV,ll= XHE + 0. T5*CF 

803 2110 

3842 

EN<J.NCV,2»* YF 

803 2120 

3843 

1300 EN(J,NCV.3I> O.C 

BO 3 2130 

3B44 

C 

803 21A0 

3845 

1310 CONT INUE 

B03 2150 

3B46 

C 

B03 2160 

3847 

C 

BO 3 2170 

3848 
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NCVPl = NCV *l 

B03 2180 

3059 

C 

B03 2150 

3850 

no 1370 JsJiNSPS 

803 2200 

3051 

J2» J*1 

B03 2210 

3852 

YF= YSPANIJI 

B03 2220 

3B53 

C 

B03 2230 

3B55 

CALL CHOBOn Yf ,XLE,XCOA<XTE,KHE »C«tCF> 

003 2250 

3855 

C 

B03 2250 

3856 

IF IJ-NSPSI 1320«13A0«13A0 

803 2260 

3857 

1320 CONTINUE 

003 2270 

3856 

DO 1330 K = l,NCV 

003 2280 

3959 

1330 EYIJfKI= E YI J2fKI-EYIJ.K> 

003 2290 

3860 

13*0 CONTINUE 

803 2300 

3961 

C 

003 2310 

3962 

EV( J.NCVP 1. U = *TE 

BO 3 2320 

3863 

EVIJ.NCVPL,?) = Yf 

003 2330 

3865 

EVIJiNCVPl,3» = 0.0 

B03 2350 

3965 

ECIJ.NCVPII = 0.0 

803 2350 

3966 

C 

003 2360 

3867 

DO 1350 K-l.NCV 

003 2370 

3960 

1350 ECIJ.KI- ECU.KI-XLE 

003 2380 

3969 

DO 1360 L=2,NCV 

003 2390 

3970 

K= Nf.V *2 -L 

003 2500 

3871 

Kl= K-l 

603 2510 

3872 

1360 FCIJ.KM EC U,KI-eClJ,KlI 

003 2520 

38 73 

C 

803 2530 

39 75 

1370 CONTINUE 

803 2550 

3875 

C 

003 2550 

3976 

C 

803 2560 

3877 

DO !3<>0 3=l,N$PV 

003 2570 

3878 

J2- J*1 

003 2400 

3879 

00 13B0 K=l,NCY 

003 2550 

3880 

ECIJ.KI- 0.5*IECU,KI*EC( J2.KII 

003 2500 

3881 

13P0 eSIJ.KI- EC( J.KI*EVt J.KI 

003 2510 

3882 

13P0 CONTINUE 

003 2520 

3883 

C 

003 2530 

3885 

C 

B03 2550 

3685 

C 

803 2550 

3086 

C » CALCULATE AIRFOIL SECTION CAMBER • 

003 2560 

3887 

C » CALCULATE GEOMETRIC TWIST • 

003 2570 

3988 

C 

003 2590 

3689 

no 1580 J-UNSPS 

603 2550 

3850 

C 

603 2600 

3891 

¥F= YSPANIJI 

003 2610 

3992 

YA= ABSIVF I 

B03 2620 

3893 

C 

803 2630 

3895 

M- -1 

803 2650 

3095 

00 1520 L=2.NY2 

B03 2650 

3856 

IF (Ml 1500.1*00,1520 

003 2660 

3857 

1500 TFST= YA - YIl 1 

003 2670 

3890 

IF (TEST) 1510,1510,1520 

003 2680 

3895 

1510 M= L 

803 2690 

3500 

1520 CONTINUE 

B03 2700 

3901 

Ml- M~1 

003 2710 

3902 

IF (Mil 1530,1530,1550 

003 2720 

3903 

1530 Ml= I 

003 2730 

3905 

M- 2 

B03 2750 

3905 

1550 BAT= ( YA-V IMl 1 1 /I Y(M|-Y{NIH 

003 2750 

3906 

C 

B03 2760 

3907 

TANFP5- EIMII ♦ RAT*( E(M|-E(MI1 1 

003 2770 

3908 

TAnEpS= TANITANEPS/RADl 

003 2780 

3509 

OELTAZ= ZIMII * RAT»( 2IMI-2IM11 I 

903 2790 

3910 

C 

B03 2800 

3911 

00 1550 L=1,NCSP1 

003 2810 

3912 

1550 ZOCYILI- 20C(L,Mll ♦ RAT*( ZQCIL.MJ - ZOCIL.MII 1 

003 2820 

3913 

C 

903 2830 

3915 

CALL CHOROTIYF ,XLF,XCn5,KTF,XHE,CW,CFI 

BO 3 2850 

3515 

C 

003 2850 

3516 

XROTAT- XLE ♦ X0CREF5CW 

B03 2860 

3917 

C 

603 2870 

3518 

C 

803 2880 

3910 

DO 1560 K=l,NCV 

003 2890 

3920 

C 

903 2900 

3921 

N=-l 

B03 2910 

3922 

XTEST- EVIJ.K.n - XLE 

B03 2920 

3523 

DO 1580 L-2.NCSPI 

B03 2930 

3525 

IF INI 1560,1560,1580 

003 2950 

392 5 

1560 TEST- XTFST - XOC(LI*CM 

B03 2950 

3926 

IF (TESTI 1570,1510,1580 

B03 2560 

3927 

1570 N- L 

803 2570 

3926 

Nl-L-1 

B03 2960 

3520 

1530 CONTINUE 

003 2950 

3930 

IF (Nil 15<)0, 1551,1500 

003 3000 

3931 

1550 Nl=l 

B03 3010 

3932 

N= 2 

003 3020 

3933 

1500 HArs=(XTE5T-CW*XCC(Nll 1 / 1 XOC 1 Nl -XOCI Nl 1 I 

B03 3030 

3935 

FV(J,K,31= nCLTAZ ♦ CH*ZnCV(Nl> t ( ZOC Y IN 1 -ZDCY ( N 1 H *B ATS 

00 3 3050 

3935 

C 

003 3050 

3936 

N = - 1 

003 3060 

39 3 7 

XTFST= ENUiX.lt - XLE 

003 3070 

3538 

no 1530 1=2, NC SPl 

003 3080 

3939 

IF (Nl 1510,1510,1530 

B03 3090 

3550 

1510 TEST- XTFST - X(.K(LI*CW 

303 3100 

3551 

IF ITFSTl 1520.1620,1530 

B03 3110 

3552 

1520 N= L 

003 3120 

3953 

NI= L-1 

803 3130 

3955 

1530 CONTINUE 

803 3150 

3955 

IF (Nil 1550, 155C, 1550 

B03 3150 

3946 

1550 Nl= 1 

003 3160 

3957 

N = 2 

003 31T0 

3958 

1550 RATS- I XTEST-CW*XCC<N1H/4X0C(N)-XQC(N1 n 

003 31 BO 

3950 

FN(J,X,31= DFLTAZ + CH^ZOCVINl) + ( ZOC Y ( NI-ZOC Y ( N 1 M *R ATS 

B03 3150 

3950 

C 

003 3200 

3951 

1560 continue 

003 3210 

3952 

C 

B03 3220 

3953 

C 

B03 3230 

3955 
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evlJ^K?3*»=^*EV(fjtKi3) ♦ (EVt JtK»lJ-XftQTAT)*TANEPS 
1570 ENIJiKr3l» EN<J»Kf3J ♦ ( EM J ,K,1 1 -XSOT AT I *>7 ANEPS 
C 

1580 CONTINUE 
C 
C 

c 

C • CALCULATE UNIT VECTORS * 

C 

DO I6A0 J=l,NSPV 
JZ= J*1 
C 

no 1630 K=1,NCV 


SUMl- 0.0 
SU«2= 0.0 


00 1500 1*1*3 
M- L*3 

ENIJtK.LJ* 0.5'»I 
rat = 0.5«( 

EVIJ,K,H)= FVIJZ 
EN(J.K,M>= RAT - 
SUMl= SUN I + EVIJ 
15«0 SUH2= SUM2 * ENIJ 
SUMl= SORT! SUMl 
SUM2= S3RTI SUM2 
no 1600 L=U3 


ENIJ2.K*ll *■ ENIJ.K.LI 
EV4J2.K,U * EVIJtK.Ll 
K.Ll - EVIJ.KfLI 
ENIJ. K. LI 
,KtMI**2 
,K,MI**2 
I 
) 


1 

I 


M= L*3 

EV(J,K,M>= EVl J,K,«)/SUMl 
ENIJ*K.M|= E Nl J.K* M) /SUM2 
COSlILl* FNIJ.K.MJ 
1600C0S2ILI* -EVIJ. K. Ml 


CALL CROSP IC0SI.CCS2.C0S3I 


C 

S0M1= 0.0 
00 1610 L = l,3 

1610 SUM1“ SUMl ♦ C0S3IU**2 
SUM1= SORT! SUMl I 
no 1620 L=l.3 
M* L*3 

1620 EN(J.K,HI= C0S31LI/SUM1 


C 

1630 CONTINUE 
C 

1640 CONTINUE 
C 
C 
C 

C • WING DATA ♦ 

C 

C NINGOl II 

C UINGDI 21 * 

C MlNCDI 31 * 

C MINGDI 41 * 

C MINGOI 51 = 

C MINGOI 61 = 

C WINGOI 71 “ 

C MINGDI 81 * 

C MINGOI Rl 

C MINGDI 10) = 

C HlNGD(ll) - 

C HINGD112I = 

C WINGOI 141 * 

C 
C 

DO 1570 K=1.NCV 

6V1J.K.3I* FVIJ.K.3I ♦ (EVlJ.R.l>-XROTAT)*TANEPS 
1570 ENIJ.K.3)* FNIJ.K.31 ♦ I E Nt J . K .1 1 -XROTAT l*T ANEPS 
C 

1580 CONTINUE 
C 
C 
C 

C * CALCULATE UNIT VECTORS • 

C 

DO 1640 J=1.N5PV 
J2= J*l 
C 

DO 1630 K=l.NC V 
C 

SUMl- 0.0 
SUM2- 0.0 
DO 1590 L*1.3 

FNIJ.K.Ll* 0.5*1 ENIJ2.K.LI ENIJ. K. LI I 

r'at * 0.5*1 EVIJ2.K.LI * EVIJ.K.L) I 

EVIJ, R, Ml* EV(J2,K.LI - EVU.R.L) 

ENIJ. K, Ml* RAT - ENIJ.K.LI 
SUMl* SUMl ♦ EVtJ,K,MI**2 
1560 SUM2* SUM2 * ENIJ,K,M)**2 
SUMl* SQRTI SUMl I 

SUM2* SORT! SUM2 I 

00 1600 L*l,3 
M* L*3 

EVIJ, K, Ml- EVI J.K.MI/SUMl 
FNIJ.K.MI* ENI J,K,M)/SUM2 
COSIILI* ENIJ. X, Ml 

1600 CDS2(tl= -EVIJ, H. Ml 


SPAN 

ROOT CHORD 
TIP CHORD 

root GEOMETRIC TWIST 

TIP geometric twist 

AREA 

ASPFCT RATIO 
MEAN CHORD 

MEAN GEOMETRIC CHORD 

SPAN LOCATION OF MEAN GEOMETRIC CHORD 
XMGC. HORllONTAt MOMENT ARM TO 1/4 CHORD OF MGC 
ZMGC. VERTICAL MOMENT ARM TO 1/4 CHORD OF MGC 
SWEEP ANGLE OF 1/4 MGC 


CALL CR0SP(CnSl,CCS2.C053) 


SUMl- 0.0 
no 1610 L=l,3 

1610 SUMl* SUMl ♦ COS3ILI**2 


BO 3 3240 
B03 3250 
803 3260 
B03 3270 
e03 3280 
B03 3290 
fl03 3300 
803 3310 
803 3320 
BO 3 3330 
BO 3 3340 
B03 3350 
B03 3360 
BO 3 3370 
B03 3380 
BO 3 3390 
BO 3 3400 
B03 3410 
B03 3420 
303 3430 
BO 3 3440 
B03 3450 
003 3460 
803 3470 
803 3480 
603 3490 
B03 3500 
B03 3510 
BO 3 3520 
BO 3 3530 
B03 3540 
B03 3550 
B03 3560 
BOB 3570 
BD3 35 SO 
B03 3590 
B03 3600 
BOB 3610 
BOB 3620 
BOB 3630 
BO 3 3640 
B03 3650 
B03 3660 
B03 3670 
803 3680 
BOS 3690 
B03 3700 
903 3710 
BOS 3720 
BOB 3730 
BOB 3740 
B03 3750 
BOB 3740 
BO 3 3770 
BOS 3780 
BO 3 3790 
BO 3 3800 
BOB 3810 
B03 3820 
BOB 3BB0 
BOB 3B40 
BOB 3850 
SO 3 38 60 
BOB 3870 
SOB 3880 
B03 3890 
BOB 3900 
B03 3910 
BO 3 3920 
903 3930 
003 3940 
BOB 3950 
BOB 3960 
BOB 3970 
BOB 3980 
BD3 3990 
BOB 4000 
903 4010 
B03 4020 
603 4030 
B03 4040 
BO 3 4050 
BOB 4060 
B03 4070 
B03 4080 
BO 3 4090 
B03 4100 
B03 4110 
B03 4120 
BQ3 4130 
803 4140 
003 4150 
603 4160 
B03 4170 
BOB 4180 
303 4190 
B03 4200 
BD3 4210 
B03 4220 
803 4230 
BO 3 4240 
BO 3 4250 
BOB 4260 
603 4270 
B03 4290 
903 4290 


3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 
396 T 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 
399 3 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 
4O0B 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 
4020 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 
403B 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 
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SUM1» S3»T( SUMl 1 





603 

A300 

4061 


no 1620 L = 1.3 





60 3 

A310 

4062 


L + 3 





BO 3 

4320 

4063 

1620 

RNU.K,M|* COSJIU/SUMl 





BO 3 

4330 

4064 

C 






80 3 

4340 

4065 

1630 

CONT INUf 





803 

4350 

4066 

C 






803 

4360 

4067 

16<i0 

CONTINUE 





803 

4370 

4068 

C 






803 

43 60 

4069 

C 






BO 3 

4390 

4070 

C 






803 

4400 

4071 

C ♦ 

WING DATA ♦ 





80 3 

4410 

4072 

C 






BO 3 

4420 

40 73 

c 

UINGOl 1) = SPAN 





BO 3 

4430 

4074 

c 

WlNGDl 21 = ROOT CHORD 





BO 3 

4440 

4075 

c 

MlNGOl 31 = TIP CHORD 





DO 3 

44 50 

4076 

c 

WINGOl 6) = ROOT GEOMETRIC TwIST 





80 3 

4460 

4077 

c 

WlNGOI 51 = TIP GEOMETRIC TWIST 





BO 3 

4470 

4078 

c 

WINGOI 61 = AREA 





BO 3 

44 80 

4079 

c 

HINGOI 71 = ASPECT PATIO 





DO 3 

4490 

4080 

c 

WlNGOl Bl = MEAN CHORD 





903 

4500 

4081 

c 

WINGOI 91 = REAN GEOMETRIC CHORD 





BO 3 

4510 

4082 

c 

WINGOI 101 = SPAN LOCATION OF MEAN GEOMETRIC 

CHORD 


D03 

4520 

4083 

c 

WINGOI ill = >«GC. HORIZONTAL MOMENT 

ARM TO 

1/6 

CHORD 

OF MGC 

B03 

4530 

4084 

c 

WINGOI 121 = ZMGC, VERTICAL MOMENT 

ARM TO 

1/A 

CHORD 

Of MGC 

BO 3 

4540 

4085 

c 

WINGOI lAl = SWEEP ANCLE OF 1/6 MCC 





BO 3 

4550 

4066 

c 

WINGOI 15} = FLAP CHORD 





BD3 

4560 

4087 

c • 






803 

4570 

4088 


SOHl =0.0 





BO 3 

4580 

4099 


SUM6 = 0.0 





SO 3 

4590 

4090 


Sums = o.o 





BO 3 

4600 

4091 


SUM9 - 0.0 





803 

4610 

4092 


SUMIO - 0.0 





80 3 

4620 

4093 


SUMll = 0.0 





80 3 

4630 

4094 


SUM12 * 0.0 





803 

4640 

4095 

c 






803 

4650 

4096 


OSPAN« SPAN/200. C 





803 

4660 

4097 

c 






BO 3 

46 70 

4098 


00 1720 J=l,101 





80 3 

46 30 

4099 

c 

JM= J-1 





BO 3 

4690 

4100 






BO 3 

4700 

4101 


VA2» DSPANAFLOATUIMI 





BO 3 

4710 

4102 

c 






B03 

4720 

4103 


CALL CMOROTlrA2,*LE,XMrX2 ,XTE , XHE , CW2 ,C FI 





BO 3 

4730 

4104 

c 






BO 3 

4740 

4105 


M— 1 





803 

4750 

4106 


DO 1670 L=2,NY2 





BO 3 

4760 

4107 


IE (Ml 1660.1650,1670 





BO 3 

4770 

410B 

ibSa 

TFST= VA2-YIL1-0.COO1 





80 3 

47 80 

4109 


IF (TEST! 1660,1660,1670 





BO 3 

4790 

4110 

1660 

M=L 





B03 

4B00 

4111 


Ml= L-1 





803 

4810 

4112 

1670 

CONT INUE 





603 

4B20 

4113 


IF IMII 1680, 163(, 1690 





803 

4830 

4114 

1600 

Ml= 1 





803 

4840 

4115 


M = 2 





BO 3 

4850 

4116 

1690 

BAT= I VA2-Y(Mln/IYIMI-YIMlll 





803 

4860 

4117 

c 






803 

4870 

4118 


TANFPS= F(Mll*tEO'l-FlMlll*RAT 





803 

4880 

4119 


DFLTAZ= ZIHl}»(Z(«l-ZlMin*RAT 





603 

48 90 

4120 


nELTA2= OFLTAZ ♦ <XHGC2-XLE-X0C REf ♦CW2I ♦TANI TANFPS/RAOl 


B03 

4900 

4121 

c 

If IJMl 1710, 171C, 1700 





BO 3 

4910 

4122 






803 

4920 

4123 

c 






BO 3 

4930 

4124 

1700 

CW = 0.6*ICH2fCW1I 





BO 3 

4940 

4125 


AREA= CW*OSPAN 





803 

4950 

4126 


SUMl = SUMl ♦ OSPAN 





B03 

4960 

4127 


SUM6 = S0M6. + AREA 





003 

49 70 

412R 


SUM8 = SUMS ♦ AREA 





BOB 

49 80 

4129 


SUM9 •= SUM6 AREA»CW 





B03 

4990 

4130 


SUMIO = SUHIO f ARE4»IYA2*YAll+0.5 





R03 

5000 

4131 


SUMll = SUMil + AREA*! XM0t2+XMGCll*0,5 





603 

5010 

4132 


SUM12 = SUM12 ♦ AREA»tDFLTA2+DELTAl 1*0.5 





BO 3 

5020 

4133 

c 






BO 3 

5030 

41 34 

ITIO 

0FLTA1= DELTA2 





603 

5040 

4135 


XMGC1= XMGC2 





BO 3 

5050 

4136 


Cwl = CW2 





B03 

506 0 

4137 


YAl = YA2 





DO 3 

5070 

413B 

C 






BO 3 

5080 

4139 

1720 

CONT iNue 





803 

5090 

4140 

C 






B03 

5100 

4141 

c 






B03 

5110 

4142 


ZERO - 0.0 





BO 3 

5120 

4143 

c 

CALL CHOPDTIZERO,XLE,XCm , XTE ,XHE ,CW,CF1 





BO 3 

5130 

4144 






BO 3 

5140 

4145 

c 






003 

5150 

4146 


XROOT= XCOA 





B03 

5160 

4147 


ZROOT= Z1 11 





90 3 

5170 

4148 

c 

WINGOI 11 = SUMl»2.0 





HO 3 

5180 

4140 






BO 3 

5190 

4150 


WlNGDI 61 = SUM6*2,0 





60 3 

5200 

4151 


WINGOI 71 = 2.0* I SUMl**21 /SUM6 





R03 

5210 

4152 


WINGOI ei = SLMF/SUMl 





80 3 

5220 

4153 


WINGDI 91 = SGMC/SUM6 





BO 3 

5230 

41 54 


WINGOI lOI = S0M10/SOM6 





BO 3 

5240 

4155 


WINGDI 111 = SUM11/SUM6 





BO 3 

5250 

4156 


WINGDI 121 = SUM12/SOM6 





803 

5260 

4157 


WINGDI13I = RAO*ATAN( (WI NGDI 121- ZPOOT 1 /W INGDIIO 1 1 



903 

5270 

4158 


WINGOI lAl = RAO*ATAN( IWlNCOlllI- XPOOT 1/WlNGOI 10 M 



903 

52 80 

4159 


WINGOI 151 = FLAPC 





803 

5290 

4160 

c 






803 

5300 

4161 

c 






803 

5310 

4162 

c 

CALL PAGE 





903 

5320 

4163 






903 

5330 

4164 


WR ITE IKOUT.IOIQ) (WINCnit 1 ,1=1 ,121 .YFLAPl 1 

,YFLAP2 

, FLAPC, VFLAP2,aOTU803 

5340 

4165 

1 

, FLAPC ,WINGO (13l,tilNGOI161,!fLG(3l,IFLGI2l,lFLGI61,IFlGI5) 


BO 3 

5350 

4166 


ORIGINALPAGBK 

OF POOR QOAUT^ 



LINES* LINES ♦ 1! 

C 

C 

WRITE CKQUT, 10301 
LINES- LINES 4^3 , 

C 

DO IRZO J=1.NSPS 
C 

YF= YSPANIJI 
YA* ABSIVFl 
YOB* YF/POTU 
C 

CALL CHOROTIYF ,XIE,XC0A,XTE,XH6 »CU«CFi 

C 

H= -I 

DO 1T50 L=2tNY2 
IF IM> 1730,1730,1750 
1730 TEST- VA - YItl - O.QOOI 
IF ITESTI 1740, 1 lAO.l 750 
1740 *1- L 

Ml - M-I 
1750 CONTINUE 

IF IMII 1760,1760,1770 
1760 M- 2 
M|= I 

1770 RAT- ( YA-YIMH I/I YIMI-YIHIH 

C 

ZY- ZIMII ♦ «AT*( Z«H| - ZINU I 
EK* EIHII 4 HAT*< EIMI - EIMII I 

C 

If (J-ll 1790,1780,1790 
1700 YFl- YF - 0,05* SPAN/FLOATINSPVI 
YA- ABSIYFll 
C 

CALL CHnRDT«YA,XLEI,XC041 , XTE 1 , X4E 1,CM1 ,CF1 I 

ZYl = ZlHl) * I ZlMI-ZlMin*(VA-Y011H/( YINI-YIMin 

c 

1790 DELTAl* YF-YFl 
C 

BETA* RAO*ATANI I XC04-XC041 I /OELTAl ) 

OIHF= RAD4ATANI I ZY-ZYl 1 /DELT Al I 
C 

IF ILINEX-tlNFSI 1800,1810,1910 
IBOQ CALL PAGE 

WRITE IKOUT, 10301 
LINES- LINES»2 

1810 WR ITF. «KDUT,l0401VnB,YF,XLE,XC04,XHF,XTE,ZY,EK,BETA,DIH£,CH,Cf 
C 

L INES- LINFS ♦ 1 
VF1= YF 
ZYl* ZY 
XC04l= XC04 
1 rfZO CONT INUE 
C 
C 

WRITE IKDl)T,1000) 

LINES- LINES *3 
L INFS- LINES *7 

IF ILlNEX-LlNESt 1830,1840,1840 
1930 CALL PA6F 

. LINES- LINFS *7 

1040 WRITE IKDUT, 1O5OMX0C II I ,1=1,101 
LINES- LINES *1 
C 

00 1870 J=1,NYS 

IF UINEX-LINESI 1850,1860,1860 
1B50 CALL PAGE 

WRITE IKDUT, 10501 
LINES- L1NFS47 
I860 CONTINUE 

YOB- YIJ1/80TU 

MR ITE IK3UT, 1060 lYl Jl , YOB , (ZOCU « Jl , I-l ,NCSI 
LINES- LINFS ♦ 1 
1870 CONTINUE 
C 

L INES- LINES43 

IF ILINEX-LINESI 1880,1890,1890 
I960 CALL PAGE 

LINES- LINES *3 
1890 WRITE (KOUT, 10001 
C 
C 
C 

C * DEBUG OUTPUT * 

C 

If IlfLGIlOl) 2030,1900,1900 
1900 IFLGIIOI- IFLGllCl-1 
C 
c 

L INES- LIN€S*2 

IF (LINEX-LTNESI 1910, 1920, 1*»20 
1910 CALL PAGE 

L INES- L INFS+2 
1920 WRITE (KOUT, 1070) 

C 

00 1 950 K- l,NC V 
LINES- LINEStl 
00 1940 J=1,NSPV 
LINES- LINES*! 

IF ILINEX-LINESI 1930,1940,1940 
1930 CALL PAGE 

WRITE IKDUT, 1070) 

LINES- LINES + 2*1 

1940 WRITE IKQUT,1080)J,K,ENI J,K,2) ,€Y(J,K) ,ECI J,K) ,ES tJ,Kl 
1950 WRITE (KOUT, 1020) 

C 


803 9360 
803 5370 
803 5380 
803 5390 
803 5400 
BOS 5410 
803 5420 
B03 5430 
803 5440 
BO 3 9450 
B03 5460 
B03 5470 
803 9480 
603 5490 
803 5500 
903 5510 
603 5520 
603 5930 
803 9540 
003 9950 
803 5960 
803 9970 
803 5960 
003 9990 
803 5600 
B03 9610 
603 9620 
303 9630 
803 5640 
803 5690 
803 9660 
803 5670 
603 5680 
803 5690 
803 5700 
B03 5710 
603 5720 
803 5730 
803 5740 
603 5750 
B03 5760 
803 5770 
803 5760 
B03 5790 
803 5800 
603 5810 
603 5820 
003 5830 
803 5840 
B03 5850 
803 5860 
803 5870 
803 5880 
BOB 5890 
803 9900 
803 5910 
903 5920 
803 9930 
303 5940 
B03 5990 
603 5960 
603 5970 
603 5980 
603 5990 
603 6000 
B03 6010 
BO 3 6020 
SO 3 6030 
BO 3 6040 
B03 6090 
BO 3 6060 
803 6070 
B03 6080 
803 6090 
BOB 6100 
B03 6110 
803 6120 
BOB 6130 
903 6140 
803 6150 
B03 6160 
803 6170 
B03 6180 
BOB 6190 
803 6200 
803 6210 
603 6220 
BOB 6230 
BOB 6240 
603 6250 
803 6260 
B03 5270 
803 62 80 
003 6290 
BO 3 6300 
903 6310 
803 6320 
603 6330 
603 5340 
B03 6350 
BOB 6360 
603 63T0 
BOB 6380 
B03 6390 
B03 6400 
903 6410 


4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 
41 83 
4184 
4189 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 


4221 

4222 

4223 

4224 
4229 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 
4239 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4292 

4293 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 


9-41 



L INES= L tNr<;*3 

B03 6420 

4273 

IF (LINFX-LINESI I960, 1 970, I*??© 

B03 6430 

4274 

I960 CALL (>AGF 

B03 6440 

4275 

LINES= LINES*3 

BOA 6450 

42 76 

1970 W9ITF IKQUT, 10001 

B03 6460 

4277 


BOA 6470 

42 78 

IF (LINEX-LINESI 1900,1990,1990 

BOA 6480 

4279 

HBO CALL PAGE 

BD3 6490 

42 80 

LINES= lines ♦ 2 

BOA 6500 

4281 

1990 WRITE CKOUT, 10901 

BOA 6510 

4282 


BOA 6520 

42 93 

on 2020 K»1,NCV 

BOA 6530 

4294 

L INES= L INES+l 

BOA 6540 

4285 

no 2010 J=l,NSPV 

BOA 6550 

42 86 

LINFS° LINES*1 

603 6560 

4287 

IF (LINEX-LINESI 2000,201 0,201 0 

B03 6570 

4288 

2000 CALL PACE 

BOA 6580 

42 89 

WRITE (KOUT, 10901 

BOA 6590 

4290 

LINES= LINES ♦ 2 

BOA 6600 

4291 

2010 WRITE <K0UT,1100)J,K,<EVIJ.K,II,I^l,6l,IENU,K,It,I=l,6) 

BOA 6610 

4292 

2020 WRITE (KOUT, 10201 

803 6620 

4293 


BOA 6630 

42 94 

2030 CONTINUE 

803 6640 

4295 


BO 3 6650 

4296 

LINES= LINfS+3 

fl03 6660 

4297 

IF (LINEX-LINESI 2040,2050,2050 

a03 6670 

4290 

2040 CALL PAGE 

e03 6680 

4299 

L INES= L INFS*3 

803 6690 

4300 

2050 WRITE (xnUT, 10001 

003 6700 

4301 


803 6710 

4302 


B03 6720 

4303 

* WRITE ON CAICOMPLOT TAPE • 

B03 6730 

4304 


603 6740 

4305 

IF IIFLG(12I-1» 2460,2060,2060 

603 6750 

4306 

2060 IRECl-l 

B03 6760 

4307 

IREC2*T 

903 6770 

4308 

XZERO = XIII - 0.4*BnTU 

BO 3 6780 

4309 

2ZER0 ” Z( It 

90A 5790 

4310 


H03 6800 

4311 

DO 2C70 J=l,NSPS 

903 6810 

4312 

YSPN = YSPANIJI 

a03 6820 

4313 


803 6830 

4314 

CALL CHOROTI YSPN,XLE ,XCn4,XTE ,KHE ,CW,CF I 

BOA 6840 

4315 


BOA 6850 

4316 

YSPN = YSPN/0OTL 

BOA 6860 

4317 

XLF = {XLF -XZERCIZBOTU 

BOA 6870 

4319 

XC04= IXC04 -XZERri/OOTU 

803 68B0 

4319 

XTE = tXTF -XZERCI/eOTU 

B03 6890 

4320 

XHF = (XHE -XZFPOI/ROTU 

BD3 6900 

4321 

CW = CW/aOTU 

BO 3 6910 

4322 

CF « CF/BOTL 

B03 6920 

4323 

2070 Wfl ITE1KT2I IRFC 1 , IREC2 , VSP N, XLE , XC04 , XTE ,XHE , CW ,Cf 

B03 6930 

4324 


BOB 6940 

4325 


BOA 6950 

43Z6 

IRECl= 2 

BOA 6960 

4327 

1REC2= 2 

BOA 6970 

432B 

K=,l 

BOA 6980 

4329 

00 2100 J-l,N5PS 

B03 6990 

4330 

YSPN = EV(J,X,2I 

BOA 7000 

4331 


803 7010 

4332 

CALL CHOROTIYSPN.XLE ,XC04 .XTE ,XHf ,CW,CFI 

903 7020 

4333 


603 7030 

4334 

YSPN = YSPN/ROTI; 

903 7040 

4335 

XLE = (XIE -XZEROI/nOTU 

803 7050 

4336 

XTE = (XTE -XZER0I/90TU 

803 7060 

4A37 

IF I (TFT) 2080, 2CBD, 2090 

903 7070 

4330 

20BO ITET = 1 

B03 7080 

4339 

WR ITEIKT2I |RECl,IREC2, YSPN, XLE 

003 7090 

4340 

WR ITEIKT21 IPFC 1 , [RFC2 . YSPN , XTE 

BOA 7100 

4341 

GU TO 2100 

90A 7110 

4342 

2090 ITET = -1 

BOA 7120 

4343 

WR ITFIKT21 IRFC l,IREC2, YSPN, XTE 

BO 3 71 AO 

4344 

wR |Te(KT2I IPFCl ,IREC2, YSPN, XLE 

BOA T140 

4345 

2100 CQNT INUF 

603 7150 

4346 


B03 7160 

4347 


BOA 7170 

4348 

[RFC1= 3 

B03 7180 

4349 

IP EC 2= 2 

BOA 7190 

4350 

ITET =-l 

BOA 7200 

4351 

on 2150 K»1,NCV 

803 7210 

4352 

DO 2140 J=l,NSPS 

303 7220 

4353 

IF (ITFTI 2110,2110,2120 

803 7230 

4354 

2110 JR= J 

R03 7240 

4355 

GO TO 2130 

903 7250 

43 56 

2120 JR= NSPS *1-J 

803 7260 

4357 

2130 CONTINUE 

903 7270 

4358 

YSPN = ( EVIJR,K,2I I/80TU 

BOA T2B0 

4369 

XLE = IFV(JB,K,n -Q.25*EC( JR.KI -XZEROI/BOTU 

BOA 7290 

436 0 

2140 WRITE<KT2IIRFC1 , t FEC2 , YSPN , XLE 

BOA 7300 

4361 

ITET = -1*1TET 

803 7310 

4362 

2150 CDNTINUF 

BOA 7320 

416 3 


903 7330 

4364 


BOB 7340 

4365 

[P EC 1=4 

803 7350 

4366 

IREC2=3 

BOA 7360 

4367 


BOA 7370 

4366 

no 2210 J-l,NSPS 

BO 3 73 80 

4369 


BOA 7390 

4370 

YSPN= EVI J, 1,21 

603 7400 

4371 

VA= ABSIYSPNI 

603 7410 

4372 

w=-l 

603 7420 

4373 

03 2lflO K=i,NY2 

603 7430 

43 74 

IF IHI 2160,2180,2180 

803 7440 

4375 

2160 TEST= YA-YIKI 

BO 3 7450 

4376 

IF I TEST! 2170,2170,2180 

803 7460 

4377 

2170 K 

BOA 7470 

4376 


9-42 



2ieO CONTINUE 


603 7460 

4379 



603 7490 

43 BO 

m=M-i 


B03 7500 

4381 

IE (Mil 2nO,219C,2200 


B03 7510 

43 B2 

2190 M»2 


B03 7520 

4383 

Ml = l 


BO 3 7530 

43 B4 

2200 RAT= ( YA - V ( Ml M /( Y (Ml-YI Mill 


803 7540 

4385 



B03 7550 

4366 

CALL CH0B0T(YSPNiXLE,XCO4,KTE.XHE»CMfCFI 


B03 7560 

4367 



603 7570 

4388 

OELTAZ- ZIMII ♦ ( Z(M»-Z(H1} |«RAT 


00 3 75 80 

4389 

TANEPS=IE(Mll * (E(H)-E (M1I)«RATI /RAD 


B03 7590 

4390 

TANEPS- TANITANEPSI 


B03 7600 

4391 

ZLE« (-DCLTAi ♦ TANEPS*CW*< XOCREF 1 l/BOTU 


B03 7610 

4392 

ZTE= I-OELTAZ * TANEPS*CW*(X0CREF-1,0I l/BOTU 


BO 3 7620 

4393 

YSPN* YSPN/BOTO 


B03 7630 

4394 

2210 WR ITEIKT2) IREC 1 , IREC2 t YSPN »ZLE f ZTE 


BO 3 7640 

4395 



B03 7650 

4396 



903 7660 

4397 

I«EC1= 5 


603 7670 

4398 

IREC2= 6 


B03 7680 

4399 

ZERO = D.Q 


SO 3 7690 

4400 

XZEftO= XIII ♦ C{1J*(0,5-XOCHEF1 


803 7700 

4401 

YZERO= Y( 1 1 


B03 7710 

4402 

ZZERO* Z(ll 


803 7720 

4403 

PM1R= 45.0/RAO 


BO 3 7730 

4404 

PHIP ■ -PHIfl 


B03 7740 

4405 

PHIO “ 0.5*PHIP 


803 7750 

4406 



B03 7760 

4407 



B03 7770 

4408 

00 2270 J=1,NSPS 


BOB 7780 

4*09 



BO 3 7790 

4410 

YSPN = YSPANIJI 


B03 7800 

4411 

YA = A0SIYSPNI 


603 7810 

4412 



B03 7820 

4413 

CALL CHOBDTIYSPN.XLE.XCOA fXTE iXHE,CN»CFI 


603 7830 

4414 



603 7840 

4415 

M3-1 


803 7850 

4416 

DO 2240 K=lfNVS 


803 7860 

4417 

IE (Ml 2220.2240,2240 


B03 7870 

4418 

2220 TEST” YA-Y(KI-0,0001 


B03 7890 

4419 

If (TEST! 2230,2230,2240 


603 7890 

4*20 

2230 M=K 


B03 7900 

**21 

2240 CONTINUE 


603 7910 

4*22 

IF (M-ll 2250,2250,2260 


603 7920 

*423 

2240 M« 2 


BO 3 7930 

4*24 

2260 Ml- M-l 


B03 7940 

4425 



603 7950 

4426 

RftT= ( YA-Y(H1U/(YIMI-Y1M1I1 


603 7960 

4427 

DFLTAZ” Z(M1) ♦ (Z(MI-2(Min*RAT 


603 7970 

4428 

TANEP5- E(Hl» + (E(MI-E(Min*RAT 


B03 7980 

4429 

TANEP5” TANITANEPS/RAOl 


603 7990 

4430 



803 8000 

4431 

ZLE » I-OELTAZ ♦ TANEPS*CM4( XOCREF 1 ♦ZZERO l/BQTU 

603 8010 

4432 

YLE - YSPN/BOTU 


803 8020 

4433 

XLE • I XLE -XZEPOI/90TU 


B03 8030 

4434 

ZTE = (-DELTA/ ♦ TANE PS*CM*( XOCREF-1 .0 If /ZERO l/BOTU 

603 8040 

4435 

YTE = YLE 


B03 8050 

4436 

XTF = I XTE -XZEfiOI/BOTU 


603 8060 

4*37 



BOB 8070 

**3B 

CALL ROIATEt XLE, ZLE. ZERC.ZERO, PHIR, zeRO.ZEftO. 

XLE.ZLf I 

603 8080 

**39 

CALL ROTATE! YLE. XLE. ZERO, ZERO, PH(P, ZEROtZERO, 

YLE, XLE 1 

BO 3 8090 

4**0 

CALL ROTATE! YLE, ZLE. ZERC.ZERO, PHIQ, ZERO, ZERO, 

YLE. ZLE I 

B03 8100 

***1 

CALL ROTATE! XTE, ZTE, ZERC.ZERO, PHIR, ZERO, ZERO, 

XTE, ZTE 1 

603 8110 

***2 

CALL ROTATE! YTE, XTE, ZERO, ZERO, PNIP, ZERO, ZERO, 

YTE, XTE I 

B03 8120 

***a 

CALL ROTATEI YTE, ZTE. ZERC.ZERO, PHIO, ZERO, ZERO. 

YTE, ZTE I 

603 8130 

**** 

1 


ROB 8140 

4**5 

2270 MR ITE! KT2 IIRFC 1 , IREC2 , YLE ,ZLF , YTE . ZTE , XLE , XTE 


603 9150 

***6 

L 


BOB 8160 

*4*7 

■ 


303 8170 

***8 

IRECl- 6 


B03 BIBO 

***9 

IREC2= 3 


903 8190 

4*50 

1= 1 


B03 8200 

**51 

c 


803 8210 

**52 

DO 2350 J-l.NSPS 


803 6220 

**53 

c 


e03 8230 

**S* 

YSPN - EV(J.I.21 


BOB 8240 

4*55 

YA - ABS( YSPNI 


B03 8250 

**56 

C 


803 8260 

*457 

CALL CHORD T( YSPN , XLE , XC04 ,XTE ,XHE,CW,CFI 


903 8270 

**58 

c 


903 8250 

**59 

M= - 1 


803 8290 

*460 

00 2300 R^l.NYS 


B03 8300 

4461 

IF IMI 2280,2300,2300 


BOB 8310 

4*62 

2280 TEST= YA- YIKI-O.COOl 


603 8320 

*463 

tf (TEST! 2290,2290,2300 


603 8330 

446* 

2290 H= K 


no 3 8340 

4465 

2300 CONTINUE 


603 8350 

4*66 

IF (M-l) 2310,2310,2320 


603 8360 

**67 

2 310 M= 2 


BOB 8370 

**68 

2320 Ml= H-1 


BOB 6380 

*469 

C 


BOB B390 

*470 

RAT« ( YA-Y(Ml) )/(Y(MI-Y(Ml) 1 


603 8400 

4*71 

OELTAZ” Z(M1) * (Z(MI-Z(.M1II*RAT 


BOB 8410 

**72 

TANEPS= E(M1) * (E(MI-E(M1|1*RAT 


903 B420 

**73 

TANFPS” TAN(TANEPS/«ADI 


803 8430 

**7* 

C 


803 8440 

**75 

ZLE = (-DELTAZ + TANEPS*CM*( XOCREF 1 f ZZERO 

l/SOTU 

B03 3450 

**76 

YLE = YSPN/BOTU 


603 8460 

**77 

XLE = ( XLE - XZFRO l/BOTU 


BOB 8470 

**78 

ZTE 3 (-DELTAZ f TANEPS*CW*( XDCB6F-1 .0 1 t ZZERO 

l/BOTU 

603 8480 

**79 

YTE » YLE 


BOB B490 

**eo 

XTE = ( XTE - XZERO l/BOTU 


B03 8500 

**B1 

c 


B03 8510 

**82 

CALL ROTATE( XLE, ZLE, ZERC.ZERO, PHIR, ZERO, ZERO, 

XLE, ZLE 1 

B03 8520 

*483 

CALL ROTATE( VLE.XLE. ZERO, ZERO, PHIP, ZERO, ZERO, 

YLE.KLE I 

B03 8530 

4*8* 
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CALL ROTATFI YLF.ZLEi ZCftCtZEROt PHI Q, ZERO, ZERO, 

YLE.ZLF 1 

BO 3 

8540 

4485 


CALL ROTATF< XTE.ZTE, ZERC,2ER0, PHlft, ZERO, ZERO, 

XTE,ZTE I 

903 

0550 

4406 


CALL ROTATE! VTE.XTE, ZERO, ZERO, PH|P, ZERO, ZERO, 

YTE.XTE » 

003 

0560 

4487 


CALL ROTATE! VTE,ZTE, ZFRC.ZERO, PHIS, ZERO, ZERO, 

VTE,2TE 1 

BO 3 

8570 

44P9 

c 



B03 

85 00 

4409 


IF 1 ITFTI 2330,2320,2340 


903 

8590 

4490 

2330 

ITET X 1 


BOB 

0600 

4491 


WR ITE!KT2HRECl, IBEC2,VLE,ZL£,KL£ 


BOB 

8610 

4492 


WR ITEIKT21 1REC1,IREC2.VTE ,ZTE,XTE 


BOB 

0620 

4493 


r.O TO 2350 


BOB 

0630 

4494 

2340 

ITFT = -1 


603 

0640 

4495 


WR ITEIKT2HPECI,IREC2,YTE .ZTE.XTE 


BO 3 

8650 

4496 


WR tTE!KT2t IRfCl, 1REC2 , YLE ,ZLE , KLE 


B03 

866 0 

4497 

C 



B03 

8670 

4498 

2350 

CONT INUE 


BO 3 

8630 

4499 

C 



BO 3 

8690 

4500 

C 



B03 

8700 

4501 


IRECl= 7 


BD3 

8710 

4502 


IREC2* 3 


BOB 

8720 

4503 


ITET X -1 


BOB 

8730 

4504 

C 



BOB 

8740 

4505 


no 2450 t = l»NCVPl 


BOB 

8750 

4506 


on 2440 Jxl.NSPS 


BOB 

8760 

4507 

C 



BOB 

8770 

4506 


IF I ITETl 2360,23(0.2370 


DOB 

8780 

4509 

23bO 

JRx J 


B03 

8790 

4510 


GO TO 2300 


BOB 

8000 

45U 

2370 

JRx NSPS +1-J 


BO 3 

8810 

4512 

2300 

CONTINUE 


B03 

8820 

4513 

C 



603 

8830 

4514 


YSPNx EV!JP,I,21 


BO 3 

6840 

4515 


VA = ABS!YSPN1 


BO 3 

6850 

4516 

c 



B03 

6860 

4517 


CALL CH0RDTIYSPN,XLE,XC04 ,XTE,XHE«CW.CF1 


BO 3 

8870 

4518 

c 



BO 3 

8800 

4519 


Hx -1 


BOB 

6890 

4520 


DO 2410 Kxl,NYS 


DO 3 

8900 

4521 


IF (HI 2390,2410,2410 


603 

0910 

4522 

2390 

TEST= VA -YIKl-O.OOOl 


R03 

8920 

452 3 


IF (TEST! 2400,2410,2410 


003 

0930 

4524 

2400 

Hx K 


BO 3 

8940 

4525 

24 10 

CONTINUE 


903 

8950 

4526 


IF (H-ll 2420,2420,2430 


903 

8960 

4527 

2420 

«= 2 


B03 

9970 

452 8 

24 30 

Hl= H-1 


BO 3 

89 80 

4529 

C 



B03 

8990 

4530 


RAT- I YA-V!Min/!y(M|-Y(Mlt> 


B03 

9000 

4531 


DELTAZx ZIMIl ♦ ! Z!M1-Z(M1> J*PAT 


803 

9010 

4532 


TAN£PS= FIHll » ! EIMJ-EIMll |*RAT 


803 

902 0 

4533 


TANEPSx TANI TANEPS/RAO) 


R03 

9030 

4534 

C 



803 

9040 

4535 


XTE = KLF 


903 

9050 

4536 


KIE X EVIJR,(,1> -0*25*EC(JR,I 1 


B03 

9060 

4537 


YLE X YSPN/BOTU 


B03 

9070 

4538 


ZLE X (-OELTAZ * TANEPS*! XTE ♦ CW*XOCREF - XLE 1 

♦ ZZERO 1/BOIU 

BO 3 

9080 

4539 


XLF X 1 XLE-XZFRO/RtlTU 


903 

9090 

4540 

C 



903 

9100 

4541 


CALL ROTATEI XLE, ZLE, ZFBC,ZERO. PHIR, ZERO, ZERO. 

XLE. ZLE ) 

003 

9110 

4542 


CALL ROTATE! YLE, XLE, ZERO.ZEflO, PHIP, ZERO, ZERO, 

VIE, XLE 1 

R03 

9120 

4543 


CALL ROTATE! YLE, ZLE, ZERC.ZFRO, PHIO, ZERO, ZERO, 

YLE, ZLE > 

90 3 

9130 

4544 

C 



BO 3 

9140 

4545 

2440 

MR ITE(KT2HREC1 ,IRFC2, VLE,ZLF,XLE 


HO 3 

9150 

4546 

C 



B03 

9160 

4547 


ITETx -l*ITFT 


903 

9170 

4540 

c 



BO 3 

9180 

4549 

2450 

CONT INUE 


BO 3 

9190 

4550 

C 



B03 

9200 

4551 

C 



B03 

9210 

4552 


END FILE XT2 


R03 

9220 

4553 


IFLG(l5)x IFLCliei -1 


BO 3 

9230 

4554 


1 INESx L INFS *2 


BO 3 

9240 

4555 


WPITF !KnUT,ll30)IFLG!lS) 


BO 3 

9250 

4556 

C 



BO 3 

9260 

4557 

C 



BO 3 

9270 

4558 

24*0 

CONTINUE 


BO 3 

92 80 

4559 

C 



BO 3 

9290 

4560 

C 



BO 3 

9300 

4561 


RETURN 


003 

9310 

4562 

C 

XXXXXX 


B03 

9320 

4563 

C 



903 

9330 

4564 

C 



003 

9340 

4565 


END 


003 

9350 

4566 


7 

FOR B04.B04 

B04 

10 

4567 

C 


B04 

20 

4568 

C 


604 

30 

4569 

C 


B04 

40 

45 70 


SUBROUTINE OLIFTIALFA.ZHC IGT) 

BO 4 

50 

4571 

C 


B04 

60 

4572 

C 

• TRW MULTlPLE-SLRFACe VORTEX-LATTICE PHOGRAH - REVISED B AUG. 72 

•004 

70 

4573 

C 

♦ PROGRAM DFVELOPEO BY A. V. GOME 7 ITBW SYSTEHSI ON MARCH-MAy 1471 

*004 

00 

4574 

C 


B04 

90 

4575 

C 

XKXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXKB04 

100 

4576 

c 


a04 

I 10 

4577 


OOUBLF PRECISION SCALE , SUP ,0E TE PH , AHAT I 71 ,7 1 ) ,VMAT ( 7U 

e04 

120 

4578 


UIHFNSION PI 31 ,913) ,0(31 

004 

130 

4579 


niHFNS ION cnsu a 1 ,COS2I3) ,cns3131 

BO 4 

140 

4500 


OIMFNSlOX SUH«l!4| ,S0MSL!4) 

BO 4 

150 

4501 


OIMENStON PWI3) ,61,0) ,nwI31 

B04 

160 

4502 

c 


904 

170 

4583 


COHHON/OATAOl/KI N ,KOUT ,KT1 ,KT2 ,LINEX .LINES 

B04 

180 

4584 

c 


R04 

190 

4585 


COHHON/OATA02/1FLGI 151 ,FXECK(15) ,RAO , PI E 

BOA 

200 

45 06 

c 


B04 

210 

4587 
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COMMON /OATA05/K I N6DU5> tevl42tlOI »EC(<»2*iOI iESl4ZilO) 

804 

220 

4588 

*.ErEllO> .ELEIIOI tETEIlQ) tEHEUOl 

, EG! 42, 101 

804 

230 

4589 

*,EN(42. 10, 61 ,EV(42,10,6| , VVI NOX 142 , 10 ,3 1 


004 

240 

4590 

C 


604 

250 

4591 

C 


B04 

260 

4592 

1000 FDRMAT< IX > 


B04 

2 TO 

4593 

1010 FORMATUX,//, IXI 


B04 

280 

4594 

C 


BO 4 

290 

4595 

1020 FORMAT! 47X,Z«HV0RTE X LATTICE MATRIX DETAI L,/ ,47X, 

2SI1H*I,//,1X» 

B04 

300 

4596 

1030 FORMAT! IX.IZH J K Nf* NG, 


804 

310 

4597 

2 60H VFS(HAT) VINIHATI P(XI PIT) PI2I BIX) , 

B04 

320 

4598 

3 SOM am (U2I 0 (X) d(Y) 0 (z> ,/.ixi 

804 

330 

4599 

1040 FORMAT! IX, 413,1 lElO. 4) 


604 

340 

4600 

C 


804 

350 

4601 

lOSO FORMAT! 48X,24HLIFT DISTRIBUTION DETAI L ,/,40K ,24 UH*),// , IX ) 

B04 

360 

4602 

1060 FORMAT! 3X.4HJ R,5K,40HP!XI P! Y1 PIZI 

AREA • 

B04 

3T0 

4603 

160HCPN CIX> G(Y> GIZl VIIX) 

VHYI , 

B04 

380 

4604 

215MVK2! GAMA , /.IX) 


B04 

390 

4605 

1070 FORMAT! IK, 213, 3F10.3, 2F10.4, 6F10.5, EIO.4 ) 


eo4 

400 

4606 

C 


B04 

410 

4607 

lOflO FORMATI4flX,Z4HSECTION LIFT COEFFC lENTS , /,48 X .2 4 ! 1 H* ) ,// , IX ) 

604 

420 

4608 

lORO FORMAT! 8K,3H J,R9H 2Y/B Y C 

SCL SCLB04 

430 

4609 

IC/B DLIFT SCM!C/4) IXL lYL 

IZL ,/,lX) 

B04 

440 

4610 

1100 FORMAT! «X , 1 3,F 10. 4,2F 10, 3 ,TF 10.4) 


604 

450 

4611 

C 


B04 

460 

4612 

1110 FORMAT! ///,47X ,25HMlNG AIRLOAD COEFFICI ENTS , K ,47X 

,25llH*),///,iax 

, B04 

470 

4613 

2 60H WCL UCOI MCMP MCMR HCMY IXL > 

804 

480 

4614 

3 40H lYL IZL DELTA SCALE ,// , 


B04 

490 

4615 

4 3X.15HWITH l£ SLCTION, 5F 10.5 ,3F 10.6 , ZE10.4,/. 


004 

500 

4616 

5 3X.15H MO LE SUCTION , 5F1 0. 5 ,3F10,6 , 1 X ) 


B04 

510 

4617 

C 


804 

520 

4618 

C XXXXKXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXKXXXXKXXXXXXXXXXXXXXX604 

530 

4619 

C 


004 

540 

4620 

C 


604 

550 

4621 

C 


004 

560 

4622 

C 


804 

570 

4623 

C ■* INITIALIZE * 


604 

580 

4624 

C 


604 

590 

4625 

NSPV - IFLG(3) 


604 

600 

4626 

NCV = IFLG161 


B04 

610 

4627 

SPAN - HING0!1I 


804 

620 

4628 

HAREA= WtNC0!6» 


B04 

630 

4629 

WMGC « MINGO! 9) 


B04 

640 

4630 

BOTU= SPAN/2.0 


604 

650 

4631 

C 


B04 

660 

4632 

ALFAR= ALFA/RAD 


604 

670 

4633 

TANA = TANIALFAR) 


604 

680 

4634 

CDSA - l,0/SORTU.OtTANA**2» 


B04 

690 

4635 

SINA 3 TANA*C0SA 


604 

TOO 

4636 

TANV= -TAN10.5PALFAR) 


604 

710 

4637 

TANVG= -TAN! 1.54A1F ARl 


604 

720 

4638 

UNIT = 0.25/PIE 


604 

730 

4639 

UNITG= -UNIT 


604 

740 

4640 

C 


604 

750 

4641 

C 


604 

760 

4642 

C • SYMMETRIC OR UNSVMMETRIC TEST • 


604 

770 

4643 

C 


604 

780 

4644 

NZERO- 1 


BOA 

790 

4645 

IF (IFLGID-ll 1120,1130,1130 


604 

800 

4646 

1120 CONTINUE 


BD4 

810 

4647 

, NSP02- NSPV/2 


604 

620 

4648 

NTEST- NSPV-NSP02*2 


BOA 

830 

4649 

NZEPn= NSP02 ♦ 1 


804 

840 

4650 

1130 CONTINUE 


604 

850 

4651 

C 


604 

860 

4652 

C 


604 

670 

4653 

C 


604 

880 

4654 

C * CALCULATE MATRICES WMATiNVl ) AMATING.NVI • 


604 

890 

4655 

C 


604 

900 

4656 

NV= 0 


604 

910 

4657 

NM= 0 


604 

920 

4658 

DO 1420 KV^l,NCV 


604 

930 

4659 

00 1390 JV=NZERQ,NSPV 


BO 4 

940 

466 0 

NV= NV41 


B04 

950 

4661 

C 


B04 

960 

4662 

C 


B04 

970 

4663 

COSH H= COSA 


604 

980 

4664 

cosn 2 )= 0,0 


604 

990 

4665 

C05l(3)= -STNA 


804 

1000 

4666 

Y5PN= ENIJV.KV.Z) 


604 

1010 

4667 

C 


604 

1020 

466 8 

CALL CHORDT! VSPN,XLE,XC04 , XTE ,XHE ,CM,CF ) 


604 

1030 

4669 

C 


604 

1040 

4670 

00 1140 L=l,3 


804 

1050 

4671 

M= L*3 


B04 

1060 

4672 

C0S2U )= eN(JV,XV,Hl 


804 

1070 

4673 

1140 P!L»= EN(JV.KV.L) 


604 

1080 

4674 

C 


604 

1090 

4675 

CALL FLAPS! YSPN, XHE , P,C0S21 


804 

1100 

4676 

C 


604 

1110 

4677 

CALL OnTP!COSl,CC52,VMATOPI 


004 

1120 

4678 

C 


604 

1130 

4679 

VMAT(NV1* VMATOP 


804 

1140 

46 BO 

C 


804 

1150 

4681 

C 


804 

1160 

4682 

no 1150 L=l,3 


e04 

1170 

4683 

1150 COSUD- C0S2!U 


004 

1180 

46 84 

C 


804 

1190 

4685 

NG- 0 


604 

1200 

4686 

00 1380 KG-l.NCV 


804 

1210 

4687 

no 13T0 JG=NZERC,N5PV 


804 

1220 

4688 

NG= NG*1 


804 

1230 

46 89 

C 


604 

1240 

4690 

1= JG+1 


604 

1250 

4691 

on 1160 L-1,3 


804 

1260 

4692 

BID- EV(JG,KG,L) 


804 

1270 

469 3 
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1160 OCL>» FVC I, KG, LI 
C 

YSPN= 9(2) 

CALL CHOAOrC VSPK ,XLE , KCOA . XTE . XHE, CW.C F I 
CALL FLAPS! YSPN ,XHE ,8 ,CQS2 ) 

VSPK“ 0(21 

C 

CALL CHOROTC VSPK ,XLF, XCOA ,XTE , XHE, C«,C F ) 
CALL FLAPS! YSPN, XHE.O,COS2 I 
00 U70 L^l,3 
PWILI * P(Ll 
aw(U > B(L1 
IITO DVI(L) • 0(LI 
C 

CALL V0RTEXIP,B,D,TANV,UN1T. V1,C0S2I 
CALL D0TP(CnSl,CCS2,SUHll 

c 

SUM1>= SUM1«VI 
SUM2< 0.0 
C 

IF (IFLG(<)>-1) 11<)0. 1180. 1180 
llflO CONTINUE 

CALL REFLECie.ZHEIGT.ALFAR.CnSAI 
CALL REFLECIO.ZHEICT.ALFAR.COSA) 

c 

CALL V0RTEX(P,6.0,TANVG.UNITC . VI .C0S2I 
CALL D0TP(CnSl,CCS2.SUM3l 
C 

SUM1= SUM I * SUK3*VI 
1190 CONTINUE 
C 

IF IIFLG(I)-l) 1200,1250,1250 
1200 JOM= NSPV-JG*! 

IF IJGN-JG) 1210, 12F0, 1250 
DO 1R20 KV=1,NCV 
no 1390 JV=NZFRa.NSPV 
NV= NV*l 
C 

c 

CDSK D- COSA 
CD$l(2)= 0.0 
CDS113I" -5INA 
VSPN= EN(JV,KV,2) 

C 

CALL CHOROT<YSPR,XLE.XCG4,XTF,XHF,CW,CFI 

c 

no 1140 L=l,3 
M= L»3 

C0S2IL )= EN(JV.KV.M) 

1140 P(LI= £N(JV,KV,L) 

C 

CALL FLAPS! YSPN, XHF, P.C0S2) 

C 

CALL 0DTPtCnSL,CCS2,VMAT0Pl 
C 

VMAT(NV»= VMATDP 

c 

C 

OQ 1150 L = l,3 
1150 C0S1(L)= C0S2IL) 

C 

NG* 0 

00 1380 KG^1,NCV 

00 1370 J6>N2ER0,NSPV 
NG« NG*1 

C 

1= JG41 
DO 1160 L=l,3 
8(L)» EVIJG.KG.L) 

1160 0(L>> EV( I.K6.L) 

C 

YSPN= 9(2) 

CALL CHOROTt YSPA ,XLE ,XC04 , XTE , XHE, CW.CF } 
CALL FLAPS! YSPN . XHE ,6 ,C0S2 I 
YSPN= 0(2) 

CALL CHOROTI YSPR ,XLE , KC04 , XTE , XHE , CH ,CF I 
CALL FLAPS! YSPN, XHE,D,C0S2 ) 
on 1170 L =1,3 
PW(L) = P(l) 

RM(L) = B(L) 

1170 OM(L) = OIL) 

C 

CALL VORTEXIP ,B,D,TANV,UNI T , V1,C0S21 

CALL D0TP(C0S1,CCS2,SUMH 
C 

SUHl= SUM1*VI 
SUM2= 0.0 

c 

IF (IFLG(91-U 1190,1190,1190 
1180 CONTINUE 

CALL REFLEC(B,2HFIGT,4LF6B,COSAI 
CALL REFL€C(D,ZHC(6T,ALFAR,C0SA) 

C 

CALL VORTEXIP ,9,0, TANVG.UNITG , VI,C0S2I 
CALL D0TP1CPS1,CCS2,SUM3) 

C 

SUH1= Sum I ♦ SUH3YVI 
1190 CONTINUE 

c 

IF ItFLG(U-l) 1200,1250,1250 
1200 JGH= NSPV-JG41 

IF IJGM-JG) 1210,1250,1250 
1210 CONTINUE 

1 = JGM*l 

00 1220 L=l,3 
BID = EV1JGM,KG,LI 


804 1290 
904 1290 
904 1300 
904 1310 
004 1320 
904 1330 
B04 1340 
804 1350 
904 1360 
804 1370 
904 1380 
904 1390 
804 1400 
904 1410 
904 1420 
904 1430 
904 1440 
904 1490 
B04 1460 
904 1470 
804 1480 
904 1490 
904 1500 
904 1510 
B04 1520 
904 1530 
904 1540 
B04 1550 
904 1560 
904 1570 
904 1580 
B04 1590 
904 1600 
B04 1610 
904 1620 
B04 1630 
904 1640 
904 1650 
904 1660 
904 1670 
804 1680 
904 1690 
904 ITOO 
904 ITIO 
B04 1720 
804 1730 
904 1740 
904 1750 
904 1760 
904 1770 
B04 1700 
B04 1790 
BOA 1800 
804 1810 
904 1820 
804 1030 
904 1840 
B04 1950 
904 1860 
904 1870 
904 leeo 
904 1890 
904 1900 
804 1910 
904 1920 
904 1930 
804 1940 
904 1950 
904 1960 
804 1970 
904 1990 
904 1990 
904 2000 
904 2010 
904 2020 
904 2030 
804 2040 
004 2050 
904 2060 
904 2070 
604 2080 
904 2090 
904 2100 
904 2110 
904 2120 
904 2130 
904 2140 
904 2150 
B04 2160 
904 2170 
904 2180 
904 2190 
904 2200 
904 2210 
904 2220 
904 2230 
904 2240 
BO 4 2250 
804 2260 
B04 2270 
604 2290 
904 2290 
B04 2300 
904 2310 
004 2320 
904 2330 


4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 
4709 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 
4719 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 
4739 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 
4749 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 
4750 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 
4779 
477° 
4790 

4781 

4782 

4783 

4784 
4705 

4786 

4787 
4798 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 
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1220 OIL) = FVI t.KGrLI 
YSPN* B<2> 

r.AlL CHOftriT< VSPMiXtFiXC0'^,XT6,XHC,CW»CF I 
CALL FLAPS( YSPN,KM(=,e,C0S2 I 
YSPN= 0C21 

CALL CHOROTt VSPAi XLF »XCOA ,XTE«XHEtCM*CF I 
CALL FLAPSt rSPN, XHE«0.C0S2 I 

CALL VanTFX(P,B,0,TANV,UNIT« Vt«C0S2) 

CALL OOTPICOSl,COS2,SUM2) 

SUM2= SU»2*Vt 

IF MFLG<9I-1I 12AO>1230>1230 
1230 CONTINUE 

CALL REFLECIB,ZNEIGT,ALFA«,COSAt 
CALL REFLECIO.ZHEIGT.ALFAR.COSAl 

CALL VOftTEXIP,B,0»TANWG»UNITG, Vt tC0S2) 
CALL DOTPJCOS1,CCS2,SUH4» 

SUN2= SUH2 SUMA*VI 
12 AO CONTINUE 

C 

1290 CONTINUE 


AMATINGtNVt^ SUMUSUM 2 


IF lEXECKI 191 - I.CI 1260 . 1360,1360 
1260 IF (IFLGI 10 I- 5 J 1360 , 1270,1270 
1270 IF INN -11 12 RO, 1280 , 13 AO 
1280 LINES- LINES+A 
NN= 10 

IF (LINEX-LINESI 12 * 10 . 1300,1300 
12*10 CALL PAGE 

LINES= LINES»A 
1300 NR ITE IKOUT , 10201 
1310 L INES”LINES *2 

IF ILINEX-LINES) 1320 , 1330,1330 
1320 CALL PAGE 

LINES- L 1 NES 4-2 
1330 MR ITE IKGUT , 10301 
13 AD L INES=LINF S *1 

IF ILINEX- 1 INESI 1320 , 1390,1390 

1350 HR ITE IKOUT.IOAOIJV.KV.NV.NC.VMATINVI ,ANAT(NG,NVI , I PH I 1 1 . 1 - 1 , 31 . 

IHI M.I- 1 . 3 l.(DHm,I=l, 3 i 
1360 CONTINUE 


1370 CONTINUE 
1360 continue 

1390 CONTINUE 

IF (EXECKI 151 - 1 . Cl lAOO.l A 20.1420 
1400 IF IIFLGIlOI- 5 ) 1420 , 1410.1410 
1410 WRITE (KOUT , 10001 
L INES-L INES 4 1 

C 

1420 CONTINUE 


L INES- L 1 NES »3 

IF (LINEK-LINESI 1430 , 1440,1440 
1430 CALL PAGE 
GO TO 1450 

1440 WRITE (XnUT, 10 lOI 
1450 CONTINUE 


* SOLVE FOR GAMA * 


NN= 0 
SUP- 0.0 
DO 1470 J= 1 ,NV 
DO 1460 K= 1 ,NG 
NM= NN»l 

1460 SUP- SUP 4 DABS! ANAT(K,J) I 
1470 CONT INUE 

SCALE = FLOATINNI 
scale - SUP/SCALE 
no 1490 J- 1 ,NV 
DO 1480 K=I,NG 

14 R 0 AMAT(J,KM AHA TIJ ,K ) /SC AL E 
1490 CONTINUE 


CALL nMATtN(AHAT,NV,OETFRH) 


NG= 0 
DO 1530 
DO 1520 
NG-NG 41 


K= 1 , NC V 
J-NZeftC,ASPV 


SUP= 0.0 
NV= 0 

DO 1510 KV-l.NCV 
nn 1500 JV=NZERO ,NSPV 
NV«NV*1 

1500 SUP* SUP - VHATI AVI4AHAT I NV.NGI 
1510 CONTINUE 


B04 

2340 

ABOO 

BOA 

2350 

4801 

BOA 

2360 

4802 

904 

2370 

4803 

BO 4 

2380 

4804 

a04 

2390 

4805 

BOA 

2AOO 

4806 

BOA 

2A10 

4807 

BOA 

2420 

4808 

BOA 

2430 

4809 

BOA 

2AA0 

4810 

BOA 

2A90 

4811 

BOA 

2460 

4812 

BOA 

2AT0 

4813 

BOA 

ZASO 

ASIA 

BOA 

2490 

4815 

BOA 

2500 

4816 

BOA 

2510 

4817 

BOA 

2520 

4818 

BOA 

2530 

4819 

BOA 

2540 

4820 

BOA 

2550 

4821 

BOA 

2560 

4822 

BOA 

2570 

4823 

BOA 

2580 

4824 

BOA 

2990 

4825 

BOA 

2600 

4826 

BOA 

2410 

4827 

BOA 

2620 

4828 

BOA 

2630 

4829 

BOA 

2640 

4830 

BOA 

2650 

4S31 

BOA 

2660 

4832 

BOA 

2670 

4833 

BOA 

26B0 

4834 

BOA 

2690 

4835 

BOA 

2700 

4836 

BOA 

2710 

4837 

804 

2720 

4836 

BOA 

2730 

4839 

BOA 

2740 

4340 

BOA 

2750 

4841 

BOA 

2760 

4842 

BOA 

2770 

4843 

BOA 

2780 

4844 

BOA 

2790 

4845 

BBOA 

2B00 

4846 

BOA 

2810 

4847 

BOA 

2B20 

4848 

BOA 

2S30 

4849 

BOA 

2840 

4890 

BOA 

2850 

4891 

BOA 

2860 

4892 

BOA 

2870 

4653 

BOA 

2880 

4894 

BOA 

2990 

4855 

BOA 

2900 

4856 

BOA 

2910 

4857 

BOA 

2920 

A858 

BOA 

29 30 

A859 

BOA 

2940 

AB60 

BOA 

2950 

AB6I 

BOA 

2960 

A 862 

BOA 

2970 

A863 

BOA 

2980 

A86A 

BOA 

2990 

A865 

BOA 

3000 

AB66 

BOA 

3010 

A867 

BOA 

3020 

A860 

BOA 

3030 

4869 

BOA 

3040 

A870 

BOA 

3050 

A871 

BOA 

3060 

A072 

BOA 

3070 

48 73 

BOA 

3080 

A8 7A 

BOA 

3090 

4875 

BOA 

3100 

A876 

BOA 

3110 

A877 

BOA 

3120 

A878 

BOA 

3130 

4879 

BOA 

3140 

4880 

BOA 

3150 

4881 

BOA 

3160 

48 82 

BOA 

3170 

4883 

304 

3190 

4884 

804 

3190 

4685 

BOA 

3200 

ABB6 

BOA 

3210 

4887 

BOA 

3220 

Asee 

004 

3230 

4889 

BOA 

3240 

4890 

BOA 

3250 

4891 

804 

3260 

4892 

BOA 

3270 

4893 

BOA 

3280 

4394 

BOA 

3290 

4895 

boa 

3300 

4 896 

BOA 

3310 

4697 

BOA 

3320 

A89B 

BOA 

3330 

4899 

BOA 

3340 

4900 

BOA 

3350 

4901 

BOA 

3360 

4902 

604 

3370 

4903 

BOA 

3380 

49 04 

BOA 

3390 

4905 
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c 

SUP » SUP /SCALE 
SUM = -SUP 

IS20 EG{J»KI’> SUH/EXECK(I> 

1530 CONTINUE 
C 
C 
C 
C 

IF (iFLGin-lt 1540,15T0.15TO 
1540 CONTINUE 

DO 15&Q J«N^ERO,^SPV 
JM» N5PV«-l-J 
00 1550 K»l»NCV 
1550 EG(JM«K> • FGIJiKI 
1560 CONTINUE 
1570 CONTINUE 
C 

c 

c 

C • SOLVE FOR INDUCED VELOCITY MATRIX • 

C 

00 1700 K«I,NCV 

00 1650 J-NZERO«ASPV 
C 

1 = J + i 

no 1580 L>>l>3 

SUMSLtLI^ 0.0 
n(LI= EVIJtKtLI 
1580 OlL)= EVIltK.LI 
VSPN= ei2l 

CALL CHQRDT<VSPN,KLE.XC04,XTE,XHE,CM,CFI 
CALL FLAPS! YSPN, XME.S .C0S3I 
YSPN= DI2I 

CALL CHDftDT<YSPN,XLE.XC04,XTE,XHE,CW,CFI 
CALL FLAPS! YSPN »XHE tD tCOSB) 

DO 1550 L»l,3 

1550 PILI- 0.5*1 BILIfOILI I 
C 

DO 1660 KG^ltNCV 

00 1650 JG^ltNSPV 
C 

1 ° JG*1 

DO 1600 L-U3 
S<LM EV(J6.KG,LI 
1600 D(LI= EV( ItKG.Li 
YSPN- B!2) 

CALL CHOROT! YSPN.XLE , XC04 , XTE , XHE , CW.CE » 
CALL FLAPS! YSPN . XHE «8 fC0S2 I 
YSPN= 0!2I 

CALL CHOROT! YSPN ,XLE ♦ XC04 t XTE . XHE. CW.C F I 
CALL FLAPS! YSPN. XHE.D.C0S2 » 

C 

CALL VORTEXIP.a.O.TANV.UNIT.VI .COS2I 
C 

DO 1610 L*1.3 

1610 SUMSL!L)= SUMSLILl - EG ( JG .KGI • VI *C0S2 !LI 
C 

IF IIFLGI5)-1I 1640,1620.1620 
1620 CALL REFLECIB.ZHEIGT.ALFAR.COSAI 
CALL REFLEC!0,ZHEIGT,ALFAR,COSA> 

C 

CALL VORTEXtP.B.D.TANVG.UNITG.VI ,C0S2) 

C 

no 1630 L=i,3 

1630 SUMSL!Li=‘ SUMSUU - EG ( JG .KGI *V1 *C0$2 IL 1 
1640 CONTINUE 
1650 CONTINUE 
1660 CONTINUE 
C 

nn 1670 L=i,3 

1670 VVINDXU.K.Ll = SUMSl ( U *E XECK! 1 1 
IF INZER3-2I I65C, 1680. 1680 
1680 M = NSPV ♦! -J 

VV tNDX!H.K,l)>= VVINDX! J.K.l) 
VVIN0X1M,X,2). -VVIN0XIJ,K,2I 
VVIN0X(M,K.3I« VVIN0XIJ.K.3I 
C 

1650 CONTINUE 
1700 CONTINUE 
C 
C 

C ♦ WING COEFFICIENTS • 

C 

FACT1=* 2.0/HINGDI6I 

FACT2= FACT1/MING0I5I 

FACTS® FACTl/HINGDIlI 

MPMO® 0.0 

WRMO= 0.0 

WYHO= 0,0 

MCLV= 0.0 

HCDV= 0.0 

MPMV® 0.0 

UR MV® 0.0 

W¥MV= 0.0 

NM-C 

no 1710 L®1,4 
1710 SUHULILI= 0,0 

c 

c 

no 1990 J-l.NSPV 

c 

YSPN* EN!J,l,2I 
YA® ABSIYSPNI 
M= -1 


B04 3400 
304 3410 
304 3420 
S04 3430 
004 3440 
B04 3450 
B04 3460 
B04 3470 
B04 3480 
B04 3490 
B04 3500 
804 3510 
B04 3520 
604 3530 
304 3540 
804 3550 
B04 3560 
B04 35T0 
B04 3580 
304 3550 
B04 3600 
804 3610 
B04 3620 
804 3630 
BO 4 3640 
B04 3650 
B04 3660 
804 3670 
B04 3680 
B04 3650 
804 3700 
B04 3710 
804 3720 
904 3730 
804 3740 
804 3750 
804 3760 
B04 3770 
804 3780 
804 3750 
804 3800 
B04 3810 
B04 3020 
B04 3830 
804 3840 
804 3850 
804 3860 
804 3070 
804 3830 
804 3890 
B04 3900 
904 35X0 
804 3520 
804 3930 
804 3940 
904 3950 
804 3960 
804 3970 
804 3980 
804 3550 
804 4000 
804 4010 
B04 4020 
804 4030 
804 4040 
804 4050 
804 4060 
804 4070 
804 4080 
804 4090 
804 4100 
804 4110 
B04 4120 
804 4130 
B04 4140 
804 4150 
804 4160 
B04 4170 
804 4180 
B04 4150 
904 4200 
R04 4210 
804 4220 
804 4230 
804 4240 
B04 4250 
B04 4260 
804 4270 
BOA 4280 
B04 4290 
BD4 4300 
804 4310 
904 4320 
B04 4330 
B04 4340 
804 4350 
B04 4360 
804 4370 
804 4380 
804 4390 
R04 4400 
B04 4410 
804 4420 
804 4430 
BO 4 4440 
BO 4 4450 


4506 

4907 

4508 

4505 

4510 

4911 

4912 

4913 
4514 

4915 

4916 

4917 
4913 
4915 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 
4528 
4525 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 
45 38 
4535 
4540 
4941 

4542 

4943 

4944 
4545 
4946 
4547 

4543 
4545 
4950 

4551 
45 52 
4553 
4954 
45 55 
49 56 
45 57 
45 58 
4555 

4560 

4561 

4562 

4563 

4564 
4965 

4566 

4567 
4963 

4569 
4970 
4571 

4972 

4973 

4974 

4975 

4976 
4577 

4570 
45 75 
4580 
4981 
45 62 
4963 
4984 
4935 
4586 
4507 
458B 
4585 

4950 

4951 

4552 
4953 
4594 
4995 
4596 
4997 
455 8 
45 95 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 
5000 

5009 

5010 

5011 
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DO 1740 L-«2,10 


BOA 4460 

9012 

tF (M) 1720,1740,1740 


B04 4470 

9013 

1720 TEST= Yft-EYF(L » 


B04 4480 

9014 

IF ITFSTI 1730,1740,1740 


BO 4 4490 

5019 

1730 «• L 


B04 4500 

9016 

1740 CONTINUF 


B04 4510 

5017 

IF CH-21 1750,1760,1760 


B04 4520 

9018 

1750 » » 2 


804 4530 

5019 

1760 Ml= M-l 


804 4540 

9020 



B04 4550 

9021 

RATS= I YA-EVE(«m/(EYEtMJ-eYE<Hll I 


SO 4 4560 

9022 

KLE = EUF<Mll ♦ »ATS*(ELE (HJ-ELEIMIH 


804 45 TO 

9023 

XHE = EHEIMll ♦ HATS* lEHElHI-EHFI Hill 


804 4580 

5024 

UNLE- lELFIHI-ELEIHlI 1 6 YE I HI -EYE! Mil I 


804 4590 

9029 

COSLE= 5QRT( 1.0*TANLE**2) 


604 4600 

9026 



804 4610 

5027 



B04 4620 

9028 

00 1960 K^ltNCV 


B04 4630 

5029 

NH« NM*1 


004 4640 

9030 



B04 4650 

9031 

COSim- VVINOXI J,K,1) 4 COSA 


e04 4660 

9032 

C0S1(2I> VVINDXt J,K,2I 


S04 4670 

9033 

C0SH3J“ VVIN0X<J,K,3I - SINA 


B04 4680 

9034 



804 4690 

5039 

I > J*1 


804 4700 

9036 

OD 1770 1=1.3 


804 4710 

5037 

B(ll= EtfIJ.K.LI 


BO 4 4720 

5038 

0(11= FV( I.K.D 


B04 4T30 

5039 

1770 P(LI= 0.5*1 BILI*D(L) 1 


804 4740 

5040 

rSPN = B(2» 


BO 4 4750 

5041 

CAIL FLAPS! VSPN, XHE. B,COS3l 


B04 4760 

9042 

rSPN = 0(2) 


B04 4770 

5043 

CALL FLAPS! YSPN, XHE ,0,C0S3) 


804 4780 

5044 

YSPN = P(2) 


B04 4790 

5045 

SUMS = 0.0 


BO 4 4800 

5046 

DO 1780 L=l,3 


804 4810 

5047 

C052IL )= D(L»-B(LI 


804 4620 

5048 

1780 SUMP = SUM8 ♦ COS2IL)**2 


804 4830 

5049 

SUMS = SQHTISUH8I 


804 4840 

5050 

no 1790 L=l,3 


804 4850 

5051 

1790 CCIS2(LI = COS2ILI/SUM8 


804 4860 

5052 



604 4870 

5053 

CALL FLAPS! YSPN, XHE, P.C0S3 ) 


804 4800 

5054 



804 4890 

5055 

CALL CftOSP(COSl,COS2,COS3l 


B04 4900 

5056 



B04 4910 

5057 

SL If T» !EY(J,K)/C0S2(2I )*EGIJ,K) 


804 4920 

5098 

c 


B04 4930 

9099 

DO 1800 1=1,3 


BO 4 4940 

9060 

1800 SUMSL(l)* 5LIFT»CCS3tU 


BO 4 4950 

9061 

c. 


B04 4960 

5062 

XAHM = Pill > WiNGDlllI 


B04 4970 

9063 

YAHM = P! 2 1 


804 4980 

9064 

£APH = P(3> - HI)«GD(12> 


B04 4490 

9069 

MPMO = MPMO ♦ 1 *A«M*SUM5LI3I ♦ 2ARM*SUMSUll 

)*EXECK(I3) 

B04 5000 

9066 

HRMO - WRMQ - ( VARM*SUMSL 131 * 2AHM*SUMSL( 2 ) 

I 

B04 5010 

5067 

HYMO = UYMO - 1 YARM*SUHSL(ll - XARH*SUMSl (2 1 

) 

B04 5020 

5068 

SCTS = -5UMSL1 11 


B04 5030 

5069 

IF (SCTSI 1810,1810,1820 


B04 5040 

5070 

1810 SCTS = 0.0 


B04 5050 

5071 

1820 5NFC = C0SLF*SCT5 


BO 4 5060 

5072 

IF (SUHSLOI) 1030,1840,1840 


B04 5070 

5073 

IB30 SNFC = -SNFC 


R04 5080 

5074 

1840 CONTINUE 


B04 5090 

5075 

HCLV- WCLV t SNFC 


B04 5100 

5076 

MCOV= MCOV f SCTS 


B04 5110 

5077 

XARM = XLE - WINGOmi 


B04 5120 

5078 

HPMV = WPHV ♦ ( XA«M*SNFC ♦ 2A«H*SCTS 1 


B04 5130 

5079 

WRNV = MRHV - ( YARN*SNFC 1 


804 5140 

5080 

WYMV WYMV - ( >AHH*SCTS I 


004 5150 

5081 

c 


B04 5160 

5002 

DO 1850 1=1,3 


804 5170 

5083 

1850 SUMWLILI- SUMMLUl ♦ SUMSL(L) 


B04 5180 

50B4 

c 


B04 5190 

5085 

c 


B04 5200 

5086 

IF lEXECK! 151-1,0 1860,1950,1950 


B04 5210 

5087 

1860 IF (IFLG! 101-2) 1550,1670,1870 


B04 5220 

5088 

1870 IF <NM-U 1880,1860,1930 


804 5230 

5089 

I860 1INES= LINFS+4 


B04 5240 

5090 

IF (tINEX-LINES) 1890,1900,1900 


604 5250 

5091 

1890 CALL PACE 


B04 5260 

5092 

L INES= LINESF4 


BD4 5270 

5093 

1900 WRITE (KDUT,1050) 


BQ4 5280 

5094 

LINES- LINESF2 


BO 4 5290 

509 5 

IF (LINEX-LINESI 1910,1920,1920 


B04 5300 

5096 

1910 CALL PAGE 


B04 5310 

5097 

LINES- LINFSF2 


BO 4 5320 

5098 

1920 WRITE IKDUT, 10601 


' B04 5330 

5099 

1930 1 INES- L INESfI 


004 5340 

5100 

If (LINFX-LIMES) 1910,1940,1940 


604 5350 

5101 

1940 CPLIFT= -2.0*SUMSl(3)/ES(J,K| 


B04 5360 

5102 

UR ITE IKOUT, 1070) J,K, (PIT ) ,1=1,3), ES!J,Rl,CPLIFT , (C0S3( 1), 

1=1, 3), (604 5370 

5103 

1VV(NDX(J,K,( ),I=1,3),EG( J,Kl 


804 5380 

5104 

19 50 CONTINUE 


804 5390 

5105 

C 


804 5400 

5106 

C 


B04 5410 

5107 

I960 CONTINUE 


804 5420 

5108 

c 


604 5430 

5109 

IF (EKECtU 15)-l,0l 1970,1590,1990 


B04 5440 

5110 

1970 IF (IFLG! 101-21 1990,1980,1980 


B04 5450 

5111 

1980 WRITE (KOUT.lOOOl 


B04 5460 

5112 

LINES=tlNESFl 


B04 5470 

5113 

1990 CONTINUE 


B04 5480 

5114 

c 


804 5490 

5115 

SUMWLI4)- 0.0 


B04 5500 

5116 

DO 2000 C-1.3 


B04 5510 

5117 


9-49 



2000 

SUMHL<4I- SUMUL14I * SUHNLIll««2 

004 5520 

sue 


SUMHL<4)>= SQATl SLKHL14H 

804 5530 

5119 


00 2010 L»lt3 

004 5540 

5120 

2010 

SUMhULIo SUHML(U/SUHWL(4l 

B04 5550 

5121 

c 


804 5560 

5122 


WCt=-fACTl*SUMWLHl*(SUMHU31 •COSA«-SUHHLt U •$ I NAI 

804 5570 

5123 


WC0= FACTl*SUM«i (41 *1 SUMHL HI 4C0S A-SUMWLt 3 1 *Sl N4) 

B04 5580 

5124 


WPM0“ WPK0*FACT2 

S04 5590 

5125 


HRHa« WRt10*FACT3 

B04 5600 

5126 


NVMO- MrH0*FACT3 

604 5610 

5127 


SNFC* FACTl*( NCLV*C0S* ♦ «C0V*SINA | 

B04 5620 

5128 


SCTS- FACT1*( NC0V4C0S* - MCLV*SlNA 1 

604 5630 

5129 


HPHV - WPHO ♦ FACT2*WP«V 

604 5640 

5130 


WRHV- HRHO * FACT34WPHV 

B04 5650 

5131 


NYHV« WYMO ♦ FACT34MYMV 

604 5660 

5132 


HCLV<' HCL - SNFC 

B04 5670 

5132 


NC0V= MCO ♦ SCTS 

804 5660 

5134 

c 


004 56 90 

5125 


IF (EXECK< 151-1. C) 2020,2050,2050 

804 5700 

5136 

2020 

LtNFSv L1NES»3 

804 5710 

5127 


IF (LINEX-LINES) 2030,2040,2040 

804 5720 

5138 

2030 

CALL PAGE 

604 5730 

5139 


GO TO 2050 

004 5740 

5140 

2040 

MRITE (KnUTtlDlOl 

804 5750 

5141 

2050 

CQNT INUE 

804 5760 

5142 

C 


004 5770 

5143 


EXECK(2t^ HCL 

804 5760 

5144 


EXECK131- HPHO 

B04 5790 

5145 


EXECKf4>« HRMO 

804 5800 

5146 


EXECM51* HYMO 

804 5810 

5147 


EXECK(6]«(HCLV-bCLI 

804 5820 

5146 


EX€CK<71«( HPMV-MPHOl 

B04 5830 

5149 


EXECM8l-( HCBV-hCDl 

804 5840 

5150 


exeCK(<»|= HCO 

804 5850 

5151 

C 


004 5860 

5152 


IF (EXECKI 151-1.0 2060,2250,2250 

804 5870 

5153 

2060 

CONTINUE 

804 5880 

5154 

C 


004 5890 

5155 

c 


004 59 CO 

5156 

c 


004 5910 

5157 

c • 

SECTION COEFFICIENTS • 

804 5920 

5158 

c 


004 5930 

5159 


NJ“ 0 

804 5940 

5160 

c 


804 5950 

5161 


no 2220 J=NZEftO,NSPV 

804 5960 

5162 

c 


B04 5970 

5163 


NJ>NJ»1 

004 5980 

51 64 

c 


804 5990 

5165 


SPHO» 0.0 

804 6000 

5166 


YSPN- EN(J,L,2I 

804 6010 

5167 

c 


804 6020 

5168 


CALLCH0RDTIVSPN,KLE,XC04,XTE,XHe,CH,CFI 

804 6030 

5169 

c 


804 6040 

51 70 


CORO> CH»*2 

804 6050 

5171 

c 


804 6060 

5172 


00 2070 L-1,4 

804 6070 

5173 

2070 

SUHSL4LM 0.0 

B04 6080 

51 74 

c 


804 6090 

5175 


no 2120 K^1,NCV 

804 6100 

5176 

c 


004 6110 

5177 


COSlIll^ VVINDXIJ,K,tl * COSA 

804 6120 

5178 


C0Sl(2iz VVIN0K(J,K,2I 

804 6130 

51 79 


COSIO)^ VVIN0XIJ,K.3I - SINA 

804 6140 

5160 

c 


804 6150 

51 B1 


I » J»1 

804 6160 

51 B2 


no 2CP0 L=l,3 

804 6170 

5103 


HIL1- EVIJ.K.Ll 

804 6180 

5184 


DILI- EVI I,K,LI 

804 6190 

5185 

2080 

PILl- 0.5*1 BIU*0(LI 1 

804 6200 

5186 


YSPN =0121 

804 6210 

5187 


CALL FLAPSIV5PN,XHE,B,C0S31 

804 6220 

5188 


YSPN = 01 21 

804 6230 

5189 


CALL FLAP5IVSPN,*HE,D,C0S31 

804 6240 

5190 


YSPN = PI21 

804 6250 

5191 


SUMR - C.O 

804 6260 

5192 


DO 2090 L=l,3 

004 6270 

5193 


CQS 2 ILM niui-em 

804 6280 

5194 

20«>O 

S0H8 " SOHB ♦ CnS2(L(**2 

804 6290 

5195 


SUMB = S3RTISUM81 

804 6300 

5196 


DO 2100 L-1,3 

B04 6310 

5197 

2100 

C0S2ILI * C0S2ILI/SUM8 

804 6320 

5198 


CALL FLAPS! YSPN, xhE ,P,C0531 

804 6330 

5199 

C 


804 6340 

5200 


CALL CROSP(CO$1,CCS2,COS3I 

804 6350 

5201 

c 


804 6360 

5202 


SL IFT- EG(J.K1/CCS2I2I 

804 6370 

5203 

c 


804 6380 

5204 

2110 

no 2110 L=l,3 

604 6390 

5205 

SUMSL(L1= SUMSLILl ♦ SLIF T*C0S3 ID 

804 6400 

5206 

C 

XARM= EVIJ.K.ll ♦ 0.5*EV( J,KI*EV(J,K,4I/EVIJ,K.51 - 

804 6410 

5207 


XCQ4 804 6420 

5208 


5PH0= SPMO ♦ SLIF T*CnS3(3l*XARM 

804 6430 

5209 

C 


804 64A0 

5210 

2120 

CONTINUE 

804 6450 

5211 

C 


BOA 6460 

5212 

2130 

DO 2130 L-1,3 

B04 6470 

5213 

SUM$LI4I= SUHSLI41 ♦ SUMSL(Li**2 

B04 6480 

5214 


SUMSLUIc SQRT(SLPSL(4II 

604 6490 

5215 


DO 2140 L=l,3 

B04 6500 

5216 

2140 

SUHSLILI- SUMSLI LI/SUMSLI41 

304 6510 

5217 

C 

SCL’> SUN5L(4I*2.G/CW 

804 6520 

5216 


004 6530 

5219 


SPMO- SPHO*2.0/CGR0 

004 6540 

5220 

c 

IF INJ-ll 2150,2150,2200 

004 6550 

5221 


304 6560 

5222 

2150 

LINES* LINFSE4 

804 6570 

5223 
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IF (LlNEX-LINESI 2160,2170,2170 

BOA 

»SBO 

9224 

2160 

CALL PAGE 

804 

6990 

S22S 


LINES- LINES*4 

804 

6600 

9226 

2170 

vrfUTE (KOUT.lOaOl 

804 

6610 

9227 


LINES-L 1NES»2 

B04 

6620 

9228 


IF ILtNEX-LINESI 2180,2190,2190 

804 

6630 

9229 

21B0 

CALL PAGF 

804 

6640 

9230 


LINES- LINES*2 

804 

6690 

9231 

21Q0 

MPITE IKOUT, 10901 

804 

6660 

9232 

2200 

LIMES= LINES-1 

B04 

6670 

9233 


IF CLINEX-LINESI 21 80,221 0.221 0 

804 

6680 

9234 

2210 

YOB- ENI J, 1,21/BCTU 

804 

6690 

9239 


SPL = 0.5*SCL*Cl»/eOTU 

e04 

6700 

9236 


SLIFT= SCl*CM*EVlJ,tl/WINCD<6) 

604 

6710 

9237 


WRITE (KQUTtllOOU, YOB, ENtJ, 1,21 

,CW,SCL,SPL,SLIFT,SPHO,<SUNSLi II. 1804 

6720 

9238 


1-1,31 

804 

6730 

9239 

C 


804 

6740 

92 40 

2220 

CONTINUE 

B04 

6790 

9241 

C 


804 

6760 

9242 

C 


BOA 

6770 

9243 


CALL INTERP(AlFik,ZHFTGr,MCL.WCD> 

804 

6780 

9244 

C 


804 

6790 

5249 

c 


804 

6800 

9246 


RATS= SORT! WC0V**2 <■ WCLVP*2 1 

804 

6810 

9247 


C0S3I1I- 1 MCOV*COSA - UCLV-SINA 

I /RATS 804 

6820 

9248 


C0S3l2i° 0.0 

804 

6830 

9249 


C3S3I31- l-HCLV-COSA - UCOV*SINA 

I/RATS 804 

6840 

9290 

c 


804 

6890 

9291 


LINES-LINESfII 

804 

6860 

9252 


IF ILINEX'LlNESI 2230,2240,2240 

804 

6870 

9293 

2230 

CALL PACE 

804 

6880 

5294 


L INES= LINES *ll 

S04 

6890 

9299 

2240 

WR [TE (KnUT,1110ltiCL,MCO.UPHO.WRHO,WrHO,ISUMML4n • 1- 1 , 31, DETERN, SCB04 

6900 

9296 

l&LE»MCLV«UCOV,MP>’V.Mft>4V.MVHV.ICOS3( 11 ,1-1*31 B04 

6910 

9257 


L INES-L INES*10 

B04 

6920 

5298 

C 


604 

6930 

5259 

C 


804 

6940 

9260 

22*50 

RETURN 

804 

6990 

9261 

C 

XXXXKX 

804 

6960 

9262 

C 


804 

6970 

5263 

C 


804 

6960 

5264 


END 

804 

6990 

5265 


V FDR BOS, 809 

BOS 

10 

9266 

C 

SOS 

20 

5267 

C 

BOS 

30 

526 8 

C 

BO 9 

40 

5269 

SUfiRQUTlNE INTERPIALFA.ZHEI&T.HCLCF.MCDCFI 

805 

SO 

9270 

C 

605 

60 

5271 

C • TRW MULTIPLE- SURFACE VOB TE X-L ATT! CE PROGRAM - REVISED 8 AUG.T2 

*805 

70 

9272 

C * PROGRAM DEVELOPED BY A. V. GOMEZ ITRW SYSTEMS! ON MARCH-MAY 1971 

• BOS 

80 

5273 

C 

80S 

90 

9274 

C XXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXKXKXXXXXKXXXXXXKXKKXXKXX909 

100 

9279 

C 

BOS 

110 

9276 

DIMENSION XFUNIIll. CPFUNI311 

BOS 

120 

5277 

DIMENSION YSPANIZZI, XCaR0I221 , SPRESI22I 

BOS 

130 

5279 

DIMENSION SLIFTI22I ,S0RACI22J ,CMDHT1221 

BOS 

140 

5279 

Ot HENS ION ALIFTI42I tADRAGI42) .AM0HTI42) 

809 

ISO 

9280 

DIMENSION FLAPNC221 ,FLAPX(22I .AFLPNI42J ,AFLPX(42» 

BOS 

160 

9281 

. DIMENSION SCLVI22),SPMV(221,SCOVIZ2) ,ACIVI42> , APHV 142 1 , ACDV< 421 

805 

170 

5282 

C 

BOS 

leo 

5283 

DIMENSION CGSl(31,C0S2(3i ,C0S3(3I 

BOS 

190 

5284 

DIMENSION SUHSLI4).B(3> ,D(31 ,P«3I 

BOS 

200 

5285 

C 

BOS 

210 

9286 

COMMON/OATAOl/KIN ,KOUT ,KT1 ,KT2 ,LINEX , LINES 

BOS 

220 

9287 

C0MMON/OATAO2/IFLGI151 ,EXECK|15) ,RAO ,PIE 

805 

230 

9288 

C0MHON/DATAO9/U|NGO(I9t ,EYI42,10) ,ECI42,10) ,ES142,10) 

80S 

240 

5289 

♦ .EYEIIOI .ELEUOl ,ETEI10I •EHE(IO) ,E&C42,10» 

BOS 

250 

5290 

*, ENI 42, 10,61 •EV(42,10,6> , VVt NDX (42 , 10 ,3 1 

80 5 

2S0 

5291 

CDMM0N/OATAO6/YFFII ,YFF12 , YFF21 , YFF22, Vf F3 1 » YFF32 » DELTF 1, DELTF2 

605 

270 

5292 

4 , noflap, NOAILR 

BOS 

2B0 

5293 

C 

BOS 

290 

5294 

OATA XFUN/ 0.0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8,0. 9, 1.0/ 

BOS 

300 

5295 

C 

H05 

310 

5296 

C 

BOS 

320 

5297 

1000 FQRMATI 1X1 

BOS 

330 

S298 

1010 FORMAT! IX,//, 1X1 

BOS 

340 

5299 

c 

605 

350 

5300 

1020 FORMAT! 41X,3RHCHCRDUt SE PRESSURE DISTRIBUTION OET A I L, / , 41X « 3S! 1H« ) BOS 

360 

9301 

l.//,19X,19!2H* 1,23HCH0P0 STATION I X-XL E) /C , 19 ! 2H *»,//, 19X, 

BOS 

370 

5302 

2 11F9.5,//,19H 2Y/B SCL ,18!2H« l,29HCHORO PRESSJRE ICPL 

BOS 

380 

9303 

3-CPUI*UL,l‘»(2H «1,/,1X 1 

BOS 

390 

5304 

1030 FORMAT! IX, I3f 9. 5 1 

805 

400 

5309 

C 

609 

410 

5306 

1040 FQRMAT!41X.41hSPANWISE SECTION LIFT DISTRIBUTION DETA IL ,/ . 4 IX .41 1 1D05 

420 

530 7 

1H41,//,33X,15HW1TH LE SUCTI ON.l 6X .13HN0 LE SUCTION, 17K , 12HFLAP/ AIL 805 

430 

5308 

2ER0N.//,5X,20H V 2V/B ,2!30H SCL SCO! SCMIB05 

440 

5309 

3C/4M, 30H FCN FCX FCH ,/,lXl 

BOS 

450 

9310 

1050 F0RM4TI5X,F10.3,1CF10.6 1 

BOS 

460 

S311 

C 

805 

470 

5312 

1060 FORMAT! IX./. IX, 14HIEDF PLOT FILE,I3,1HI > 

SOS 

480 

5313 

C 

809 

490 

5314 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXKB09 

500 

5315 

c 

BOS 

510 

5316 

c 

BOS 

520 

5317 

c 

BOS 

530 

531B 

c 

805 

540 

5319 

C * INITIALIZE * 

BOS 

550 

5320 

C 

BOS 

S60 

5321 

IF IlFLGl 111-1) 1630,1070,1070 

809 

570 

5322 

1070 CONTINUE 

BOS 

SBO 

5323 

C 

BOS 

590 

5324 

ZERO - 0.0 

BOS 

600 

5325 

ZER01= 0.0 

603 

610 

5326 
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2Eft02= 0.0 

aos 

620 

5327 

c 


BO 5 

630 

5326 


NO^ 0 

BOS 

640 

5329 


Nl= 1 

BOS 

6S0 

5330 


N2= 2 

805 

660 

5331 


NSPV ’I tfLG(3> 

60S 

670 

5332 


NCV > IEIG16I 

805 

6 BO 

5333 

c 


BOS 

690 

5334 


IHEC4 « 1 

BOS 

7 00 

5335 


lUORDl- 2 

BOS 

no 

5336 


IU0RD2> 10 

BOS 

720 

5337 

c 


BOS 

730 

533B 


SPAN X HINGDI 11 

BOS 

740 

5339 


UAREA- MINGOIGI 

BOS 

750 

5340 


HMGC « HINGDI 91 

BOS 

760 

5341 


BOTU > SPAN/2.0 

BOS 

770 

5342 

c 


, BOS 

7B0 

5343 


eETAN> EXECKI 11 

BOS 

790 

5344 


HCL > EXECKI21 

BOS 

800 

5345 


HPRO - EKECKO) 

BOS 

810 

5346 


HRHO > EXECKIAl 

BOS 

820 

5347 


HYMO - EXECKI51 

BOS 

830 

5348 

c 


BOS 

840 

5349 


FACTl* 2.0/HINGO(el 

BOS 

850 

5350 


FACTE- FACTI/HING0I91 

BOS 

860 

5351 


FACT3- FACTl/HtNCOI 1) 

BOS 

870 

5352 

c 


DOS 

880 

5353 


ALFAR- ALFA/RAD 

BOS 

090 

5354 


TANA - TAHIALFARI 

BOS 

900 

5355 


CO$A - 1.0/SQRTI 1.0«TANA«*2I 

BOS 

910 

5356 


SINA c TANA*CQSA 

BOS 

920 

5357 

c 


BOS 

930 

535B 


NZERO- 1 

BOS 

940 

5359 


IF (IFLCIll'll 10a0fl090tl090 

BOS 

950 

5360 

lOBO 

CONTINUE 

BOS 

960 

5361 


NSP02- NSPV/2 

905 

970 

5362 


NTEST- NSPV-NSPQ2*2 

005 

980 

5363 


N2ER0- NSP02 » 1 

BOS 

990 

5364 

1090 

CONTINUE 

BOS 

1000 

5365 

c 


BOS 

1010 

5366 


LINES- LINES *3 

BOS 

1020 

5367 


IF {LINEX*tINESl 1100.1110.1110 

BOS 

1030 

536B 

1100 

CALL PAGE 

BOS 

1040 

5369 


LINES- LINES 

905 

lOSO 

5370 

1110 

WRITE (KOUT. 10101 

BOS 

1060 

5371 

c 


905 

1070 

5372 

c 


BOS 

1060 

5373 

c 


BOS 

1090 

5374 

c ♦ 

SECTION COEFFICIENTS • 

005 

1100 

5375 

c 


805 

1110 

5376 


NJ- 0 

BOS 

1120 

5377 

c 


BOS 

1130 

5378 

c 


BOS 

1140 

5379 


NSPAN « 0 

BOS 

USO 

5380 

c 


BOS 

1160 

S381 

c 


BOS 

1170 

53B2 


DO 1390 3-NZERO.NSPV 

BOS 

IIBO 

5383 

c 


BOS 

1190 

S3B4 


J2- J+1 

BOS 

1200 

53S5 


N3-NJ4^1 

80S 

1210 

5366 


NSPAN - NSPAN41 

605 

1220 

5387 

c 


BOS 

1230 

5388 


YSPN- ENU.1.21 

BOS 

1240 

5389 

c 


BOS 

1250 

5390 


YA- ABSIYSPNI 

BOS 

1260 

5391 


«- -1 

BOS 

1270 

5392 


00 1140 L-2,t0 

BOS 

1280 

5393 


IF INI 1120.1140.1140 

BOS 

1290 

5394 

1120 

TEST- YA-EYEILI 

BOS 

1300 

5395 


IF (TESTI 1130.1130,1140 

BOS 

1310 

5396 

1130 

N- L 

BOS 

1320 

5397 

1140 

CONT INUE 

805 

1330 

5398 


IF IN>2I 1150. 116C. 1160 

BOS 

1340 

5399 

1150 

H- 2 

BOS 

1350 

5400 

1160 

Ml- M-1 

BOS 

1360 

5401 

C 


BOS 

1370 

5402 


RATS- 1 YA-EYE(MM1/(EYE IHt-EYElNlI ) 

BOS 

13B0 

5403 


XLE - ELEIMII ♦ RATS*1 ELE 1 Ml -ELE t Ml 1 1 

BOS 

1390 

5404 


XTE - ETECHll ♦ RATS*l ETE ( Ml -E TE INI 1 1 

BOS 

1400 

5405 


XHE » EHEIHH ♦ PATS*( EHE IHI -EHEI Ml 1 1 

BOS 

1410 

5406 


CH - XTE- XLE 

BOS 

1420 

5407 


CF - XTE- XHE 

005 

1430 

5408 


XC04- XLE ♦ CHP0.25 

90S 

1440 

5409 


TANLF = (ELEIMI-ELEIMlM/lEYEIMI-EYEIMlll 

605 

1450 

5410 


COSLE - SORT! 1.0 * TANLE«*2I 

805 

1460 

5411 

C 


805 

1470 

5412 


COHO- CH**2 

005 

1460 

5413 

c 


005 

1490 

5414 

c 


805 

1500 

5415 

c * 

SECT ION LIFT LOOP • 

BOS 

1510 

5416 

c 


BOS 

1520 

5417 


NX - 0 

BOS 

1530 

5416 

c 


BOS 

1540 

5419 


SPHO- 0.0 

805 

1550 

5420 

c 


805 

1560 

5421 


DO 1170 L-1.4 

605 

1570 

5422 

1170 

SUMSLILI- 0.0 

BOS 

1500 

5423 

C 


805 

1590 

5424 


00 1220 K-l.NCtf 

005 

1600 

5425 

c 


BO 5 

1610 

5426 


NX= NX*1 

605 

1620 

5427 

c 


BOS 

1630 

5426 


COSlIlt- VVINOKU.K.ll ♦ COSA 

BOS 

1640 

5429 


casual- VVINDXIJ.K.2) 

BOS 

1650 

5430 


COSim- VVINOXtJ.K.31 - SINA 

BOS 

1660 

5431 

c 


BOS 

1670 

5432 
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I - J*1 

SOS 

1660 

S433 


00 IIRO L*l,3 

BOS 

1690 

S436 


aiu> EvUtKtU 

BOS 

1700 

5435 


0(L>« EV(I*K,L) 

BOS 

1710 

5436 

1180 

P<L|3 0 . 5*1 a<L)4DIC) 1 

BOS 

1720 

S437 


YSPN =0(21 

BOS 

1730 

S438 


CALL FLAPS! YSPNt>HE*a,C0S31 

SOS 

1740 

5439 


YSPN - 0(2) 

BOS 

1750 

5440 


CALL FLAPS! YSPN, >HE,0,C0S3I 

BOS 

1760 

5441 


YSPN = P!21 

805 

1770 

5442 


S0M8 - 0.0 

BOS 

1780 

5443 


00 1190 L-1,3 

BOS 

1790 

5444 


C0S2(LI“ DILJ-BILI 

BOS 

IBOO 

S44S 

1190 

SUM8 = SUMB ♦ C0S2!L1«*2 

805. 

leio 

S446 


SUMB = SORTlSUnSI 

BOS 

IB20 

3447 


r>Q 1200 L = l,3 

BOS 

1830 

S44B 

1200 

C0S2(L1 = C0S2!U/SUM8 

805 

1840 

5449 

C 


BOS 

1B50 

3450 


CALL FLAPS! YSPN, XHE,P,C0S3] 

BOS 

1860 

5451 

C 


005 

1870 

5452 


CALL C«OSP(COS1,CCS2,COS31 

BOS 

IBBO 

5453 

C 


BOS 

1B90 

5454 


2L IFT= EG(J,K)/CaS2!21 

BOS 

1900 

5455 

C 


805 

1910 

5456 


SPRES!NXI= Z.0*ZHFT*C0S3!3> /EC!J,KI 

605 

1920 

5*57 


XC0RD!NX1« (PIll-XLEl/CN 

BOS 

1930 

5458 

C 


BOS 

1940 

5*59 


DO 1210 L=l,3 

aos 

1950 

5*60 

1210 

SUHSULI= SUMSLILI * ZLl F T»C0S3 ( LI 

aos 

1960 

5*61 

C 


80S 

1970 

5*62 


XARM= P<11-XC04 

BOS 

1980 

5*63 


SPNO= SPMO ♦ ZLlFT*C0S3(31*XAftH 

605 

1990 

5*6* 

c 


BOS 

2000 

5*65 

1220 

CONTINUE 

805 

2010 

5*66 

C 


805 

2020 

5*67 

C 


BOS 

2030 

5*68 


FLAPN!NSPAN) = - 2.0*ZL I FT*C0S3!3I /EC U , NC V) 

805 

2040 

5*69 


FlAPXINSPAN) = 2.0*ZLIFT*C0S3!ll/ECIJ,tCVl 

BOS 

2050 

5*70 

C 


005 

2060 

5*71 


no 1230 L=l,3 

605 

2070 

5*72 

1230 

SUMSL141- 5UMSL(4> + SUKSLa»**2 

BOS 

2080 

5*73 


SUMSLI4)= SORT! S0PSL(4n 

BOS 

2090 

5*7* 


00 1240 L=l,3 

805 

2100 

5*75 

12AO 

SliMSL(LI= SUMSL!LI/SUMSLI4I 

BOS 

2110 

5*76 


SUMSL(4I= 2.0=SLFSL(41 /CW 

805 

2120 

5*77 

C 


605 

2130 

5*78 

C 


805 

2140 

5*79 


NX= NX+1 

B05 

2150 

5*80 


SPRES(NXI= 0,0 

80 5 

2160 

5*81 


XCORD!NXI» 1.0 

BO 5 

2170 

5*82 

C 


B05 

21S0 

54B3 


CALL CURF I T! XCORO,SPRE S.ALIFT, NK,ZER01,ZER02,N2 ,n2) 

BO 5 

2190 

5*8* 

C 


605 

2200 

5*85 


rSPANlNSPANI- YSPN/aOTU 

S05 

2210 

5*86 


SL IFT!NSPAN)~>SUHSU4I*ISUNSL!3I*C0SA *■ SUNSLl 1)*SINAI 

B05 

2220 

5*87 


SDRAO<NSPAN)= SUPSL ! 4 1 • ( SUP<SL 1 1) «COSA • SUMSLI3 l*S I NA 1 

B05 

22 30 

5*88 


CMnMT!NSPANI= 2. 0*SPMO/CORD 

BOS 

2240 

5*89 


SCTS * -SUHSL(4|*SU»1SL!U 

005 

2250 

5*90 


IF (SCTSI 1250,1250,1260 

60 5 

2260 

5*91 

1250 

SCTS - 0.0 

805 

2270 

5*92 

1260 

SNFC - COSLE*SCTS 

BOS 

22B0 

5*93 


IF (SUMSLOn 1270,1280.1280 

BOS 

2290 

5*9* 

1270 

SNFC= -SNFC 

R05 

2300 

5*95 

12PO 

CONT INOF. 

BOS 

2310 

5*96 


SCLVINSPANl = SLIFTINSPANI - SNFC*COSA - SCTS*S1MA 

ao5 

2320 

5*97 


SCDVINSPANI = SORAGINSPANI +SCTS*CaSA - SNfC*SINA 

BO 5 

2330 

5*98 


SPMVINSPAN) = CMCPTINSPANI - SNFC*!XCa4-XL£» /CW 

BOS 

2340 

5*99 

C 


905 

2350 

5500 

C 


BOS 

2360 

5501 

C 


605 

2370 

5502 


DKARG= XCOROlNXl/aO.O 

SOS 

2380 

5503 

c 


ao5 

2390 

SSO* 


DO 1300 K=l,31 

805 

2400 

5505 

c 


805 

2410 

5506 


XARG - OKAR&PFLOATlK-l) 

805 

2420 

5507 


YAR6 - 0.0 

60 5 

2430 

5500 

c 


805 

2440 

5509 


IF IK-11 1300, I3CC«1290 

805 

2450 

5510 

1290 

CONTINUE 

BOS 

2460 

5511 

c 


BOS 

2470 

5512 

c 


R05 

2480 

5513 


CALL CURVEIXCORO.SPREStALIFT, X ARG , YARG ,DUHYK, NX , Nl 1 

005 

2490 

551* 

c 


BOS 

2500 

5515 

1300 

CPFON!KI= -YARG 

BOS 

2510 

S5I6 

C 


BOS 

2520 

5517 

C 


605 

2530 

5518 


IF IJ-NZEROi 1310,1310,1340 

aos 

2540 

5519 

1310 

LINES= LINES ♦ 9 

aos 

2550 

5520 


IF ILINEX-LINESI 1320,1330,1330 

80 5 

2560 

5521 

1320 

CALL PAGE 

005 

2570 

5522 


LINES- LINES *9 

805 

2580 

5523 

1330 

WRITE IK0UT,lO20HXFONm ,1=1 .111 

BOS 

2590 

552* 

1340 

IF (LINEX-LINESI 1320,1350,1350 

BOS 

2600 

5525 

1350 

LINES- LINESyI 

BO 5 

2610 

5526 


HP ITE !K3Ur,1030)YSPAN(NSPAN) ,SLIF Tl NSPANI . 1 CPFUN 1 1 1, 1=1,31,31 

005 

2620 

5527 

C 


005 

2630 

552 8 

C 


005 

2640 

5529 


IF 1 IFLG! 131-1 1 1390.1360,1360 

BOS 

2650 

5530 

1360 

CONTINUE 

60 5 

2660 

5531 

C 


BOS 

2670 

5532 


DO 1370 K=l,3l 

805 

2680 

5533 


XARG = OXAPG*fLOATIK-ll 

BOS 

2690 

553* 

1370 

HR ITEIKT21 IPEC4, I hORDl , XARG.C PFUNI K1 

605 

2700 

5535 


IREC4 = IREC4 * 1 

BOS 

2710 

5536 


IF IJ-NSPV) 1390,1380,1380 

805 

2720 

55 37 

1380 

FNO FILE KT2 

BO 5 

2730 

5538 


9-53 




I#EC9« 1 

B05 2790 


5539 


LiNES= UNES *2 

BOS 2750 


5590 


IFLCUSJ^ IFLGI 151 *l 

605 2760 


5591 


WRITE (KDUTi1060)1FL6I1S1 

B05 2770 


5592 

c 


BOS 2780 


5593 

c 


605 2790 


5599 

1390 

CONTINUE 

BOS 2800 


5595 

C 


BOS 2810 


5596 

c 


BOS 2820 


5547 


LINES- LINES«3 

BOS 2830 


5598 


IF lUNEX-LINESI 1900,1910.1910 

BOS 2890 


5599 

1900 

CALL PAGE 

BOS 2850 


5550 


LINES- LINES93 

BOS 2860 


5551 


GO TO 1920 

805 2870 


5552 

1910 

WRITE fKDUT.lOlbl 

BOS 2880 


5553 

1920 

CONTINUE 

805 2890 


5559 

C 

, 

805 2900 


5555 

C 


BOS 2910 


5556 

C 


BOS 2920 


5557 


CALL CURFITIVSFAN, SLIFT.ALIFT, NSPAN.ZEROl , 1ER02 ,N2# N2I 

805 2930 


5558 


CALL CURFITI VSPAN, SORAC.AORAC, N$I>AN,2 EROt . 1ER02 .N2, N2I 

805 2990 


5559 


CALI CURFITIYSPAR, CMOHT.ANQMT, NSPAN.ZEROl ,2ERQ2,N2. N21 

805 2950 


5560 


CALL CURFlTlrSPAK, FLAPN,AFLPN, NSPAN.ZEROl ,ZERa2,N2* N2) 

805 2960 


5561 


CALL CURFITirSPAN. FLAPX.AFLPX, NSPAN,ZEROI , ZER02 ,N2. N2I 

809 2970 


5562 


CALL CURFITIVSPAN* SCLV, ACLV, NSPAN.ZEROl . ZE R02 ,N2< N21 

805 2980 


SS63 


CALL CURFITIVSPAN, $CDV. ACDV, NSPAN.ZEROl , ZER02 ,N2, N2) 

BOS 2990 


5569 


CALL CURFITIVSPAN, SPNV, APNV, NSPAN.ZEROl . ZER02 *N2, N2 1 

BOS 3000 


5565 

c 


BOS 3010 


5566 

c 


BOS 3020 


5567 

c 


BOS 3030 


5568 


0ELTA8 = KO/20.0 

805 3090 


5569 


WCtCF = 0.0 

BOS 3050 


5570 


WCDCF - 0.0 

BOS 3060 


5571 


SUMSS - 0.0 

805 3070 


5572 

c 


BOS 3080 


5573 


DO 1580 J-1,91 

BOS 3090 


5579 

c 


BOS 3100 


5575 


YOB- OELTAB*FLOAT(J-l) - l.O 

BOS 3110 


5576 


YOeO- YO0 

605 3120 


5577 


YSPN= YOBQ9BOTU 

BOS 3130 


5578 

c 


BOS 3190 


5579 


IF (NZERO-lt 199C.1990.L430 

BOS 3150 


sseo 

1930 

YOB= ABSIVQBI 

805 3160 


SSBl 

1990 

CONTINUE 

805 3170 


SS82 

C 


BOS 3180 


5563 


CL = 0.0 

BOS 3190 


5569 


CD = 0.0 

BOS 3200 


5585 


CM » 0.0 

BOS 3210 


5586 


CLV - 0.0 

BOS 3220 


5567 


CDV - 0.0 

BOS 3230 


5588 


CPV - 0.0 

BOS 3290 


5589 


FCN - 0.0 

BOS 3250 


5590 


FCX « 0.0 

BOS 3260 


5591 

C 


BOS 3270 


5592 


TEST- A8SIY08I - 0.999 

805 3280 


5593 


IF {TEST) 1950.1960,1960 

BOS 3290 


5599 

1950 

CONTINUE 

BOS 3300 


5595 

C 


BOS 3310 


5596 


CALL CURVEIYSPAN, SLIFT.ALIFT, YOB. CL. 0UHVR.N5PAN.N1) 

BOS 3320 


5597 


CALL CURVE! YSP AN. SORAC.AORAC. YOB. CO. OUNVK.NSPAN.NU 

BOS 3330 


5598 


CALL CUAVEIVSPAN.CHOwr.AMCHT, VQB.CM, DUWVK.NS PAN ,NU 

805 3390 


5599 


CALL CURVE (YSPAN.FLAPN.AFLPN. Y0B.FCN.0UNVK.NSPAN.N1I 

BOS 3350 


9600 


CALL CURVE (VSPAN. FLAPX.AFLPX. YOB.FCX.OUNYK.NSPAN.Nl) 

805 3360 


5601 


CALL CURVE! VSPAN. SCLV. ACLV. YOB .CLV.DUNVK. NSPAN .Nil 

BOS 3370 


5602 


CALL CURVE(VSPAN. $COV. ACDV, YOB .COV.OUNYK .NSPAN ■ Nil 

BOS 33B0 


5603 


CALL CURVE (VSPAN. SPMV. APNV. YOB.CPV.OUNYK.NSPAN , Nl) 

BOS 3390 


5609 

c 


BOS 3900 


5605 

1960 

CONTINUE 

805 3910 


5606 

C 


BOS 3920 


5607 


CALL CHOROT!VSPN,XLE.KC09.XTE .XHE.CW.CFI 

BOS 3930 


5608 

c 


BOS 3990 


5609 


FCM - -FCN/9.0 

805 3950 


5610 

c 


BQ5 3960 


5611 


CLCl = CL-CW 

805 3970 


5612 


CDCl - CO*CW 

BOS 3980 


5613 


CMCI = CW 

BOS 3990 


5619 

c 


805 3500 


5615 


IF !J-1I 1980.19E0.1970 

80S 3510 


5616 

1970 

WCLCF - HCLCF ♦ OELTAB- (CLC1*CLC2I 

BOS 3520 


5617 


WCOCF = WCDCF *■ OELTA8*!COC1*COC2J 

805 3530 


5618 


SUNSS = SUN5S ♦ OELTA0*!CWC1*CWC21 

BOS 3590 


5619 

1980 

CLC2 - CLCl 

BOS 3550 


5620 


CDC2 = CDCl 

805 3560 


5621 


CWC2 - CWCl 

BOS 3570 


5622 

c 


SOS 3580 


5623 

c 


BOS 3590 


5629 

c 


80S 3600 


5625 


IF !J-1I 1990. 195C, 1520 

805 3610 


5626 

1990 

LINES- LlNES+7 

BOS 3620 


5627 


IF !LtNEX-LINESI 1500,1510,1510 

BOS 3630 


S628 

1500 

CALL PACE 

BOS 3690 


5629 


LINES- LINES*7 

BOS 3650 


5630 

1510 

WR ITE IKOUT, 1090) 

BOS 3660 


5631 

1520 

IF ILINEX-LINESt 1500.1530.1530 

BOS 3670 


5632 

1530 

LINES- LINES *1 

BOS 3680 


5633 


NOFLPK= NOFLAP ♦ NOAILR 

BOS 3690 


5639 


IF INOFLPXI 1590,1590.1550 

BOS 3700 


5635 

1590 

WR ITE IKOUT.lOSflIVSPN.YOBO.CL ,CD,C H.CLV.CDV.CPW 

B05 3710 


5636 


GO TO 1560 

BOS 3720 


5637 

1550 

WRITE (KOUT,105CIVSPN,VOBO,CL,CO,CH,CLV,CDV,CPV,FCN,FCX,FCM 

BOS 3730 


5638 

1560 

CONTINUE 

BOS 3790 


5639 

C 


805 3750 


5640 


IF (IFLG!19)-1) 1580,1570,1570 

BOS 3760 


5691 

1570 

WR ITEIKT2) IftEC9,IWORD2,YOBO.CL,CO,CM,FCN,FCX,FCN,CLV,CDV,CPV 

805 3770 


5692 

C 


805 3780 


5693 

C 


805 3790 


5699 




ORIGINAL PAGE IS 


C 9-54 


OF 

POOR QUALITY 



15 BO CONTINUE 
C 

c 

NCLCF « net 
NCOCF « MCDCF/SUMSS 
C 
C 

LtNES=' LtNES*3 

IF ILlNEX-LtNESI 1540.1600,1600 
1540 CALL PAGE 

LIMES’ LINES*5 
1600 WRITE IKOUT, 10101 
C 

IF IIFLCIIAI-U 1520,1610,1610 
1610 END FILE KT2 

LINES- LINES *2 
IFLGI 151= IFLCI ISI *I 
WRITE IKQUT, 1060IIFLGI 151 
1620 CONTINUE 
C 

c 

c 

1630 RETURN 
C XXXXXX 

C 
C 

END 


SOS 3S00 w** 
605 3810 5666 
B05 3820 566T 
805 3030 56*8 
805 3860 5669 
005 3850 5650 
805 3860 5691 
809 3870 9652 
809 3880 5653 
809 3890 5656 
809 3900 5655 
805 3910 5656 
a05 3920 5657 
805 3930 5658 
809 3960 9659 
605 3950 9660 
605 3960 5661 
805 3970 5662 
905 3980 5663 
905 3990 5666 
805 6000 5665 
805 6010 5666 
905 6020 5667 
905 6030 5668 
805 6060 5669 
805 6050 5670 
805 6060 5671 


V EHR 906,806 
C 


SUBRnuTINE 0LIN£BIALFA,ZHEICT,ALFAL.WINGCL,NJ0BL1 806 

806 

* TRW MULT IPLE- SURFACE VORTEX-LATTICE PROGRAM - REVISED B AUG. 72 *806 

* PROGRAM DEVELOPED RV A.V.C0ME2 (TRW SYSTEMS) ON MARCH-HAY 1971 *806 

806 

XXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXB06 

806 

DIMENSION YSPANI22) 605 

ntMENSION ALFALI20I, UIN0CLI21I 806 

DIMENSION CL61(32).CL9I321,RCLI2,32» ,ftCHI2,32) ,«YSPANI32) 806 

DIMENSION 5CLV(221,SPMVI22) ,SC0VI22I , ACLVI 62 1 , APMV 162 I , ACDVI 621 606 

DIMENSION RCD(2,321 ,BCLV(2,321 ,RC0V(2,32I ,ftPMV12.321 806 

DIMENSION WCL VSI 21 ,UCDVSI2I ,WCPVS(2) , WCPOS 12 1 >HCDIS 1 2 1 606 

DIMENSION SLIETI221,SDPAGI22I,CMQHTI22I B06 

DIMENSION ALIFTI62I ,A0RAG162I ,AMDMT(62| 806 

DIMENSION FLAPNI 221 ,FLAPXI22I ,AFLPN(62I .4FLPXI62I 806 

DIMENSION flCFLI2,32l, fiCFDI2,321 806 

- 806 

DIMENSION C051(31,CDS2I3I ,C0S3I31 806 

DIMENSION SUMSLI6I, 8131 ,013), PI3I 806 

DIMENSION MCD3(3I,MCL3(3) .MCL6I3) 806 

■ 606 

COHMON/DATAOl/K IN ,XOUT ,KT| ,KT2 ,L1N£X .LINES B06 

CnMMON/DATA02/IFL6I151 ,EXECKI15) ,RAO ,PIE 906 

COMMaN/OATA05/WINGOIl51 ,EYI62,10I .EC(62.10I ,ESI62,10I 806 

*, EYE) 101 .ELFIIO) .ETEdOl .EMEIIO) ,£G(62,10I 806 

*,ENI 62, 10,6) ,EVI62,ID,6I ,VVINDX 162 , 10 .31 806 

• C0MHON/0ATA06/YFFll,rFF12,YFF2l.YFF22,VFF3l,YFF32,D£LTFl,DELTF2 806 
• ,NDFLAP,NOAILR 906 

C0MMON/OATA07/LELAP,L0R4G 806 

806 

- 806 

^ 806 

tooo FDRMATI 1X1 806 

1010 FORMAT! IX,//, IX) 806 

806 

'l020 FORHATI62X,35HLINEARIZED SOLUTION WITH LE SUCT I 0N/62X35 ( IM* 1/ /25X, 906 


COHMON/DATAOl/K IN ,XOUT 
CnMHaN/DATAa2/lFLG(15) 
COMMaN/OATA05/WINGOIl51 
•.EYFIIOI .ELFIIO) 


,KTI ,KT2 
,F XECKI15I 
,FYI62,10I 
.ETEdOl 


.LINEX .LINES 
,RAO ,PIE 
.ECI62.10I 
•EHEI 10) 


1 60H ALFA ALFARO MCI 

2 lOH CMY ,/,65X,60H 

3, 25X.2F10, 3,F 10.6.6E 10.5 ,///,lX) 

1030 FORMAT! 30X ,50H Y 2Y/I 

1 iOM sen! 1/6). /.IX I 

1060 FORMATOOX, FIO.3, 5F10.5 ) 


CHR , 906 
SLDPE//B06 
806 
806 

SCL . 906 
806 
606 
806 
806 


1050 FDRHATI36K.15HWITH LF SUC Tt QN,16X ,13HN0 LE SUCT ION, 17X , 12HFLAP/ A IL0O6 
1ERON,//,5X,20H V 2V/6 ,2I30H SCL SCDI SCHI 806 

2C/6H, 30H FCN FCX FCH ,/ , IX I 806 

1060 FQRHATI5X,F10.3,IOF10.6I 606 

C 806 

1070 FORMAT! IX,/, 17X,1«HWITH LE SUCTION ,6H«CL- ,F 10.5 , 9H f WCDI=,F10.B06 
15, 12M t UCHIC /6) -,F 10. 5, 7H / L /D-.FIO. 5 ,/ ,18X,13 UNO LE SUCTION, 6X806 
2, 6X,F10.5,2H /,£X,fl0.5,2H /.lOX.f 10.5 ,2H /,5X,F10.5 I 806 

C 666 

lOBO F3RHATI61X,3THLINEABI ZED SOLUTION WING COEF F ICI ENTS,/ ,61X , 371 IH* I , B06 

1 //,66X,15HUITH LE SUC TI 0N.17X .13HN0 LE SUCTION,//, 806 

2 30X.5HALFA . 2I30H HCL WCD HCM IC/6 1 I , / , IX 1 606 

1040 FORMAT! 25X, F10.3, 6F10.6 I 806 

C 606 

UOO EORHATI IX, /, IX ,16H! EOF PLOT FILE,I3,1HI I 806 

C 606 

C XXXXXXKXXXXXXXXX»XXXXXXXXXXXXKXXKXKXXXXXXXXXXXXKXXXXXXXXXXXKXXXXXXB06 

C 806 

C 806 

f- 806 

C 8°* 

C * INITIALIZE • 806 

C 

M0= 0 

Nl’ I 806 


5672 

5673 
5676 

5675 

5676 

5677 

5678 

5679 

9680 

9681 
96 82 
5683 
5686 
968 S 
56B6 
96B7 
56B8 
96B9 

5690 

5691 

5692 

5693 
9696 

9695 

9696 

9697 
5698 
56 99 
5700 
5T01 
5T02 
5703 
5706 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 
5716 

5715 

5716 

5717 
5710 

5719 

5720 

5721 

5722 

5723 
5726 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 
5736 

5735 

5736 

5737 
5736 
5739 

5760 

5761 

5762 

5763 
5766 

5765 

5766 

5767 


9-55 



NSPV = IFLGO) 

MCV - IFLG(fi> 

NCtFLG^^ 1 
C 

ZERO • 0.0 
ZER01= 0.0 
ZER02” 0.0 
C 

SPAN =■ MINCnll) 

WAREA- WINGn(6l 
MNGC « WING0(9) 

BOTU - SPAN/2.0 
C 

FACT1>= 2.0/UtNC0<«) 

FACT2= FiCTl/WIN0D(9» 

FACT3= FACTI/mINGOUI 
5K1NFC* EXECKI 101*2.0 
OELALF- EXECKl 121 
EXECKU5) > 2.0 
C 

NZER0> 1 

IF (IFLCm-l) 1110.1120,1120 
1110 CONTINUE 

NSP02=> NSPV/2 
NTEST- NSPV-NSP02*2 
NZERO* NSP02 ♦ 1 
1120 CONTINUE 
C 
C 
C 

c 

C » LINEAR IZFO LIFT TliD PASS LOOP * 

C 

DO IA20 NCLC-1,2 
C 

IF INCLFLGI 1130.1140,1190 
1130 ALFA’ ALFA * OELALF 
C 

CALL OLIFTI ALFA.ZHEIGTl 
C 

CO TO 1150 
1140 NCLFLG- -1 
C 

8ETAH= exECKin 

NCL = execKi2» 

WPHO = EKECKI3) 

WRHO ’ EXECKI41 
WYMO « EKFCKI51 
C 

1150 CONTINUE 
C 

c 

ALFAR« ALFA/RAO 

TANA « TANIALFARI 

COSA > l.O/SORTl l.0*TANA**2) 

SINA ’ TANA4C0SA 
WCPOSINCLO’ EXECKI31 
WCLVSINCLC I’ EXECkIA) 

WCOVSINCLO’ EXECKIft) 

WCPVSINCLCl- EXECKI7) 

WCOISINCLCl- EXECKI9) 

C 

c 

c 

c 

C • SECTION COEFFICIENTS ♦ 

C 

NJ= Q 
C 
C 

NSPAN = 0 
C 
C 

on 1330 J’NZERO.NSPV 

c 

J2’ J+1 
NJ =NJ*1 

NSPAN ’ NSPAN*1 
C 

rSPN’ FNU.1,2) 

c 

YA= AflSlYSPNl 
N ’ -1 
C 

no 1180 L=2tlO 
IF IN) 1160,1180,1180 
1160 TEST’ VA-EYFILl 

IF ITESTI 1170,1170,1160 
1170 M= L 
1180 CONTINUE 

IF IM-21 1190, 12CC, 1200 
1190 H’ 2 
1200 HI’ H- I 
C 

RATS’ lYA-EYEIMI | 1/ IE YE IN l-EVE < HI I 1 
XLE = FLEIHII «■ RATS*! E Lf I M)-£ LE ( Ml 1 1 

XTE = ETEIMII RATS*! E TF ( Ml-E TE I Ml 1 I 

XHE = EHEIMII ♦ RATS*! EHE ( Ml-EHE ( Ml 1 I 

CW « XTE-XLE 

CF = XTE- XHE 

XC04= XLE * C 8*0.25 

TANLF = lELFIMl-ELElMlI I /IEYEIMI-EYE4M1II 
CDSLE ’ S9RTI |.0*TANLE**2I 
C 

CORO= CN**2 
C 


006 770 
B06 790 
806 790 

806 eoo 

906 910 
606 620 
006 830 
906 640 
806 650 
806 860 
B06 870 
906 880 
806 S90 
B06 900 
906 910 
B06 920 
906 930 
906 940 
B06 950 
906 960 
B06 970 
906 9B0 
606 990 
906 1000 
606 1010 
B06 1020 
906 1030 
906 1040 
906 1050 
B06 1060 
906 1070 
906 1080 
B06 1090 
B06 1100 
B06 1110 
B06 1120 
806 1130 
BOS 1140 
B06 1150 
BOS 1160 
806 1170 
806 1180 
906 1190 
806 1200 
806 1210 
806 1220 
806 1230 
806 1240 
806 1250 
806 1260 
806 1270 
906 1280 
e06 1290 
906 1300 
906 1310 
906 1320 
906 1330 
906 1340 
906 1350 
806 1360 
906 1370 
906 1330 
BD6 1390 
906 1400 
B06 1410 
806 1420 
806 1430 
906 1440 
906 1450 
906 1460 
906 1470 
806 1480 
806 1490 
806 1500 
906 1510 
BD6 1520 
906 1330 
906 1540 
806 1550 
806 1560 
806 1570 
906 1580 
906 1590 
906 1600 
906 1610 
806 1620 
906 1630 
806 1640 
806 1650 
B06 1660 
B06 1670 
806 1690 
806 1690 
006 1700 
906 1710 
806 1720 
B06 1730 
806 1740 
806 1750 
806 1760 
806 1770 
806 1790 
806 1790 
906 1300 
906 1810 
806 1920 


5749 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 
5769 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5779 
5TT9 

5780 

5781 

5782 

5783 

5794 

5795 
5786 
5797 
5788 
5799 

5790 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5798 

5799 

5900 

5901 

5802 

5803 

5804 
5905 
5806 

5907 

5908 

5809 

5810 

5911 

5912 
5813 
5914 
5815 
5916 

5817 

5818 

5819 

5820 

5921 

5922 

5823 

5824 

5825 

5826 
5927 
5828 
5929 

5830 

5831 

5832 

5833 

5834 
5935 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 
5944 

5845 

5846 

5847 
5849 
5849 
5890 

5851 

5852 
9853 
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c 

C • SECTinN LIFT LOOP • 

C 

c 

SPMO= O.D 

c 

00 1210 l»l,4 

1210 SUMSLIDx Q.O 

C 

DO IZbO K^l.NC V 
C 
C 

COSlltl= VVINDXIJtKtll * COSA 
C0S1(21>^ VVIN0X(JfK,2l 
CaSl(3)> WVINDXI J,K,3J - SIN* 

c 

1 = J*1 

no 1220 L-1.3 
BILI- EVIJ,K,Ll 
OIL)= EV( I tKtLI 
1220 P(LI= 0.5*4 B1L>*DILI ) 

VSPN “ B42) 

CALL FLAPS(VSPNt>HEtBtC0S31 
YSPN = D4 21 

CALL FLAPS! YSPN, >H€,D»C0S3J 
YSPN = P(2» 

SUMB = 0.0 
OD 1230 L=l,3 
COS24L)- DILI-Bm 
1230 SONS = SUN8 ♦ C0SZ(LI**2 
SUMP = SORT4SUM91 
no 1240 L=>1, 3 

1240 COS24L> = C0S24U/S0M6 

C 

CALL FLAPS! YSPN, >HE,P,C0S3) 

C 

CALL CS0SP4C0Sl,CCS2,C053 I 
C 

2LIFT= FOCJtKl 
C 

DO 1250 L=l,3 

1250 SUHSLILI= SUMSLm ♦ ZLIFT*C0S3!U 
C 

XARH^ P( 1 1-KC04 

SPMO= SPMO ♦ ZLIFT*C053!3I*XARM 
C 

1260 CDNT INUE 
C 

c 

FLAPNINSPANI = -2.0*2LIFT*C0S3!3l/eC( J.NCVI 
FLAPX4NSPANI = 2.0*ZLIFT*COS34 1)/£CIJ,NCVI 
C 

on I2T0 L«l,3 

1270 SUMSL441- SUHSL(4» ♦ SUMSLCL)**Z 
SUMSL<4)» SQRTISLPSL44n 
DO 1280 L=l,3 

1280 SUHSUU= SUMSL<lt/SUMSL44) 

SUMSL<4»= 2.0*SL’PSL4 4) ZCW 
C 
C 

YSPAN(NSPAN>= VSPN/BOTU 

• SL IFTlNSPANI=-SUMSLt4>*<SUMSLI3 >*COSA * SOMSLI U*S1 NAI 
SDRAG!NSPAN)« SOMSHAl • 4 SUMSL ! 1 ) *COSA - SUMSLO I*S1NA) 
CM0HT(NSPAN)= 2.0*SPMO/CORO 
SCTS “ -SUMSL 1 4 l*SUMSL 4 11 
IF (SCTSI I290, 1290,1300 
1290 SCTS = 0.0 
1300 SNFC » COSLE»SCTS 

IF (SUMSLI3lt 1210,1320.1320 
1310 SNFC= -SNFC 
1320 CONTINUE 

SCLV4NSPANI= -SNFC*COSA - SCTS*SINA 

SC0V4NSPAN)= SCTS*COSA - SNFC*SINA 
SPMV4NSPAN1' 5NFC*4 XLE-XC04I /CW 
C 
C 

1330 CONTINUE 
C 
C 

L INES= L INE S+3 

IF 4L INEX-LINESl 1340,1350,1350 
1340 CALL PAGE 

LINES= LINES+3 
GO TO 1360 

1350 MR ITE IKDUT, 10101 
1360 CONTINUE 
C 
C 
C 

CALL CURFl TIYSPAN, SLIFT.ALIFT, NSPAN.ZEROl ,2ER02,N2, N21 
CALL CURFITCYSPAN, SORAG, AORAG , NSPAN, 2ER01 , ZER02 ,N2, N2 I 
CALL CURF IT! YSPAN, CHQMT.AHOMT, NSPAN, ZEROl ,ZER02,N2, N2) 
CALL CURFIT4YSPAN, FLAPN,AFLPN, NSPAN.ZEROl , ZER02 ,N2. N2 1 
CALL CURFl TIYSPAK, FLAPK.AFLPX, NSPAN, Z EROl , ZER02 ,N2. N21 
CALL CURFl T!YSP AN, SCLV, ACLV, NSPAN, ZEROl ,ZER02 , N2, N2 1 
CALL CURF IT4YSPAK, SCDV, ACDV, NSPAN, ZEROl ,ZER02 ,N2, N21 
CALL CURFITCYSPAN, SPHV, APHV, NSPAN.Z EROl ,ZERQ2 , N2, N21 
C 
C 
C 

OELTAB- 2.0/30.0 
YSPANO' -l.O 

IF (IFLGI 11-11 1370,1380,1380 
1370 DELTABs 1.0/30.0 
YSPANO- 0,0 
1380 CONTINUE 
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c 

806 2890 

5960 

no 1410 J^l.31 

806 2900 

5961 

c 

806 2910 

5962 

ynfl= 0ELrA8*fLO4T(J-ll ♦ yspano 

806 2920 

5963 

YSPN= YOe*BnTU 

806 2930 

5964 

c 

806 2940 

5965 

CL = 0.0 

806 2950 

9966 

CO = 0.0 

806 2960 

5967 

CM - 0.0 

806 2970 

5968 

CLV = 0.0 

806 2980 

5969 

COV = 0.0 

B06 2990 

59 To 

CPV - 0.0 

806 3000 

59TI 

ECN = 0.0 

806 3010 

59 T2 

FCX = 0.0 

B06 3020 

5973 

c 

B06 3030 

5974 

TEST= ABSCYOBl - 0.949 

806 3040 

5975 

IF ITESTl 1390)14C0«1400 

806 3050 

5976 

1390 CONTINUE 

806 3060 

5977 

c 

806 3070 

5978 

CALL CURVE (VSPAN.SLIFT.ALIFT. YQ8»CL. DUH YK, NS PAN .Nil 

806 3080 

5979 

CALL CURVEIVSPAN.SORAG.AORAC. vae.CO. OUNYK.NSPAN.NII 

806 3090 

5980 

CALL CURVEIYSPAN.CMOHT.AMONT, YOB. CM. DUMYK.NSPAN .Nil 

806 3100 

5981 

CALL CURVEIYSPAN.FLAPN.AFLPN, YQH .FCN.OUMYK , NS PAN .N1 1 

806 3110 

5982 

CALL CURVE IYSPAN.FlAPX.AFLPX. YOB. FCX, DUMYK.NSPAN. Nil 

806 3120 

5983 

CALL CURVE lYSP AN. SCLV. ACLV. Y08.CLV.DUNYK. NSPAN.Nll 

606 3130 

5984 

CALL CURVE [YSPAN.SCOV, ACDV, YOB. COV. DUMYK.NSPAN. Nil 

806 3140 

5905 

CALL CURVE <YSP AN. SPHV, APHV, YCB. CPV, DUMYK.NSPAN .Nil 

806 3150 

5986 

C 

806 3160 

5967 

1400 CONTINUE 

B06 3170 

5988 

C 

B06 3180 

5909 

C 

806 3190 

5990 

C 

806 3200 

5991 

RCLINCLC.JI > CL 

806 3210 

5992 

PCOINCLC.Jl = CO 

806 3220 

5993 

RCHtNCLC.Jl = CM 

806 3230 

5994 

RCLVINCLC.J1= CLV 

806 3240 

5995 

RCOVINCLC.Ji= COV 

806 3250 

5996 

RPHVINCLC . Jl= CPV 

806 3260 

5997 

RCFLINCLC , J In FCN*COSA - FCX*SINA 

S06 3270 

5998 

RCFOINCLC, J |n FCK*COSA ♦ FCX*SINA 

806 3280 

5999 

RYSPAHl J1 n YOB 

806 3290 

6000 

C 

806 3300 

6001 

c 

806 3310 

6002 

1410 CONTINUE 

e06 3320 

6003 

C 

806 3330 

6004 

c 

806 3340 

6005 

1420 CONTINUE 

B06 3350 

6006 

C 

B06 3360 

6007 

C 

806 3370 

6008 

OELCLn €XECM21-kCL 

806 3380 

6009 

EXECKI 191 n 0.0 

806 3390 

6010 

SCL1» MCL**2 

806 3400 

6011 

SCL2* SCLl - EXECKI21442 

806 3410 

6012 

NCLWS<2ln 1 HCLVSIll - HCLVSI2) 1/SCL2 

806 3420 

6013 

UCLVSIlln HCLVSIll - HCLVSI2)*SCU 

806 3430 

6014 

WC0VSI2I- 1 UCOVSIll - WCOVSIZI IXSCL2 

806 3440 

6015 

UCDVSI l|n UCOVSIll - HC0VS(2)«SCL1 

806 3450 

6016 

HCPVSI21n 1 HCPVSIll - WCPVSI21 1 /SCL2 

806 3460 

6017 

HCPVSm- HCPVSIll - UCPV5I214SCL1 

806 3470 

6018 

HCP0S(2|n 1 HCPQS(2I - UCP0S11) l/OELCL 

806 3480 

6019 

HCPOSI 11- NCPCSIII - HCPOSIZJPHCl 

806 3490 

6020 

UC0IS(2I= t UCOISIll - UCniSI2) 1/SCL2 

806 3500 

6021 

HCOISI 11= 0.0 

806 3510 

6022 

c 

806 3520 

6023 

DO 1460 J=l,31 

806 3530 

6024 

CFNS - RCFLI 1,JI«42 

806 3540 

6025 

C 

B06 3550 

6026 

TEST * CFNS - «CFLIZ,J1**2 

806 3560 

6027 

ATEST- ABSITESTI-O.OOl 

806 3570 

602 B 

IF lATESTl 1430,1430,1440 

606 3580 

6029 

1430 RCFDI2,J>= 0.0 

806 3590 

6030 

GO TO 1450 

806 3600 

6031 

1440 RCF0(2,J1= (RCFDII.J1-RCFD12,J1 I/TEST 

806 3610 

6032 

1450 «CF0(1,JI= PCFDIl.JI - RCF0I2,JI*CFNS 

806 3620 

6033 

RCFL 1 2, J |n IRCFL (2. JI-RCFL 11 , J) 1 /OELCL 

806 3630 

6034 

RCFLI1,JI= «CFL(l,JI-RCFL(2.J»*HCL 

606 3640 

6035 

ftCMI2,Jl= IRCMI2.JI-RCMI1 ,J> ( /DELCL 

B06 3650 

6036 

RCM(l,Jl= PCMIl.Jl - RCMI2,J|*MCL 

806 3660 

6037 

C 

806 3670 

6038 

SCLl= HCL**2 

806 3680 

6039 

SCL2= SCL 1-EXECKI2I442 

806 3690 

6040 

RCLVI2.31- IRCLVI1,J»-RCLV(2, J1 I/SCL2 

B06 3700 

6041 

»CLVIl,Jr= RCL V(i,J(-PCLVI2,Jl*SCLl 

806 3710 

6042 

RC0VI2,J1- IRCDVI l,JI-ftCDVI2,Jl 1/SCL2 

806 3720 

6043 

RCOVI 1,J1= RCJVI1,J|-RCDV12,J1*SCLI 

806 3730 

6044 

RPHV12,J|= (flPMvl 1,J»-HPMV(2,J) 1 /SCL2 

806 3740 

6045 

HPMVt 1, J|n RPMVI 1, JI-RPMVI2, J) PSCLl 

006 3750 

6046 

C 

806 3760 

604 7 

SCL 1= RCLI l,JI**2 

BO 6 3770 

6048 

SCL2= SCLl - RCL12.J)**2 

606 3790 

6049 

RCDI2,J1 = (RCOll.JI -RC0I2,JI 1/SCL2 

806 3790 

6050 

RCOtUJl = RCOll.JI -RC0I2,J)*SCL1 

906 3800 

6051 

CLAlIJln {RCLI2.JI-RCLI1. J1 l/OELCL 

806 3810 

6052 

1460 CLBIJI = RCLIl.J) - CLA1IJ1*MCL' 

U06 3820 

6053 

c 

606 3630 

6054 

c 

806 3840 

6055 

HLIFTSn OEiCL/DELALF 

806 3850 

6056 

WPMOSL= leXFCKI 31-WPHOI/OELALF 

806 3860 

6057 

HRMOSL= I EXECKI 4 1-HRMOI /OELALF 

806 3870 

6058 

HYM0SL= IEXFCKI 91-HYMOI/OELALF 

806 3880 

6059 

C 

B06 3890 

6060 

ALFA . ALFA - DELALF 

806 3900 

6061 

AlFAHO= ALFA - HCL/MUFTS 

806 3910 

6062 

c 

806 3920 

6063 

c 

806 3930 

6064 

LINES- LlNEStlO 

806 3940 

6065 
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IF ILINEX-LINES) 1470,1480*1480 


806 


6066 

1«70 

CALL PAGE 


806 

3960 

6067 


LINE5= LINF5+10 


BO 6 

3970 

6068 

1460 

UR ITE (K3UT. 1020 » ALFA , ALFARO, HC L,UUFTS , 

MPMOSL.HRNOSL.HVMOSL 806 

3980 

6069 

C 



S06 

3990 

6070 


no 1540 J-1,31 


B06 

4000 

6071 


IF IJ-ll 1490,1490,1520 


806 

4010 

6072 

14«J0 

LINES= LINES* 2 


806 

4020 

6073 


IF ILINEX-LINESt 1500,1510,1510 


806 

4030 

6074 

1500 

CALL PAGE 


806 

4040 

6075 


L INES= LINES*2 


806 

4050 

6076 

1510 

WRITE IK0UT.IO30P 


806 

4060 

6077 

1520 

LINES- LINES*l 


806 

4070 

6078 


IF ILINEX-LIME SI 1500.1530,1530 


806 

4080 

6079 

1530 

CONTINUE 


806 

4090 

6080 


VSPN- «ySPANIJI*BOTU 


806 

4100 

6081 


UR ITE IKOUT, I040IVSPN,RVSPANIJ) .CLAIIJI , 

ClSI Jt rRCLIl, JI.RCmi.JI 806 

41 10 

6082 

1540 

CONTINUE 


806 

4120 

6083 

C 



806 

4130 

6084 

C 



806 

4140 

6085 

c 



806 

4130 

6086 

c • 

LINEARIZED SOLUTION ARRAY * 


806 

4160 

6087 

c 



806 

4170 

6088 


IF (UlNGCLm-n 1550,1570.1570 


BD6 

4180 

6089 

1550 

CONTINUE 


806 

4190 

6090 


DO 1560 N-2,NJQBL 


806 

4200 

6091 


M- N-1 


306 

4210 

6092 

1560 

WINGCLINI- ULIFTS»I ALFAL IM|- ALFAROI 


806 

4220 

6093 

15T0 

CONTINUE 


806 

4230 

6094 


SLOPED = 0.5/PIE 


806 

4240 

6093 


SLOPEW = 1,0/(ULIFTS*RADI 


806 

4250 

6096 


IRECN= 0 


806 

4260 

6097 


IW0R0=10 


806 

4270 

6098 

C 



806 

42 80 

6099 

C 



806 

4290 

6100 


00 1030 N=2,NJ0BL 


BO 6 

4300 

6101 

C 



806 

4310 

6102 

C 



806 

4320 

6103 


WCL- WINGCLINI 


806 

4330 

6104 


ALFA- WCL/WLIFTS ♦ ALFARO 


806 

4340 

6105 


SIGNL- UO 


806 

4350 

6106 


IF lUCLI 1580,1550,1590 


806 

4360 

6107 

1580 

SIGNL- -1.0 


606 

4370 

6108 

1590 

CONTINUE 


806 

4380 

6109 


IRECN- IRECN ♦1 


806 

4390 

6110 

C 



806 

4400 

6111 


LINES- LINES LINEX 


806 

4410 

6112 


IF ILINEX-LINESi 1600,1610,1610 


806 

4420 

6113 

1600 

CALL PAGE 


806 

4430 

6114 


LINES- LINES -10 


806 

4440 

6115 

1610 

UR ITE {K0UT.1020IALFA, ALFARO. UCL.ULIFTS. 

UPNOSL,URMOSL,HVHOSL 806 

4450 

6116 

C 



806 

4460 

6117 


00 1770 J-l,3l 


806 

4470 

6118 

c 



906 

44 80 

6119 


VSPN- PrSPAN(Jl*9GTU 


806 

4490 

6120 


nCLIlrJI- CLAHJI-UCL ♦ CLBIJl 


806 

4500 

6121 

c 



806 

4510 

6122 


CALL CHORD T« VSPN ,XLE ,XC04 , XTE ,XHF .CH.CFI 


806 

4520 

6123 

c 



806 

4530 

6124 


SCL 1= RCL 1 1, J >**2 


806 

4540 

6125 


SCL2- UCL**2 


806 

4550 

6126 


RCLI2,JI= flCOIl.JI ♦ RCD(2,J)*SCtl 


806 

4560 

6127 


IF (LORAG-lt 1640.1620,1620 


806 

4570 

6128 

1620 

RCLI2,J>- 0.0 


806 

4580 

6129 


IF (CLAllJIt 164C, 1640, 1630 


906 

4590 

6130 

1630 

RCLI2,JI- ISLOPEU/CLAt IJ> -SLOPEO) *SCL 1 


806 

4600 

6131 

1640 

CHAC= RCUll.JI ♦ RCM(2,JI*WCL 


806 

4610 

6132 

C 



806 

4620 

6133 


CLV = ( RCLVIltJI ♦ RCLVI2,J) *SCL2 )*SIGNL 

- RCLIl.J) 806 

4630 

6134 


CPV - I RPMVIl.JI ♦ RPMV(2,JI*SCL2 )*51CNL 

- CHAC 806 

4640 

6135 


COV = I RCDVIl,JI * RCOVI2,Jt*SCL2 1 


♦ RCLI2.J) 806 

4650 

6136 


CMLFT- IHINGDI m-XC04)4|RCLIl, JI4C0SA ♦ 

RCL 12 • JI «SINA) 806 

4660 

6137 


FCN - RCFLIl.J) ♦ RCFH2,JI*HCL 


806 

4670 

6138 


FCX =» RCFOIl.Jl ♦ RCFD 12, JI*IFCN**2) 


806 

4630 

6139 


CFNS- FCN*COSA ♦ FCX-SINA 


806 

4690 

6140 


FCX = fCX*COSA - FCN-SINA 


806 

4700 

6141 


FCN = CFNS 


806 

4710 

6142 


FCN = -FCN/4.0 


806 

4720 

6143 

c 



806 

4730 

6144 


IF (J-ll 1650,1650,1680 


806 

4740 

6145 

1650 

LINES- LINES ♦ 4 


806 

4750 

6146 


IF ILINEX-LINESI 1660,1660,1670 


BO 6 

4760 

6147 

1660 

CALL PACE 


806 

4770 

6148 


LINES- LINES ♦ 4 


806 

4780 

6149 

1670 

HR ITE IK0UT.1O5OI 


806 

4790 

6150 

1660 

LINES- LINES ♦ 1 


806 

4800 

6151 


IF ILINEX-LINESI 1660,1690,1690 


806 

4810 

6152 

1690 

CONTINUE 


806 

4820 

6153 

C 



806 

4830 

6154 


NOFLPX- NOFLAP ♦ AOAILR 


806 

4840 

6155 


IF INOFLPXl 1700,1700,1710 


806 

4850 

6156 

1700 

UR ITE (K3UT,1060tySPN,RVSPAN4J> .RCLU ,JI 

,RCL(2,JI ,CHAC,CLV,CDV. CPV806 

4860 

6157 


GO TO 1720 


806 

4870 

6158 

1710 

UR ITE IK0UT,1060IVSPN,RYSPANt JI ,RCLI1*JI 

.RCLI2.JI ,CHAC,CtV,C0V,CPVBO6 

4830 

6159 


1, FCN, FCX, FCN 


806 

4890 

6160 

1720 

CONT INUF 


806 

4900 

6161 

c 



906 

49 10 

6162 


IF IJ-ll 1730,1730,1740 


806 

4920 

6163 

1730 

CONT INUE 


806 

4930 

6164 


SUNS- 0.0 


806 

4940 

6165 


SU«C= 0.0 


806 

4950 

6166 


SUNL- 0.0 


806 

4960 

6167 


SUNO® 0.0 


80 6 

4970 

6168 


SUMP= 0.0 


806 

4980 

6169 


GO TO 1750 


806 

4990 

61 70 

1740 

DELTAS- 0. 25*1 VSPN-VSPNPI •ICU-CUF) 


806 

5000 

6171 
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SUMS- SUMS ♦ 2.0*0£LTAS 


806 SOlO 

6172 

SUHC: SUMC * OELTAS*ICW»CUF 1 


806 5020 

6173 

SUHL= SUMl + OEl.TAS*(ftCL(ltJIFftCLlt 


806 5030 

61 76 

SUMO= SUMD ♦ nELtAS*<RCU2,J)*RCL2l 


B06 5060 

6175 

SUMP= SUMP ♦ DELTAS*(Ch*MCM«l ,Jt+CMF*RCMl*CMLfT*CMLFTl» 

B06 5050 

6176 

1T50 CONTINUE 


B06 5060 

6177 

C 


B06 5070 

617a 

CUF= CW 


B06 5080 

6179 

rSPNP- YSPN 


806 5090 

6180 

RCLl- RCLI UJI 


806 5100 

6181 

RCL2- RCU2,JI 


806 5110 

6182 

RCMl- RCHI 1,J1 


806 5120 

6183 

CMLFTl- CMLFT 


B06 5130 

6186 

C 


806 5160 

6185 

IF IlFLGIlAI-n IT70, 17*0,1760 


806 5150 

6186 

1760 WR[TEIKr2)IRECN,tbORD,RYSPAN( Jl *RCL tl , J I , RCl 12 • Jl ,CMAC, 

806 5160 

6187 

1 FCN.FCX.FCM, 

CLV.COV.CPV 

806 5170 

6188 

1770 CONTINUE 


806 5160 

6189 

C 


606 5190 

6190 

C 


B06 5200 

6191 

WCO= SUMD/SUMS 


806 5210 

6192 

WCNAC- HCPOSm * MCP0S(2I*WCL 


806 5220 

6193 

WLOO- WCL/wr.O 


806 5230 

6196 

c 


606 5260 

6195 

SCL2 = HCl*+Z 


806 5250 

6196 

WCLV ^ 1 UCLVSIll ♦ WCLV$l2»*SCt2 

IPStGNL *■ UCL 

606 5260 

6197 

WPHV = 1 WCPVSm *■ MCPVSI2l*SCt2 

»*S1CNL *■ UCMAC 

606 5270 

6198 

MCOV = 1 ucovsm ♦ WC0VSI2I*SCL2 

1 * HCD 

806 5280 

6199 

WLOOV- WCLV/MCDV 


806 5290 

6200 

c 


B06 5300 

6201 

IF IN-61 l78O,17(C.ie00 


B06 5310 

6202 

1780 M=N-1 


806 5320 

6203 

WCOSIHli: MCO 


B06 5330 

6206 

MCL3IMI- WCL 


B06 5360 

6205 

WCLAIHIs MCL**2 


806 5350 

6206 

C 


B06 5360 

6207 

IF 4N-6I ia00,17SC,1800 


B06 5370 

6208 

1790 WCOBOi = I WCDTI2I - MC03I3) 1 /I HCL3I2I - WCl3(3) 1 

B06 5380 

6209 

WC03I21 - I UCD3I1) - HC03I2I 1 /( UCL3IU - HC13I2) 1 

806 5390 

6210 

WCL30I = I MCL6I21 - WCL6I31 » /< UCI.3I2> - WCL3I3) 1 

806 5600 

6211 

MCL3I2) = I WCL6(ll - WCL4I21 1 /( HCL3I1J - HCL3(2t 1 

806 5610 

6212 

MCDISI21- ( HCD3I2t-WC03(3l 1 /I WCU3I21 -MCL3I31 1 

806 5620 

6213 

WCOISIl)^ HC03I2I - WCDISI21*HCL3l2t 

606 5630 

6216 

SKINFC = SKINFC ♦ WCD3III - HCD I SIl 1 *MCL3 II 1 - HCOISI 2 ) «WCL6I 1 1 

806 5660 

6215 

1800 CONTINUE 


B06 5650 

6216 

C 


806 5660 

6217 

LINES- LINES*3 


B06 5670 

6218 

IF ILINEX-L INE S 1 1810,1820,1820 


606 5680 

6219 

1810 CALL PAGE 


806 5690 

6220 

LINES- LINES*3 


806 5500 

6221 

1820 URITE IKDUT,1O70)M:L,HCO,IiICHAC,I>LQO 

•WCLV. UCOVtUPMV.ULOOV 

806 5510 

6222 

C 


806 5520 

6223 

1830 CONTINUE 


B06 5530 

6226 

C 


806 5560 

6225 

c 


806 5550 

6226 

CALL PACE 


906 5560 

6227 

MR ITE IKOUT, lOaOl 


806 5570 

6228 

XALFA- IFIXI ALFARO - 2.0 ) 


806 5580 

6229 

LINES- LINES ♦ 9 


806 5590 

6230 

IRECN- IRECN *l 


806 5600 

6231 

IMORO* 7 


806 5610 

6232 

C 


806 5620 

6233 

NIMAX- 20.0 -ALFARO 


806 5630 

6236 

00 1870 N= 1, NIMAX 


B06 5660 

6235 

ALFA- FLOAT! N * KALFA 1 


606 5650 

6236 

MCL » MLIFTS*! ALFA-ALFARO 1 


806 5660 

6237 

SCL2 <■ WCL**2 


806 5670 

6238 

WCD * SKINFC 4- bCOISn)*WCL ♦ WCD I SI 2 > *SCL2 

R06 5680 

6239 

WCMAC- MCPOSI U ♦ WCP0SI21*WCL 


BO 6 5690 

6260 

WCLV ” UCLVSm ♦ WCLVSI21*SCL2 


806 5700 

6261 

WCOV = UCOVSI U ♦ MCDVSI2 ( *SCL2 


B06 5710 

6262 

WPMV - UCPVSIll ♦ WCPVS(21*SCL2 


806 5720 

6263 

C 


806 5730 

6266 

IF IHCLI 1860,11*0,1850 


806 5760 

6265 

I860 WCLV • HCLVSIl) ♦ UCLVSIll -UCLV 


806 5750 

6266 

HPHV » WCPVSm ♦ UCPVS(l) - HPMV 


806 5760 

6267 

1850 WCLV - WCLV ♦ WCL 


806 5770 

626R 

WCOV - UCOV * WCD 


806 5780 

6269 

WPMV - UPNV * WCPAC 


806 5790 

6250 

C 


806 5300 

6251 

'WR ITF (KDUT, 10901 ALFA , UCL ,WCO,MCMAC 

,WCL V.UCDVtWPMV 

B0& 5810 

6252 

C 


806 5920 

6253 

•F iirLC(16)-l) 1870,1860,1960 


306 5830 

6256 

1860 CONTINUE 


806 5860 

6255 

WR ITEIKT2I IPECK, IWORO,ALFA,wCL,hCD,l 

UCMAC, WCLV, UCOV ,UPHV 

806 5850 

6256 

1870 CONTINUE 


B06 5860 

6257 

r 


806 5870 

6258 

U 


806 5880 

62 59 

IF IIFLGI 161-1) 1890,1880,1880 


806 5890 

6260 

1880 LINES- LINES *2 


806 5900 

6261 

IFLCI 151= IFLGt 151 *1 


806 5910 

6262 

END FILE KT2 


806 5920 

6263 

WRITE IKOUT, llOOlIFLGIlSt 


606 5930 

6266 

1891) CONTINUE 

r 


806 5960 

6265 

L 


806 5950 

6266 

C 


606 5960 

6267 

1900 RETURN 


806 5970 

6268 

C XXXXXX 


806 5980 

6269 

c 

r 


B06 5990 

6270 



806 6000 

6271 

END 


006 6010 

6272 


V fDI» B07,B07 
C 

807 10 

6273 


807 20 

6276 
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SUBROUTINE SP ANH IFL&G tNSPStNDI Si SMN| VSPANi 

• TRM MULTIPLE-St'RFACE VORTEX-tATTICE PROGRAM - 


DIMENSION VSPANIA2I 

COHM0N/DATAO2/IFtGll5» lEXECKIlSt 

COMMt}N/OATA04/VFLAPl*YFLAP2|FLAPC 
k ,VAILRN|AILRNC|H$MOTH 


IF (IFLAG-ll t00C.tO2Oil2S0 


• FIXED SPACING • 


1000 CONTINUE 


DELTAS SPAN/FLOAKNSPS'll 
0DTU= span /2.0 ♦ DELTA 


00 1010 K=1,NSPS 
YSPANIKI — 60TU ♦ 


RETURN 

XXXXXX 


• VARIABLE SPACING • 


OELTA*FLOATIKJ 


1020 CONTINUE 


PHIs PIE*» l.Q ♦ FLOAT(NOIS) I 
DPHI= PHI/FLOATINSPS-n 
ROTU= SPAN/2.0 

DBO ■ 0.5YSPAN/FL0ATINO1S+1I 


PlFfs PtF 

P|EM= l.O 


1030 

lOAO 


DO lOAO Nsl,NSPS 
PHIe OPHI*FLaAT(A-l) 

IF (PHi~PIEFt lOAOf LOAD. 1030 
PIEF- PIE ♦ PIEF 
PIEH- PIEM *■ 2.0 

YSPANCNIs -BOTU ♦ OBO*IPIEM - COS! PHI *PIE-P1 6F1 1 


IF (YFLAP2I 1250|1250t 1050 
1050 VF1= YFLAPl 
YF2= YFLAP2 
. TESTS YFLAPl-1.0 

IF ITEST) I060il060.1070 
lOftO YF1« YF1»B0TU 
YF2= YF2*B0TU 
1070 CONTINUE 

IF (NOIS-IJ 1250,1250,1080 
1080 IF INDIS-3) 1090,1090,1150 
1090 VI • OBO*FLnATINOIS-ll 


: * NDtS=>2 OR 3 * 

RATls YF2/V1 

RAT2" (BQTU-YF2I/<BDTU-Y1 I 
DO 1140 N=l,NSPS 
T1 = YSPANINI ♦ Y1 
T2 - YSPANINI - Y1 
IF (Til 1100. 1100. IllD 
1100 VSPANIN)= -VFZ F (YSPAN<N)+Yll*RAT2 
GO TO 1140 

1110 IF (T2) 1120,1120,1130 
1120 YSPANINI” VSPANCM*RAT1 
GO TO 1140 

1130 YSPANINI” YF2 ♦ I YSPANINI -Yll *RAT2 
1140 CONTINUE 

GO TO 1250 


* NDIS” 4 * 

1150 Yl” OBO 

Y2- 3.0»Yl 

RATO = YFl/rl 

RATI = I Yf2-VF1)/IY2-Yli 

RAT2 = I8OTU-YF2I/IB0TU-Y2I 

DO 1240 N=1,NSPS 

T1 s YSPANINI ♦ Y2 

T2 3 YSPANINI ♦ Y1 

T3 3 YSPANINI - Y1 

74 » YSPANINI - V2 

IF |T1) 1160,1160,1170 

1160 YSPANINI” -YF2 *1 YSPANINI *Y2l *R AT2 
GO TO 1240 

1170 IF IT2) 1180, UBC, 1190 


ROT 

SO 

6279 

007 

40 

6276 

807 

50 

6277 

007 

60 

6278 

•B07 

TO 

6279 

• 007 

SO 

6280 

B07 

90 

6281 

X0O7 

100 

6282 

B07 

110 

6283 

007 

120 

6284 

B07 

130 

6285 

007 

140 

6286 

BD7 

150 

6287 

B07 

160 

6288 

XB07 

170 

6289 

007 

180 

62 90 

007 

190 

6291 

007 

200 

6292 

eoT 

210 

6293 

B07 

220 

6294 

007 

230 

6295 

007 

240 

6296 

007 

250 

6297 

007 

260 

6298 

007 

270 

6299 

BO 7 

280 

6300 

BO 7 

290 

6301 

807 

300 

6302 

B07 

310 

6303 

BOT 

320 

6304 

B07 

330 

6305 

BOT 

340 

6306 

007 

350 

6307 

BOT 

360 

6308 

BOT 

370 

6309 

BOT 

380 

6310 

BOT 

390 

6311 

BOT 

400 

6312 

BOT 

410 

6313 

BOT 

420 

6314 

BOT 

430 

6315 

B07 

440 

6316 

BOT 

450 

6317 

BOT 

460 

6318 

BOT 

4 TO 

6319 

007 

480 

6320 

807 

490 

6321 

807 

500 

6322 

BOT 

510 

6323 

B07 

520 

6324 

BOT 

530 

6325 

BOT 

540 

6326 

807 

550 

6327 

aoT 

560 

6328 

007 

5T0 

6329 

BO 7 

580 

6330 

BOT 

590 

6331 

BOT 

600 

6332 

807 

610 

6333 

BOT 

620 

6334 

BOT 

630 

6335 

007 

640 

6336 

607 

650 

6337 

007 

660 

6338 

007 

670 

6339 

BOT 

680 

6340 

BOT 

690 

6341 

BOT 

700 

6342 

807 

710 

6343 

BOT 

720 

6344 

BOT 

T30 

6345 

BOT 

740 

6346 

BOT 

750 

6347 

BOT 

760 

634 8 

BOT 

T70 

6349 

007 

780 

6350 

BOT 

790 

6351 

BOT 

800 

6352 

807 

810 

6353 

BOT 

820 

6354 

BOT 

830 

6355 

807 

840 

6356 

007 

8 50 

6357 

807 

860 

6358 

BOT 

870 

6359 

BOT 

B30 

6360 

BOT 

890 

6361 

BOT 

900 

6362 

BOT 

910 

6363 

BOT 

920 

6364 

BOT 

930 

6365 

BOT 

940 

6366 

807 

950 

6367 

BOT 

960 

6368 

807 

970 

6369 

907 

980 

6370 

007 

990 

6371 

007 

1000 

6372 

BOT 

lOlO 

6373 

BOT 

1020 

6374 

BOT 

1030 

6375 

BOT 

1040 

63T6 

BOT 

1050 

6377 

BOT 

1060 

6378 

BOT 

1070 

6379 

BOT 

1080 

6380 
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1180 

YSPANINM -YFl *1 VSP4NCNI ♦VH *»8TI 

807 

1090 

6381 


GO TO 1290 

BO 7 

1100 

6382 

1190 

IF IT3] 120C«120Cil210 

007 

UlO 

63B3 

1200 

YSPAN(NI= TSPAN IM9RAT0 

ao7 

1120 

6389 


GO TO 1290 

607 

1130 

636S 

1210 

IF IT9J 122O«122a«1220 

007 

1190 

6386 

1220 

YSPAMN)= YFl IYSPANIN1-V1I9RATI 

607 

tlBO 

6387 


GO TO 1290 

eo7 

1160 

63B6 

12)0 

YSPANIN)> Vf2 ♦ I VSPANINI-Y2I9RAT2 

007 

1170 

6389 

1290 

CONTINUE 

BO 7 

1160 

6390 

C 


BO 7 

1190 

6391 

c 


BOT 

1200 

6392 

1280 

RETURN 

BO 7 

1210 

6393 

C 

XXXXXX 

BOT 

1220 

6399 

C 


BOT 

1230 

6395 

c 


BOT 

1240 

6396 


F.NO 

BOT 

1250 

6397 


7 FOR 

808(808 

608 

10 

6398 

C 


BOS 

20 

6399 

C 


B08 

30 

6400 

C 


808 

90 

6401 


SUBROUTINE CHOROII IF LAG ( NC Vt NO! S( XVtXN,XCI 

BOS 

50 

6402 

C 


BOS 

60 

6403 

C 

• TRW MULT IPLE-SLRF ACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG..T2 

*B08 

70 

6404 

c 

« PROGRAM DEVELOPED BY A«V. GOMEZ (TRH SYSTEHSI ON MARCH-NAY 1971 

*608 

80 

6405 

c 


ROB 

90 

6406 

c 

XXXXXXXXXXXXXXXX I XXXKXXXX XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXX BOB 

100 

6407 

c 


808 

110 

6408 


DIMENSION XVI 101 (XNIIOI (XClllI 

608 

120 

6409 


C0MM0N/0ATA02/IFLG< 151 (EXECKI15I .RAO .PIE 

808 

130 

6410 

c 


B08 

140 

6411 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXKSOe 

150 

6412 

c 


808 

160 

6413 

c 


008 

170 

6414 

c 


BOS 

180 

6415 


coLocp- ExrcKim - i.o 

BO 8 

190 

6416 


IF <IFLAG-I1 lOOC. 1070, 1020 

Boe 

200 

6417 

c 


008 

210 

6418 

c 


008 

220 

6419 

c 


808 

230 

6420 

c • 

FIXED SPACING * 

BOS 

290 

6421 

c 


808 

250 

6422 

1000 

CONTINUE 

BOS 

260 

6423 


NPl- NCV»1 

BOB 

270 

6424 


XCINPlI-l.O 

BOB 

2 80 

642 5 


OELTA= I.O/FLQATINCVl 

80 8 

290 

6426 


DELTAl - -0.75*0ELTA 

808 

300 

6427 


DELTA 2 » C0LOCP9OELTA 

SOB 

310 

6428 


X ^ 0.0 

BOS 

320 

6429 

c 


608 

330 

6430 


00 1010 N-l.NCV 

BOB 

390 

6431 


X= X ♦ DELTA 

808 

350 

6432 


XCINI- X 

BOB 

360 

6433 


XV(N1= X ♦ DELTA 1 

BOS 

370 

6434 

1010 

XNINI* X ♦ DELTA2 

BOB 

ISO 

6435 

c 


BOS 

390 

6436 


RETURN 

BOS 

900 

6437 

c 

XXXXXX 

BOS 

910 

6438 

c 


BOS 

420 

6439 

c 


BOB 

430 

6440 

c 


808 

440 

6441 

c * 

VARIABLE SPACING ♦ 

BOB 

450 

6442 

c 


BOB 

460 

6443 

1020 

CONTINUE 

008 

470 

6444 

c 


BOe 

430 

6445 


NP1= NCV*1 

00 8 

490 

6446 


PHI= PIE»(1.0 ♦ FLOATINDlSn 

BOB 

500 

6447 


OPH= PHI/FLOATINCVI 

BOS 

510 

6448 


DCD= 0.5/FLOATINDIS9n 

008 

520 

6449 

c 


BOB 

530 

69 50 


P1EF= PIE 

B08 

540 

6951 


PIEM= 1,0 

008 

550 

6952 


XXn 0.0 

008 

560 

6953 

c 


BOS 

5 70 

6959 


DO 1050 N=2,NP1 

00 8 

580 

6955 


M= N-1 

00 3 

590 

6956 


PHI= 0PH1*FL0ATCMI 

BO 8 

600 

6957 


IF (PHI-PIEFI 1090,1090,1030 

608 

610 

6958 

o 

o 

PIEF= PIEF ♦ Pie 

BOa 

620 

6959 


PIEH^ PIEM ♦ 2.0 

BO 8 

630 

6960 

1090 

PHIXn PHI*PIF-PIEF 

BOS 

640 

6961 


XCIMI= DC0*IP1EM-C0S(PHIXM 

Boa 

650 

6962 


DELTAS XC(H1-XX 

30 B 

660 

6963 


XX = XCIMI 

Boe 

6T0 

6969 


XVCH)= XX-0.T5*0FLTA 

BOS 

680 

6965 


XN(M)= XX +C0L0CP*DELTA 

BOS 

690 

6966 

1050 

CONTINUE 

808 

700 

69 6 7 

c 


BOS 

710 

6968 


RETURN 

BOS 

720 

6969 

c 

XXXXXX 

608 

730 

6970 

c 


BOS 

740 

6971 

c 


BOS 

750 

6972 

c 


BOS 

760 

6973 


END 

BO 8 

770 

6979 


7 FDR 009,609 


809 

10 

6975 

C 


009 

20 

6976 

C 


B09 

3D 

6977 

C 


B09 

90 

6978 

subroutine chordtiy. 

KLE ,XC09,xTE,XM£,Cm,CFI 

B09 

50 

6979 

c 


B09 

60 

6480 
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• TRM HULTIPLE-SLBFACE VORTEK-LATTICE program - REVISED 8 AUG.T2 

• B09 

TO 

6481 


* PROGRAM DEVELOPED 6V A.V,GDME2 ITRM SVSTEMSI ON MARCH-MAV 19TI 

*809 

BO 

6402 



B09 

90 

6403 


KXXXXRIKXXXXXXXXJiXXXXXXXKXXXXXRXXXJUKKXXRXXXRXXXXXKXXKXRXXXXXKXKKXBD^ 

100 

6404 



B09 

tio 

6485 


COMMON/DA TA05/Ml*i60l 151 .EVlAZtlOl |EC(42tl01 iESIA2>10l 

B09 

120 

6406 

• 

'.EVEIlOt tELEdOl .ETEIIOI lEHEIlOl ,EGI42»tOI 

809 

130 

6487 


'.EN( A2.10t61 .EV(42rl0.6l , VVI NOXi 42 « 10,3 > 

809 

140 

6480 



B09 

150 

6409 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXB09 

lAO 

6490 



809 

ITO 

6491 



809 

180 

6492 



809 

190 

6493 


VA= ABSIVt 

809 

200 

6494 


n = — 1 

B09 

210 

6495 


00 1020 L>2«10 

B09 

220 

6496 


IF IM) 1000,1000.1020 

B09 

230 

6497 

1000 

TEST= VA-B VEIL 1 + 0.001 

809 

240 

6498 


IF ITESTl 1010,1010.1020 

B09 

250 

6499 

1010 

Mo 1 

809 

260 

6500 

1020 

CONTINUE 

809 

270 

6501 


IF (N-21 1030,1040,1040 

B09 

200 

6502 

1030 

M=2 

B09 

290 

6503 

1040 

Ml» M-l 

B09 

300 

6504 



B09 

310 

6505 


RAT- 1YA-EVE(M11 l/CEVE IMI-ETE 1MH 1 

609 

320 

6506 


XLE - ELEIMII + RAT*( E LE (HI-ELE 1 Ml 1 I 

B09 

330 

6507 


KTF ^ ETEIMll ♦ RAT*( E TE (Ml -ETE < HI 1 1 

009 

340 

6508 


XHE - EHElMll ♦ RAT*>( EHEIHI-EHEIHI > 1 

009 

350 

6509 


CW = XTE - XLE 

009 

360 

6510 


CF = XTE - XHE 

009 

370 

6511 


XC04- XLE ♦ 0.25*CM 

809 

380 

6512 



809 

390 

6513 



B09 

400 

6514 


RETURN 

B09 

410 

6515 


XXXXKX 

B09 

420 

6516 



809 

430 

6517 


FND 

009 

440 

6518 


7 FnR BlO»eiO 


810 

10 

6519 

c 


SIO 

20 

6520 

c 


BIO 

30 

6521 

c 


810 

40 

6522 

SUBROUTINE FLAPS! YF , XH| NGE ♦ PfCOSF ) 


810 

50 

6523 

c 


BIO 

60 

6524 

c * TRW multiple-surface VORTEX-LATTKE 

PROGRAM - 

REVISED B AUG. 72 «B10 

70 

6525 

C * PROGRAM OFveLOPFO BY A. V. GOMEZ ITRW 

SYSTEMS! ON MARCH-MAY 1971 *B10 

BO 

6526 

r 


BIO 

90 

6527 

r. xxXXKKXXXXXXXXXXXXXXXXXKXXXXKXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXKXKXBtO 

100 

652 B 



BIO 

110 

6529 

DIMENSION POttCCSFOl 


010 

120 

6530 

r 


BIO 

130 

6531 

COMMON/OATAOO/NSTL .alfao .char ,zho .FLAPOX 

;,AILR0X(2i 010 

140 

6532 

• ,TITLE(14I ,ST0RE(14I 


610 

150 

6533 

COMMON /06TA02/ 1 FIG( 151 .EXECKUSI 

,RAD 

,PIE BIO 

160 

6534 

C0HMON/OATA04/YFLAPl,yFLAP2,FLAPC 


eio 

170 

6535 

« .YAILRN.AILRNC.WSHOTH 


810 

ISO 

6536 

COMMON /0ATA06/YFF 1 1 , YFF 12 , YFF21 . VFF22 

,YFF3l,YFF32,DELTFI,DELTF2 BIO 

190 

6537 

4 .NOFLAP.NOAI LR 


810 

200 

6538 

COMMON/DA TA07/LFIAP ,IDRAG .CUTOFl ,CUT0F2 

BIO 

210 

6539 

c 


BIO 

220 

6540 

r xkxxxxxxkxxxxkxkxxxxxxxxxxxxxxxkxxxxxxxxxxxkxkxxxxxxxxxxkxkxkxxxkxbio 

230 

6541 

c 


BIO 

240 

6542 

c 


BIO 

250 

6543 

c 


BIO 

260 

6544 

NONO- NOFtAP + NOAILP 


010 

270 

6545 

OELTX- Plll-XHINGE 


BIO 

280 

6546 

IF (DELTXI 1010,1010,1000 


010 

290 

6547 

c 


010 

300 

6548 

1000 IF INONO] 1010, ICIO, 1020 


010 

310 

6549 

1010 RETURN 


810 

320 

6550 

C XXXXXX 


BIO 

330 

6551 

c 


BIO 

340 

6552 

1020 YA- A8S( YF 1 


010 

350 

6553 

c 


010 

360 

6554 

c 


RIO 

370 

6555 

cosx- cosFm 


BIO 

3B0 

6556 

COSZ= C0SFI31 


BIO 

390 

6557 

FLAPO- 0.0 


BIO 

400 

6558 

AILO = 0.0 


BIO 

410 

6559 

c 


BIO 

420 

6560 

TST11= YA - VFFll 


010 

430 

6561 

TST12= VA - YFF12 


BIO 

440 

6562 

TST21= YA - YFF21 


BIO 

450 

6563 

TST22- YA - YFF22 


610 

460 

6564 

TST3l= YA - YFF31 


BIO 

470 

6565 

TST32= YA - YFF32 


BIO 

4B0 

6566 

c 


BIO 

490 

6567 

c 


BIO 

500 

656R 

IF (NOFLAPI 1110,1110,1030 


010 

510 

6569 

1030 IF (YFLAPII 1070,1070,1040 


BIO 

520 

65 70 

1040 IF (TSTllI 1110,1110,1050 


BIO 

530 

6571 

1050 IF ITST12I 1060,1070,1070 


BIO 

540 

6572 

1060 FLAPD = 0.5«fLAP0X*tl.0+SlNIPlE*(TSTll/DELTFl-O 

.511) BIO 

5 50 

6573 

GO TO 1110 


BIO 

560 

6574 

1070 IF (TST2H 1080,1080,1090 


BIO 

570 

6575 

1080 FLAPO = FLAPDX 


BIO 

580 

6576 

GO TO 1110 


BIO 

590 

6577 

1090 IF ITST221 1100,1110,1110 


010 

600 

6578 

1100 FLAPD « 0.5PFLAP0X* ( 1.0+S1NIPIE*( TST21/0ELTF2+0 

.Sill 010 

610 

6579 

C 


BIO 

620 

6580 

1110 IF (NOAILRI 1210,1120,1128 


BIO 

630 

6581 

1120 AILD = AILRDXI U 


BID 

640 

6582 

IF lYFI 1130, 114C, 1140 


010 

650 

6583 
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U30 

AILO = AILR0XI2) 

BIO 

660 

658* 

11*0 

If irstaii iiso,ii 6 o«ii 60 

BIO 

670 

65B5 

ll?0 

Aim = 0.0 

BIO 

6B0 

6586 


GO TO 1210 

BIO 

690 

6587 

1160 

IF (TST22I llTOtllSOtllBO 

BIO 

700 

6588 

1170 

AIlD = 0.5*AIl0*I1.0 ♦ StNIPIE6ITST2l/0eLTF2 -0,5111 

BIO 

710 

6589 


GO TO 1210 

BiO 

720 

6590 

lino 

IF irST3ll 1210.1I90.119Q 

BIO 

730 

6591 

1100 

IF (TST321 1200,1150.1150 

610 

7*0 

6592 

1200 

A1L0= 0«5*AIL0*( 1,0 « StNIPtE«(TST31/DELTF2F0.5ll 1 

SIO 

750 

6593 

1210 

TANO = TANI (AILD+FLAPOl/RADl 

BlO 

760 

659* 

c 


610 

770 

6595 

c 


BIO 

780 

6596 


C0S0= l.O/SORTI 1.0 ♦ TAND**2 1 

BIO 

790 

6597 


SIND 2 rAND*COSO 

BIO 

800 

6598 

c 


810 

010 

6599 


COSFIll = CnSX*COSO - C0S2*SIN0 

BIO 

820 

6600 


COSFm = CnS2»CQS0 ♦ COSX*S1NO 

BIO 

030 

6601 

c 


BIO 

0*0 

6602 


IF ILFLAP-ll 1220,1230, 1230 

BIO 

050 

6603 

1220 

Pill « Pill - OeLTX*(1.0-COSDI 

BIO 

B60 

660* 


P131 - P(31 ♦ 0EITX*SIN0 

810 

670 

6605 

1230 

CONTINUE 

BIO 

880 

6606 

C 


810 

890 

6607 


RETURN 

BIO 

900 

6608 

C 

XXXXXX 

BIO 

910 

6609 

c 


BIO 

920 

6610 

c 


BIO 

930 

6611 


END 

BIO 

9*0 

6612 


V FOR 

Bll.BlI 

Bll 

10 

6613 

C 


BI 1 

20 

661* 

C 


Rll 

30 

6615 

C 


All 

40 

6616 


SUBROUTINE VOPTEXIP.B.O.TANA.GANA, Vl.VCOSI 

Bll 

50 

6617 

C 


Bll 

60 

6618 

c 

* TPH HULTIPLE-SCRFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG.T2 

•Bll 

70 

6619 

c 

* PROGRAM OFVELOPEO BV A.V.GCME2 ITRH SYSTEMS! ON MARCH-MAY 1971 

•Bll 

BO 

6620 

c 


Bll 

90 

6621 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXKXXXXXXXXXXXXKXXKXXXXKXXXXBll 

100 

6622 

c 


611 

110 

6623 


DIMENSION PI 31 ,a«3) ,0(31 

Bl 1 

120 

662* 


OIMENSION CnSlI 3),COS213! ,C0S3(3> , XI 3! ,A (3 I ,VCOS I 3 1 

Bll 

130 

6625 


DIMENSION GI3I 

Bll 

1*0 

6626 

c 


Bll 

150 

6627 


COMHON/OATAOl/KIN ,KOUT ,KT1 , KT2 ,UNEK .LINES 

811 

160 

6628 


COMHCN/OATA02/IFLG115I .EXECM15! ,RAO .PIE 

Bll 

170 

6629 


COMMON/DATAOT/LFLAP.LDRAC.CUTOFI ,CUT0f2 

Bl 1 

ISO 

6630 

c 


Bll 

190 

6631 


NAN EL I ST/OBUGV 1 /P ,B ,0 ■ TANA .GAMA ,P SI F , VC OS 

Bll 

200 

6632 


NAM EL IST/06UCV2/PSIF ,VCOS 

Bll 

210 

6633 


NAMEL IST/OBUGVl/PSIF.VCOS 

Bll 

220 

663* 

c 


Bll 

230 

6635 

1000 

FQRMATI IX, //.IX! 

Bll 

2*0 

6636 

c 


Bll 

250 

6637 

c 

XXXXXKXXKXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXKXXXBll 

260 

6638 

c 


Bll 

2T0 

6639 

c 


Bll 

2 SO 

66*0 

c 


Bll 

290 

66*1 


NOTE= IFLGI 101-8 

Bll 

300 

66*2 


TANAS= TANA**2 

Bll 

310 

664 3 


COSAn l.Q - TAN4S/2.0 

Bll 

320 

66** 


IF 1 TANAS- 0.00011 1020 ,l 010 ,l 01 0 

Bll 

330 

66*5 

1010 

COSA= t.O/S0RTITANAS»l.0> 

BU 

3*0 

66*6 

1020 

SINAz COSA*TANA 

Bll 

350 

66*7 

c 


Bll 

360 

66*8 


SCALF= SORTMDI 1 !-B( 1 M **2MOI2 I-B12 ! 1 •*2*C 0 (3 ! -B( 3 11 **2 ! 

Bll 

370 

66*9 


00 1030 K:;l,3 

Bll 

380 

6650 


XIK1= IP(X)-0.5*lfl(K!*0<Km /SCALF 

Rll 

390 

6651 


AIKI- I0.5*(D4K!-BIK) ! 1/SCALF 

Bll 

*00 

6652 

1030 

VCnS(K)= 0.0 

Bll 

*10 

6653 

c 


Bll 

*20 

665* 

c 


Bll 

*30 

6655 

c 


Bll 

**0 

6656 

c * 

SEGMENT INF-A-B * 

Bll 

*50 

6657 

c 


Bll 

*60 

665 8 


H5 - TANA*! Xlll* All!! 

Bll 

*70 

6659 

c 


Bll 

*80 

6660 


HSl = (KI1I*AI 1 1 )**2 ♦ M5**2 

811 

*90 

6661 


H52 » (X(2!*AI2!!**2 * 1 X [3 ! * A 1 3 1-H5 1 **2 

eii 

500 

6662 


HS3 = (X( ii i>«2 ♦ IKI2!*A(2>!**2 ♦ I X 1 3 1* At 3 M **2 

Bll 

510 

6663 


HI = SORTIHSl! 

nil 

520 

6664 


H2 = S0RTIHS2! 

Bll 

530 

6665 

c 


Bll 

5*0 

6666 


COSG- 0.0 

Bll 

550 

6667 


SING- 1.0 

Bll 

560 

6668 


TFST = CUTOFl - Hi 

Bll 

570 

6669 

c 


811 

580 

66 70 


IF (TEST! 10*0, IC50, 1050 

Bll 

590 

6671 

10*0 

COSG= IHS3-HSl-HS2!/(2.0*Hl*H21 

Rll 

600 

6672 


SING” SORTIABSI I.C-C0SG**2)1 

nil 

610 

6673 

1050 

CONTINUE 

Bll 

620 

667* 

c 


Bll 

630 

6675 


B • H2*SING 

Bll 

6*0 

66 76 


H* » H2*cnsc 

Bll 

650 

6677 


SHIA” H1*H* 

Bll 

660 

6678 

c 


Bll 

670 

6679 


PSIF” I 1.0 +SHl*/SQRT( SHl***2*B**2I l/R 

Rll 

680 

6600 

c 


Bll 

690 

66B1 


r.DSim = cosA 

Bll 

700 

6682 


C0S1I2! = 0.0 

BU 

710 

6683 


C0S1I3! = SINA 

Bll 

720 

668* 


C0S2I1! = 1 XI 1 !*AI t!-SHl**COSA I /R 

BU 

730 

6685 


C0S2I2! = 1 XI2!*A<2) 1 /H 

Bll 

7*0 

6686 
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C0S2I3I ° I X(3}4A( 3>-SHt«*SINA I /R 
C 

CALL CROSPI COSl,COS2.CDS31 

c 

00 1060 K«l(3 

1060 VC0SIK)> PSIF*CCS31K» 

C 

IF INOTFt IDBOtlClOilCTO 
1070 MRITF (KOUT.IOOOI 

WRITE IKOUT.OBUGVll 
1090 CONTINUE 
C 
C 

c 

C • SEGMENT 0-E^INF • 

C 

H5 = TANA*(X( lI>Af II I 

C 

HSl = ( XI I I-AI 1H#*2 ♦ M5**2 
HS2 ^ I XI21-AI2I >**2 ♦ {XI3I-A(3I-H5I**2 
HSl = IX(H-AIin**2 » IXI2I-AI2I »**2 ♦ t X(3 1- A(3 ) I A*2 
HI = SORTIhSII 
H2 = S0RTIHS2I 
C 

r.OSGi 0.0 
SING- l.O 

TEST = CUTOFl - HI 
C 

IE (TESTI 1090, llOOtllOO 
10«0 COSC= I HS3-HS1-MS2) /(2.0*Hl*H2> 

SING= SQRTIABSI 1.0-COSG**2H 
1100 CONTINUE 
C 

R = H2*SING 
H4 = H2*C0SG 
SH1<.= Ml*HA 
C 

PSIf- I-l.O -SHl4/SQRTtSHl4**2*R**2l l/R 
C 

CQSim- COS» 

CnSlI2l- 0.0 
CO SI (31= SINA 

C0S2(II= I XI I l-AI 1 1-SHIA*CDSA I /R 
C052I2)* I XI21-AI2I I /« 

C052I3I= I XI3)-AI3»-SH14*SINA I /R 
C 

CALL CR0SPICnSl,CCS2,C0S31 
C 

DO lllO K=l,3 

Ilia VCOS(Kl= VCOSIKI ♦ PSIF*C0S3IKI 

c 

IF INOTEI 1130.1120,1120 
1120 WRITE IK3UT,DBUG^2I 
1130 CONTINUE 
C 
C 
C 

C • SEGMENT B-C-0 • 

C 

HSl = A, 0*1 AI 11**2 ♦ A 121**2 + AI31**2 I 

HS2 - IXI ll-Ami**2 ♦ ( XI2I-AI2I 1**2 * IX I 31-AI 3) I **2 

HS3 = IXI 1)*A 1 1) 1**2 * I XI2)*AI2»»**2 * (XI 3 1 ♦*! 3 1 l**2 

HI = SaRTIHSlI 
H2 = SQRTIHS2I 
C 

COSG= IhS 3-HSI-HS2)/I2.0»H1*H21 
SINC= SORTIA&Sl l.0-CnSG**2M 
P5IF- 0.0 

TEST = AflSISINGI - CUT0F2 
C 

IF ITFSTI 1170, 1170, llAO 
1140 CONTINUE 
C 

ft = HZ* SING 
C 

TFST = R/Hl - lO.O*CUTOFl 
IF ITFSTI 1170,1170,1150 
1150 CONTINUE 
C 

ftS - R**2 

HA = H2*CnSG 
SH14- H1*HA 
Tl» l.O ♦ 2.0*HA/H1 

^ PSIF= (SH14/SQRTISH14**2*RSI -H4/$QRT IH4**2*RS 11/ R 

C 

DO 1160 K-1,3 
GIKl- AIKI*Tl 
rOSlIKI- IGIKI-XIKl l/R 
1160 CDS2HU- -2.0*AIKI/H1 
C 

CALL CP0SP(CO5l,C0S2,COS3l 
C 

1170 CONTINUE 
C 

V2= 0.0 
C 

DO 1180 K = l, 3 

VCOSIKI= VCnSIKI ♦ PSIF*CCS3IKI 
1160 VZ= V2 + VC0S(K|**2 
C 

IF INOTEI 1200,1150,1190 
1190 WRITE (KOUT.OBUGVal 
LINES- LINEX - 10 
1200 CONTINUE 
C 


Bll 

750 

all 

760 

Bll 

770 

Bll 

780 

Bll 

790 

Bll 

800 

Bll 

BIO 

Bll 

820 

Bll 

830 

011 

840 

Bll 

850 

Bll 

S60 

811 

870 

Bll 

880 

Bll 

890 

Bll 

900 

Bll 

910 

Bll 

920 

Bll 

930 

Bll 

940 

Bll 

950 

an 

960 

an 

970 

an 

980 

an 

990 

811 

1000 

Bll 

1010 

Bll 

1020 

Bll 

1030 

an 

1040 

Bll 

1050 

Bll 

1060 

Bll 

1070 

Bll 

1080 

Bll 

1090 

Bll 

1100 

Bll 

1110 

Bll 

1120 

Bll 

1130 

Bll 

1140 

811 

1150 

611 

1160 

an 

1170 

Bll 

1180 

an 

1190 

Bll 

1200 

Bll 

1210 

an 

1220 

811 

1230 

811 

1240 

Bll 

1250 

011 

1260 

Bll 

1270 

Bll 

1280 

Bll 

1290 

311 

1300 

an 

1310 

011 

1320 

Bll 

1330 

811 

1340 

811 

1350 

Bll 

1360 

Bll 

1370 

811 

1380 

Bll 

1390 

an 

1400 

011 

1410 

611 

1420 

011 

1430 

011 

1440 

Bll 

1450 

Bll 

1460 

Bll 

1470 

011 

14B0 

Bit 

1490 

an 

1500 

an 

1510 

an 

1520 

an 

1530 

an 

1540 

811 

1550 

Dll 

1560 

Bll 

1570 

nil 

1580 

Bll 

1590 


311 1600 

eii 1610 

Bll 1620 
all 1630 
Bll 1640 
Bll 1650 
Bll 1660 
Bll 1670 
011 1690 
Bll 1690 
Bll 1700 
Bll 1710 
Bll 1720 
BU 1730 
Bll 1740 
an 1750 
on 1760 
011 ITTO 
Bll 1760 
Bll 1790 
Bll 1600 


66 B7 
6688 
66 S4 

6690 

6691 

6692 

6693 

6694 

6695 

6696 

6697 

6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 
5754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 
676 e 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 
67SL 

6782 

6783 

6784 

6785 

6786 

6787 
5780 

6789 

6790 

6791 

6792 
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Vl= S0(tTIV2l 
00 1210 Ksl,3 
1210 VCOSJK»= VCOS(KI/Vt 
C 

VI« VI*<0AMft/SC4LE» 
C 

RETURN 
C XXXXXX 
C 

END 


V FOR 
C 
C 
C 

c 
c 
c 
c 
c 
c 


B12.B12 


SueROUTIVE REFLEC(P,ZL»ALFAft,COSRI 
* TR« MUITIPLE-SLRFACE VORTEX-LATTICF PROGRAM 


1000 

1010 


1020 

1030 


DIMENSION P(3) 

CDMMON/DATAOI/KIN ,tCOOT ,KTl ,KT2 (LtNEX .LINES 

C0HM0N/DATA02/IFLCUSI .EXECKI15I ,RAD .PIE 

NAMELIST/REFLEX/PX.PV.XI.YI ,PMI .ALFAR.PX.RV.ZL.COSR 
DATA X2/0.0/. T2ZO.O/ 


PX- PI3I 
PV- Pdl 
Xl= ZL/COSR 
ri= 0.0 
PH!= -ALFAR 
NUTE= IFLG(I01-lf 

CALL ROTATFIPX.PT.Xl, Yl.PHi ,X2, YZ.HX.RVl 

IF INOTEl 1010,1010,1000 
WRITE IKOUT, REFLEX* 

CONTINUE 


CALL RnTATEIRX.Ry,X2,Y2, ALFAR, XI .Yl.PX.PY) 

IF INOTEl 1030,1030,1020 
WRITE IXOUT, REFLEX) 

LINES- LINESF24 
CONTINUE 


PI 3)> 
P< I»> 


Px 

PY 


RETURN 

XXXXXX 


P FDR 813, R13 
C 
C 
C 


SUBROUTINE DMATIMA.N.DETERMI 

MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EguAT IONS 
VERSION 2 ROUTINE IDOUBLE PREC I SSI ON-LANGLEV MATINV SUBROUTINE! 

« TRW MULTIPLE-SURFACE VORTEX-LATTICE PROGRAM - REVISED H AUG. 7; 


DOUBLE PRECISION Rl ,R2 ,DE TERM, AMAX.T, SWAP, PIvOT , PIVOT I 
OOURl. F f^REClSlON !P! VCIT (?t) t 1*1*0 EX (71 2 J 

EOOIVALENCE IIRCW.JROW), I ICOLUmJ JCOLUM ! T J AMAK , T^ SWAP) 
M= 0 


IN IT lAL IZATtON 

1000 ISCALE^O 
1010 Rl = 1.E36 
1020 R2-1.0/RI 
1030 DETERM=l.O 
1040 no 1050 J=1,N 
1050 IPIV0TtJI=0 
1060 00 1630 1=1, N 

; SEARCH FOR PIVOT ELEMENT 

1070 AMAX-0,0 
lOflO no 1170 J=l,N 

1090 IF IIP1V3TIJI-U 1100,1170,1100 
1100 DO 1160 K-l,N 

lllO IF I IPIVOTIXl-l) 1120,1160,1750 


BIl 

1010 

6793 

Bit 

1020 

6794 

nil 

1930 

6795 

Bll 

1B40 

6796 

Bll 

1950 

6797 

ail 

1660 

6796 

Bll 

1070 

6799 

Bll 

1000 

6800 

Bll 

1890 

6801 

811 

1900 

6802 

ni 2 

to 

6803 

812 

20 

6804 

B12 

30 

6805 

B12 

♦ 0 

6806 

B12 

50 

6807 

B12 

60 

6008 

«B12 

TO 

6809 

•612 

80 

6010 

B12 

90 

6811 

KB12 

100 

6812 

ei2 

110 

6813 

B12 

120 

6814 

ei2 

130 

6815 

B12 

140 

6816 

ai 2 

150 

6917 

R12 

160 

6818 

B12 

170 

6819 

X812 

180 

6820 

nl 2 

190 

6821 

B12 

200 

6822 

B12 

210 

6823 

812 

220 

6824 

612 

230 

6625 

B12 

240 

6826 

612 

250 

6827 

ni 2 

260 

6828 

812 

2 TO 

6829 

B12 

280 

6830 

912 

290 

6031 

B12 

300 

6832 

ei2 

310 

6833 

812 

320 

6834 

B12 

330 

6835 

BIZ 

340 

6836 

812 

350 

6837 

B12 

360 

6836 

BIZ 

370 

6839 

812 

380 

6840 

B12 

390 

6841 

812 

400 

6842 

812 

410 

6843 

812 

420 

6844 

812 

430 

6845 

ai 2 

440 

6846 

812 

450 

6847 

812 

460 

6648 

612 

4 70 

6849 

812 

480 

6850 

812 

490 

6851 

612 

500 

6952 

B13 

10 

6853 

813 

20 

6854 

813 

30 

6855 

B13 

40 

6856 

B13 

50 

6857 

B13 

60 

6858 

613 

70 

6859 

B13 

80 

6860 

B13 

90 

6861 

■613 

100 

6862 

■B13 

no 

6863 

813 

120 

6864 

B13 

130 

6865 

B13 

140 

6866 

B13 

150 

6867 

fU3 

I6G 

6568 

B13 

ITO 

6869 

B13 

180 

6870 

fll3 

190 

6871 

B13 

200 

6872 

B13 

210 

6873 

913 

220 

6874 

B13 

2 30 

6875 

913 

240 

6876 

013 

250 

6877 

913 

260 

6878 

913 

270 

6879 

B13 

290 

6880 

B13 

290 

6881 

fll3 

300 

6882 

813 

310 

6883 

813 

320 

6884 

B13 

330 

6885 

B13 

340 

6886 

B13 

350 

6887 

913 

360 

6888 

B13 

370 

6B89 

813 

3 80 

6890 

B13 

390 

6891 

813 

400 

6892 
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1L20 IF 4DAB5<AHAXI-OA6S4*f J.Kttl UJO«t 160tll60 

1130 IltOH>J 

1140 ICOLUM-K 

1150 AMAX^AU.KI 

1160 CONTINUe 

1170 CONTINUE 

IF (AHAX* 1190tlie0tll90 
1180 DETE8M-0.0 
I5CALE-0 
GO TO 1750 
C KKXXXX 

C 
C 

1190 IP IVOTI lCOLtJM» = IPIWQTIICOLUMM-l 

C 

C INTEfiCHANGE RO«S TO PUT PIVOT ELEMENT ON DIAGONAL 

C 

1200 IF I IROW-ICOLUNl 1210»1310tl210 

1210 oeTEftM=“OETERM 

1220 DO 1250 L=l,N 

1230 SUAP-AI HOW.L t 

1240 At IROH.U^MTCOLLP.Ll 

1250 AI ICnLlJM.L » = ShAP 


C 

C 

1260 IF (HI 1310*1310<1270 
1270 DO 1300 L=lfM 
1280 SWAP>8(IRnU,L> 

1290 R( IROW.LI^eilCOLtJFrLI 
1300 Q( ICDLUM.L )*=SHAP 
1310 INDEX! 1,1 l=IRQH 
1320 INDEX! I,2» = IC0LUM 
1330 PI VDT=A! ICOLUM, ICCLUHJ 

IF (PIVOT! 1340,1180,1340 


C 

C SCALE THE DETERMINANT 

C 


1340 PIV0T1=PIV0T 
1350 IF (DABS(0ETERH!>R1I 
1360 0ETERH=D£TERM/R1 
ISCAIE=ISCAL£*1 
IF (DABSIOETERMI-Rl) 
1370 0ETERM=D£TERH/R1 
ISCALE=ISCALE*1 
GO TO 1410 

1380 IF (0ABSCDETERHI-R2! 
1390 OETERM»DETFRM*Hl 
ISCALE'ISCALE- I 
IF (DAnSIDETERM)-R2! 
1400 DET£RM=DETERM*R 1 
ISCALE=1SCALE-1 
1410 IF (DABS(PIV0TI!-R1I 
1420 PIVOTI-PIVOTI /R I 
ISCALE-I5CALE*! 

IF (OAfiS(PIVOTII-Rl I 
1430 PIV0TI=PIV0TI/R1 
I5CALF=ISCALE+1 
CO TO 1470 

1440 IF (DABS! PIVOTI I-R2! 
1450 PIV0TI^PIV0TI*H1 
ISCALE-ISCALE-l 
IF (0ABS(PIVnTn'R2l 
1460 P1V0TMPIVDTI4RI 
ISCALE-lSCALE-1 
1470 OETFRH=OETERM4PIVOTI 


1380,1360,1360 

1410,1370,1370 

1390.1390.1410 

1400.1400.1410 
1440,1420,1420 
1470,1430,1430 

1450.1450.1470 

1460.1460.1470 


C 

C DIVIDE PIVOT ROM BY PIVOT ELEMENT 

C 

1460 A( ICDLUM, IC0LUM)*l,0 
1490 DO 1500 L=1,N 

1500 Al ICnLUM,L)-AI ICCLUM, LI/PI VOT 
C 
C 

1510 IF (M) 1540,1540,1520 
1520 00 1530 L=1,M 

1530 B< ICnLU«,LI=0IICCLUM,LI/PlVOT 
C 

C REDUCE NON-PIVOT ROWS 

C 

1540 no 1630 Ll=l,N 

1550 IF Ill-ICOLUMI 1560,1630, 1560 

1560 T=A(Ll, ICOLUMl 

1570 A(tl, ICOLUMI'O.O 

1580 00 1590 L=l,N 

1590 A(L1,L !>i4(L1,U-A(IC0LUM,L»4T 

c 

c 

1600 IF (Ml 1630,1630,1610 
1610 00 1620 1=1, M 

1620 aiLl.L 1=B(11,L1-0{ICDLUM,L1*T 
1630 CDNT INUE 
C 

C INTERCHANGE COLUMNS 

C 

1640 DO 1740 I«1,N 
1650 L=N*l-I 

1660 IF I IN0EX(L,1I-IN0EX(L,2!) 1670,1740,1670 
1670 JRDU=INOEXIL,li 
1680 JC0LUM=1N0EX(L,2! 

1690 DO 1730 K=l,N 
1700 SWAP=A(K.JROU| 

1710 AIK, JB0W!«AIK,4C0LUH1 
1720 AIK,JC0LUH1=SWAP 
1730 CONTINUE 
1740 CONTINUE 
1750 RETURN 


B13 

410 

6893 

813 

420 

6094 

B13. 

430 

6895 

B13 

440 

6B96 

B13 

450 

6697 

B13 

460 

6B9B 

B13 

470 

6899 

B13 

460 

6900 

B13 

490 

6901 

813 

500 

6902 

B13 

510 

6903 

B13 

520 

6904 

ei3 

530 

6905 

B13 

540 

6906 

B13 

550 

6907 

B13 

560 

6906 

B13 

570 

6909 

813 

5 80 

6910 

B13 

590 

6911 

B13 

600 

6912 

B13 

610 

6913 

B13 

620 

6914 

B13 

630 

6915 

813 

640 

6916 

813 

650 

6917 

S13 

660 

691 e 

B13 

670 

6919 

813 

680 

6920 

B13 

690 

6921 

B13 

700 

6922 

B13 

710 

6923 

813 

720 

6924 

813 

730 

6925 

B13 

740 

6926 

813 

750 

6927 

B13 

760 

6928 

B13 

770 

6929 

813 

780 

6930 

B13 

790 

6931 

813 

800 

6932 

813 

810 

6933 

813 

820 

6934 

813 

830 

6935 

B13 

840 

6936 

B13 

SSO 

6937 

B13 

860 

6938 

B13 

870 

69 39 

B13 

8 80 

6940 

813 

890 

6941 

813 

900 

6942 

813 

910 

6943 

B13 

920 

6944 

813 

930 

6945 

B13 

940 

6946 

fll3 

950 

6947 

R13 

960 

6948 

B13 

9 TO 

6949 

613 

980 

6950 

B13 

990 

6951 

613 

1000 

6952 

613 

1010 

6953 

R13 

1020 

6954 

813 

1030 

6955 

R13 

1040 

6956 

613 

1050 

69 57 

B13 

1060 

6958 

B13 

1070 

6959 

B13 

1080 

6960 

813 

1090 

6961 

B13 

1100 

6962 

B13 

1110 

6963 

813 

1120 

6964 

B13 

1130 

6965 

613 

1140 

6966 

813 

1150 

6967 

B13 

1160 

69 68 

813 

1170 

6969 

813 

1180 

6970 

B13 

1190 

6971 

813 

1200 

6972 

R13 

1210 

6973 

813 

1220 

6974 

613 

1230 

6975 

813 

1240 

6976 

613 

1250 

6977 

813 

1260 

6978 

813 

1270 

69 79 

R13 

12 00 

6980 

ai3 

1290 

6981 

B13 

1300 

6982 

B13 

1310 

6983 

B13 

1320 

6984 

813 

1330 

6985 

813 

1340 

6986 

B13 

1350 

698 7 

613 

1360 

6988 

813 

1370 

6989 

ai3 

1380 

6990 

813 

1390 

6991 

B13 

1400 

6992 

B13 

1410 

6993 

813 

1420 

6994 

613 

1430 

6995 

B13 

1440 

699 6 

B13 

1450 

6997 

B13 

1460 

6998 


9-67 



c 

xxxxxx 

B13 

1470 

6999 

c 


Bia 

1490 

7000 


wc 

Bia 

1490 

7001 


9 FOR 

014, B14 



B14 

10 

7002 

C 




614 

20 

7003 

C 




B14 

30 

7004 

C 




314 

40 

7005 


Subroutine oarpfA,8,ci 



314 

30 

7006 

C 




B14 

60 

7007 

c 

* TPM MULTIPLE- SLRFACE VORTEX-LATTICE 

PROGRAM 

- REVISED 3 AUG.T2 

• B14 

TO 

TOOB 

c 

♦ PROGRAM DEVELOPED BY A, V. GOMEZ ITPM 

SYSTEMS! 

ON MARCH-MAY 19T1 

*B14 

80 

7009 

c 




014 

90 

7010 

c 

XX XXXX XXXXXXX XX X X XX XXXXXXXXXXXX XXXXXX XXXXXX XXX XXX XX XXX XXXX XXX XX XXX B14 

100 

7011 

c 




B14 

110 

7012 


DIMENSION AI3I,BI3) 



814 

120 

7013 


Am«B(IlF A(2|A8<2)« A43I*B<3) 



B14 

130 

7014 

c 




614 

140 

7015 


RETURN 



014 

150 

7016 

c 

XXXXXX 



014 

160 

7017 

c 




014 

ITO 

7018 


END 



914 

IBO 

7019 


V FOR 

niS,R15 


015 

10 

7020 

C 



015 

20 

7021 

c 



B15 

30 

7022 

c 



615 

40 

7023 


SUBROUTINE CROSPI A.B.C) 


815 

50 

7024 

c 



BI5 

60 

7025 

c 

* TRW MULTIPLE-SLRFACE VORTEX-LATTICE 

PROGRAM - REVISED 8 AUG. 72 

*B15 

TO 

7026 

c 

* PROGRAM DEVELOPED BY A. V.GCMEZ I TRW 

SYSTEMS) ON MARCH-MAY I9TI 

*B15 

80 

7027 

c 



015 

90 

7028 

c 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXBIS 

100 

7029 

c 



B15 

110 

7030 


DIMENSION AO) ,a(3I ,C 131 


615 

120 

7031 

c 



B15 

130 

7032 


r(ll= A(Z)*R(3> - A(3)*B(2) 


B15 

140 

7033 


CIZI^ AO)*e<l) - A4l)*RI3l 


B15 

150 

7034 


C13)= A«l)*042) - A(2I*B(1) 


B15 

160 

7035 

c 



B15 

170 

7036 


RETURN 


B15 

180 

7037 

c 

XXXXXX 


B15 

190 

7030 

c 



315 

200 

7039 


END 


B15 

210 

7040 


V FOR 

B16,B16 


B16 

10 

7041 

C 



816 

20 

7042 

c 



BIS 

30 

7063 

c 



316 

40 

7044 


SU0POOTI.NE ROTATEI X,Y, XO.VP, PHI, 

XF.YF, XT.VT ) 

B16 

50 

7045 

c 



816 

60 

7046 

C 

• TRW MULTIPLE-SLRFACE VORTEX-LATTICE 

PROGRAM - REVISED 8 AUG.T2 

*316 

TO 

704 7 

c 

♦ PROGRAM DEVELOPED BY A, V, GOMEZ ITRH 

SYSTEMS) ON MARCH-HAY 19TI 

• 816 

SO 

7048 

C 



316 

90 

7049 

C 

XXXXXXXKKXKXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXB16 

100 

7050 

c 



B16 

LIO 

7051 


XS • X-XO 


B16 

120 

7052 


YS « Y-VD 


B16 

130 

7053 


RHO= SORT! X5*42 ♦ YS**2) 


B16 

140 

7054 


ERROR= 0.0001 


B16 

150 

7055 


TESTX= ABS(X5)-£RR0fi 


B16 

160 

7056 


TESTY* ABSIYSl-ERROR 


316 

170 

7057 


IF ITFSTXI 1000,1000,1030 


B16 

130 

7058 

1000 

IF (TESTY) 1010,1010,1020 


BIS 

190 

7059 

toto 

/ET- 0.0 


016 

200 

7060 


GO TO lllO 


016 

210 

7061 

1020 

ZET* l.570795*(YS/ABS< YS) ) - XS/YS 


B16 

220 

7062 


GO TO 1110 


Bt6 

Z30 

7063 

1030 

7ET= ABSIYS/XS) 


B16 

240 

7064 


IF (TESTY) 1050, 1C50, 1040 


016 

250 

7065 

1040 

Z£T=ATAN( ZF T) 


016 

260 

7066 

1050 

CONTINUE 


ei6 

270 

7067 


IF IXS) 1070, lose, 1060 


016 

280 

7068 

1060 

IF (YSl 1 100, me, 1110 


816 

2«0 

7069 

1070 

IF (VS) 1090. loec, 1080 


016 

300 

7070 

lORO 

ZET” 3.14159 - 7F1 


S16 

310 

7071 

1090 

GO TO mo 


B16 

320 

7072 

ZET= 3,14159 ♦ ZET 


Bl6 

330 

7073 


GO TO mo 


016 

340 

7074 

1100 

ZET» 6.2B31B - ZET 


B16 

350 

7075 

1110 

CONTINUE 


916 

360 

7076 


ZPP« PHI + ZFT 


016 

370 

7077 


XR = RHOACQSI ZPP( 


016 

360 

7078 


VH = RHO*SIN(ZPP) 


016 

390 

7079 


XT* XF ♦ XR 


016 

400 

7080 


YT» VF ♦ VR 


016 

410 

7081 

c 



B16 

420 

7082 


RETURN 


R16 

430 

7083 

c 

XXXXXX 


316 

440 

7084 

c 

END 


816 

450 

7005 



016 

460 

7086 


7 FOP 

017,017 

10 

7087 

C 

017 

20 

7088 

c 

BIT 

30 

7089 

c 


40 

7090 


SUBROUTINE CURFl T(X,Y,A , N, OVl ,0Y2 , K1 ,K2) 617 

50 

7091 

c* 

BIT 

60 

7092 


9-68 



C • TRW MULT IPLE-StftF ACE VdftTEX-LATTiCE PROGRAM - REVISED B AUG.72 *617 70 

c • program OEVELOPED by a. V. GOMEZ ITRH SYSTEHSI ON MARCH-MAY 1971 *817 BO 

^ BIT 90 

c KX*XXX*XXXXX*X<X)i*XXXXKXXKXXKX**XX*XXXKXltKXXXXXKXX*XK*XKXXKX*KKXK*817 IQO 

^ B17 110 

DIMENSION XI22I fV«22l»AI42» .01921, cm BJ3 Wn 

C «•**.*«««****«•***««*»•«***•**•••••»** BI7 130 

r BIT 140 

C xXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXBI? ISO 

^ BIT 160 

t FOR THE WHOLE TARliLATEO TABLE “IT 170 

C XI n = INDEPENOENT VARIABLE. ... .1-1 ,N IGIVENI B17 I8D 

C Y<II - DEPENDENT UARI ABLE » • I -1 iN IGIVENI B17 190 

C N ^ LENGTH OF Y-VS-K TABLE IGIVENI B*T 200 

c r)Y 1 = 1ST OR 2ND DERIVATIVE AT LOWER ENO OF TABLE BIT 210 

C DY2 = 1ST OR 2ND DERIVATIVE AT UPPER ENO Of TABLE BIT 220 

C Kl = 1 DYl = 1ST DERIVATIVE IGIVENI BIT 230 

C Kl - 2 DVl - 2ND DERIVATIVE IGIVENI BIT 240 

C k2 - 1 0Y2 - 1ST DERIVATIVE IGIVENI BIT 250 

C K2 - 2 Dy2 • 2ND DERIVATIVE IGIVENI BIT 260 

^ BIT 270 

C THE DIMENSION Clll MUST FOLLOWS THE DIMENSION OF B BIT 2B0 

C MINIMUM DIMENSION OF B IS I2*N-2I BIT 290 

C OTHENStON OF A IS SAME AS ft, BUT GIVEN IN MAIN PROGRAM BIT 300 

f 617 310 

^ BIT 320 

c XXXXKXXXXXXXXXXKXXXXXXXXXXXXXXXXXKXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXBIT 330 

, BIT 340 

J: 617 350 

r BIT 360 

Cl 11=0-0 

N«NC= 100 li; 38° 

N1 = N-2 81^ *°° 

Cl ’ XC2I-X{ 11 81"^ 

IF (Cll tlTO.llTO.lOOO bit 420 

1000 GO TO I 1010, 10201 ,Kl Tf” 

1010 R1 n = 0.0 81T 44Q 

All! - (DYl-«YI2)-vm I/Cll/Cl BIT 450 

GO TO 1030 

1020 81 II = -Cl 817 470 

Al II = -DVl/2.0 8^3 

1030 J X I 

^ BIT 500 

IF (Nil 1150,1090.1040 B17 510 

1040 IF CNPNG-Nl 1150,1050,1050 BIT 520 

^ 017 530 

1050 DO 1060 1=1, N1 bit 540 

K = 1*1 8^^ 850 

Cl = XIKI-xm 817 570 

C2 = X(K.n-X(KI bit 580 

C3 - VIKI-Ydl 9}^ 

C4 - YIK4H-YIRI 8|’ 

C5 = C3/CI-C4/C2 817 610 

C6 = CI/C2 8}3 620 

r? » C1*C2 630 

flij> = l"o/K6MC1.6U-in^ 

A4J> = CC6/C2-C6*AU-in*BUI 

J ^ J+ 1 ^ 6^0 

BUI = l.O/H-Cl-C2l/C7-C6*0U-lM JJO 

AUl =(-:5/C7-C6*MJ-m*6IJI 8^3 880 

^1060C0NTrNUF BIT 690 

GO TO (1070,10801 ,H2 BIT TIO 

1070 AU + ll = (0Y2-C4/C2*C2*AUn/lC2*(8(JI-C2ll BIT T20 

GO TO 1120 bit T30 

1080 AlJtll = (0V2/2.*AIJII/t-2. *02+6(311 BIT 740 

^ Vn 760 

c STATEMENTS 42 TO 44 ARE FOR N-2 ONLY BIT 770 

BIT 700 

C2 = 1.0/C 3 8°° 

GO Tn (1100,11101, K2 81; 8*° 

1100 A(J + 1I - ((Y(2|-¥<in/Cl-A(Jt*Cl-DY2l/(Cl*CU*C2 BIT 820 

GO TO 1120 817 830 

lllO AIJ+1) = C3*IIDY2+2.0*A(11I/14.0*C1II BIT 840 

Sue . = 

f. BIT 070 

1130 J = J-l 8^^ 880 

IF (JI 1170,1170.1140 0i; 890 

1140 A(JI = A(J )-6IJl*AlJ»M 81' ’‘'8 

GO TO 1130 817 910 

f BIT 920 

^ BIT 930 

1150 WRITE (6,1160)N,NRNG BIT 940 

C CALL EXIT 81^ 

116D F0RMAT14H0N -15.2X9H1N CORF1T/31H N MUST BE IN THE RANGE BIT 960 

1 13HBETWEEN 2 AND15/39H0*INCHEASE DIMENSION OF B IN CORFU SIT 970 

2 19FIF N IS TOC LARGE /12H0B = 2*IN-ll I BIT 980 

117D RETURN 8[^ 

I** vvyvw RXT lOlO 

C 

FNO 81^ 


7093 

7094 

7095 

7096 
T097 

7098 

7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 
TIOT 
71 OS 

7109 

7110 
Till 

7112 

7113 

7114 

7115 

7116 

7117 
TUB 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 
712B 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 

7139 

7140 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

7150 

7151 

7152 

7153 

7154 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 
7161 

7182 

7183 
T1B4 

7185 
7106 
7167 

7186 
7189 


V FOR 618,018 
C 
C 
C 

SUBROUTINE CURVE(X»Y,A, XP , YP ,0 YP ,N ,I Tl 

C 


Bi6 

10 

7190 

Bte 

20 

7191 

BIB 

30 

7192 

BI8 

40 

7193 

818 

50 

7194 

BIS 

60 

7195 


9-69 


c 

* TRH MUlTIPie-St«F*Ce VOftTCX-LXTTlCE PROGRAM - REVISED 8 AU6.T2 

•818 

TO 

7196 

c 

* PROGRAM DEVELOPED BY A.V.GOMEI (TRW SYSTEMS! ON MARCH-MAY 1971 

*B18 

30 

7197 

c 


SIS 

90 

7198 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXBIS 

100 

7199 

c 


Bie 

no 

7200 


DIMENSION X(22>.V(22> .AI42I 

B18 

120 

T2Q1 

c 

««**»*»**»«*«*4i ••**««**•**• 

818 

130 

7202 

c 


818 

140 

7203 

c 

XXXXXXXXXXXXXXXXkXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKKXXXXXXXXXXXXXBlS 

150 

7204 

c 


B18 

160 

7205 

c.... 

USING Am COMPUTED IN CURE 1 T SUBROUTINE 

Bie 

ITO 

7206 

c 

XP ^ A PARTICULAR VALUE OF -X- IGIVENI 

818 

180 

7207 

c 

YP = A PARTICULAR VALUE OF -Y- 

BIB 

190 

7208 

c 

OVP » DV/OX AT -XP- 

818 

200 

7209 

c 

IT £ EFFICIENCY CCNTROL INDEX tGIVENI 

818 

210 

7210 

c 

IT - 1 ONLY YP IS COMPUTED 

Bie 

220 

7211 

c 

IT = 2 ONLY OYP IS COMPUTED 

B18 

230 

7212 

c 

IT - 3 BOTH YP AND OYP ARE COMPUTED 

B18 

240 

7213 

c 


018 

250 

7214 

c 

XXXXXXXXXKXXXXXAXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXB18 

260 

7215 

c 


813 

270 

7216 

c 


818 

280 

7217 

c 


818 

290 

7218 


IF Ixm-XP) 1020,1020,1000 

BIS 

300 

7219 

1000 

Cl * X(2l-X< 11 

Bia 

310 

7220 


OYP - I Y(21-YI in/Cl*AIll *Cl 

018 

320 

7221 


GO TO (1010,1100,10101.11 

018 

330 

7222 

1010 

YP » Y( 11^DYP*IXP-Km ) 

818 

340 

7223 


GO TO 1100 

818 

350 

7224 

1020 

N =• N 

818 

360 

7225 


IF (XP-X(NII 105C, 1030, 1030 

Bie 

370 

7226 

1030 

N2 = 2*(N-H 

S18 

380 

7227 


Cl = X(N!-XIN-1) 

01 a 

390 

7220 


OYP = 1 V(NI-YIN-lM/Cl-A(N2-l!*Cl-A(N2l *Cl*Cl 

818 

400 

7229 


GO TO (1040, 1100,10401 ,tT 

018 

410 

7230 

1040 

YP * V(N)»OVP*( XP-X(NM 

Bia 

420 

7231 


GO TO 1100 

Bie 

430 

7232 

1050 

I - 1 

010 

440 

7233 

1040 

1 - I»1 

Bia 

450 

7234 


IF (xm-XPi 106C, 1070, 1070 

818 

460 

7235 

1070 

K = 2*1-3 

Bie 

470 

7236 


Cl = xp-x(i-n 

018 

480 

7237 


C2 - X(lt-XP 

818 

490 

7238 


SLOPE = (V(II-YII-ll)/U(Ii-X(I-m 

018 

500 

7239 


GO TO 1 1080. 1090, 10S0I.it 

618 

510 

7240 

10 AO 

YP = Y( I-ll*(SLOPE*A(K|*C2*A(K*ll*Cl*C2t*Cl 

BIB 

520 

7241 


GO TO ( 1100,1090,1090) .IT 

818 

530 

7242 

lOQO 

OVP = SLOPE *AIK)*IC2-Cn* A(K»1)*(2.*C2-C1)*C1 

818 

540 

7243 

1100 

RETURN 

BIB 

550 

7244 

c 

KXXKXX 

BIS 

560 

7245 

c 


BIB 

570 

7246 


END 

B18 

530 

7247 


Y FOR 819,819 

B19 

10 

7248 

C 

819 

20 

7249 

C 

819 

30 

7250 

c 

619 

40 

7251 

SUBROUTINE PAGE 

819 

50 

7252 

C 

819 

60 

72 53 

C • TRW MOLTIPLE-SLRFACE VORTEX-LATTICE PROGRAM - REVISED 6 AUG-T2 

*819 

TO 

7254 

C • PROGRAM DEVELOPED BY A.V.G0ME2 (TRW SYSTEMS) ON MARCH-MAY 19T1 

• B19 

80 

7255 

C 

819 

90 

7256 

C XXXXXXXXXXXXKXXXX*XKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXfll9 

too 

7257 

c 

919 

110 

72 50 

CDMMON/OATAOO/NSTL ,ALFAC ,CMAK ,2H0 ,FL APDX • A ILRDX ( 2) 

819 

120 

7259 

* , TITLE) 141 tST0RE(14) 

819 

130 

7260 

C 

019 

140 

7261 

COMMON/DATAOl/KIN »KOUT ,KTl ,KT2 ,LINEX .LINES 

619 

150 

7262 

C 

819 

160 

7263 

CnMMON/DATA02/IFLC(15) ,EXECK(15) ,RAO ,PIE 

819 

ITO 

7264 

C 

019 

180 

7265 

C 

819 

190 

7266 

1000 FnBMAT(30HlJD0FLAG 123456789 10 . 2X , 13 A6, A2, 3X, 

019 

200 

7267 

1 4HPAGE,/,2K,5HVALUE,IX.10I3,2X, 

819 

210 

7268 

2 5HALEAa,F6.2,2K.7HHACHNa»,F6,4,2X,6HFLAPD=,F6.2,2X,9HAIL£R0N0=, 

819 

220 

7269 

3 2F6.2,2X,9HALTt IUOE= ,F6. 2 ,2 X,I 4 , // ,1 XI 

019 

230 

7270 

C 

819 

240 

7271 

C 

919 

250 

7272 

C XXXXKXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXKXKB19 

260 

7273 

C 

819 

2T0 

7274 

c 

819 

280 

7275 

IF INSru-1971) ICIQ, 1020,1010 

819 

290 

7276 

1010 NSTU= 1971 

819 

300 

7277 

NP= 0 

B19 

310 

7278 

1020 NP= NPFl 

B19 

320 

7279 

WR ITS (KOUT, 10001 (TITLE (I ). I =1.141 , ( 1 FLGl I) . 1= 1 ,10) , ALFAO.CMAK, FLAB19 

330 

7280 

lPnX,(AILR0X(II.I=l,2 ) ,ZhO,NP 

819 

340 

7281 

LINES= S 

819 

350 

72 82 

C 

819 

360 

7283 

RETURN 

819 

3 70 

7284 

C KXXXXK 

819 

300 

7205 

C 

819 

390 

7286 

END 

819 

400 

7287 

7 FOR B20,B20 

820 

10 

7288 

C 

820 

20 

72 09 

c 

820 

30 

7290 

c 

820 

40 

7291 

C NA IN ROUTINE 

820 

50 

7292 

C TEST MATRIX INVERSION 

820 

60 

7293 

C 

820 

TO 

72 94 

C • TRW MULT IPLE- SLRFACE VORTEX-LATTICE PROGRAM - REVISED 8 AUG. 72 

*820 

80 

7295 

C • PROGRAM OEVELDPEO BY A. V.C0ME2 (TRW SYSTEMS) ON MARCH-MAY 1971 

*B20 

90 

7296 

C 

B20 

100 

7297 
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c 

XXXXXXXXXXXXXXXXIIXXXXXXXXXXXXXX XXXXXKXXXXXXXXXKXXXXXXXXXXXXXXXXXXKB20 

110 

7298 

c 


B20 

120 

7299 


DOURLE PRECISION DELTA ,AHATm tTU .BMATIT 1 ,7 1 » ,CM AT<T1, 711 

820 

130 

T300 

1000 

FORMAT! ( 10X,I5,2F16.4 1 | 

B20 

140 

7301 

1010 

FORMAT! 1X,F(1X 1 

B20 

150 

7302 

1020 

FORMAT! !10X, 5! 1PF1A.6I II 

B20 

160 

7303 

C 


820 

170 

7304 

C 

XXXXXXXXXXXKXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS20 

180 

7305 

c 


B20 

190 

7306 

c 


820 

200 

7307 

c 


820 

210 

7308 


NOft> 5 

820 

220 

7309 

c 


820 

230 

7310 


AMAT!1.1I - 1.032 

820 

240 

7311 


AMATIl.21 = 7.865 

820 

250 

7312 


AMATI1,3» = 3.21ft 

820 

260 

7313 


AMAT! 1,41 X 3.031 

820 

270 

7314 


AMATI1,5I 10.32 

820 

280 

7315 


AMAT<2, 1) =7,68 

820 

290 

7316 


AMAT!2,2» = -6.3R 

820 

300 

7317 


AMAT(2.3I « 8. ROC 

820 

310 

7318 


AMAT(2,4I = -1.02 

820 

320 

7319 


AMATI2,5I » 5.69C 

820 

330 

7320 


AMAT!3,ll = 3.030 

820 

340 

7321 


AMATI3.21 = -3.38 

820 

350 

7322 


AHAT!3,3I = -11.87 

820 

360 

7323 


AHAT!3,4I = 4.180 

820 

370 

7324 


AMATI3.51 = -3.60 

B20 

380 

7325 


AMAT! 4,11 = -2.R3 

820 

390 

7326 


AHATI4,2I = 5.67C 

820 

400 

7327 


AMAT!4,3I = fl.323 

B20 

410 

7328 


AMAT!4,4I = 9.073 

820 

420 

7329 


AMATI4.5I = 0.0376 

820 

430 

7330 


AMAT! 5,11 = -.0978 

820 

440 

7331 


AMATI5,ZI = 7.103 

820 

450 

7332 


AMATI5,3I = 9.992 

B20 

460 

7333 


AMAT!5,4I = 0.978 

820 

470 

7334 


AHAT!5,5I = 15.14 

820 

4B0 

7335 

c 


B20 

490 

7336 


DO 1040 J=l,NOR 

B20 

500 

7337 


no 1030 K-l.NOR 

B20 

510 

7338 

1030 

PiMATlJ,Kl= AMATIJ.KI 

B20 

520 

7339 

1040 

CONTINUE 

B20 

530 

7340 

c 


320 

540 

7341 


CALL DMATlNinMAT,N0R,0ELT4l 

B20 

550 

7342 

c 


820 

560 

7343 


nn 1070 K= l.NQR 

B20 

570 

7344 


no 1060 J=1,N0R 

820 

580 

7345 


CMAT1J,M= 0.0 

B2D 

590 

7346 


DO 1050 L=1,N0R 

S20 

600 

734 7 

1050 

CMATIJ.KI* CMAT(J,KI * A HAT! J. L) *8MAT! L. Kl 

B20 

610 

7348 

1060 

CONTINUE 

820 

620 

7349 

lOTO 

CONT INUE 

B2Q 

630 

7350 

C 


B20 

640 

7351 


CALL PACE 

820 

650 

7352 


WR ITE (6. 10201! (AMATU.KI ,J=l ,NORI ,K=1 ,NORI 

820 

660 

7353 


WRITE 16,10101 

820 

670 

T354 


HR ITE (6,10201 ! (HMAT! J,K> ,J=1 ,NCRI ,K=1 ,NORI 

R20 

6B0 

7355 


HR ITE (6,10101 

B20 

690 

735* 


WRITE (6, 1020H (CHAT! J,K) , J = 1 ,NCRI ,K=1 ,NORI 

»20 

700 

T357 


WRITE !6, 10101 

B20 

710 

7358 


WRITE <6,1010> 

820 

720 

7359 


WRITE ( 6, 1020IOELTA 

820 

730 

7360 


STOP 

B20 

740 

7361 


END 

020 

750 

7362 
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